With ActiveSheet.QueryTables.Add(Connection:="XLS;" & lujing, Destination:=Sheets("导入结果").Range("A1"))

这是一个使用QueryTables对象的示例代码，其功能是将另一个Excel文件中的数据导入到当前活动工作表中。其中 lujing 是要导入的Excel文件的完整路径。

具体来说，这个代码的作用是：

1. 使用 QueryTables.Add 方法添加一个新的查询表格，并指定数据源连接字符串和目标范围。其中 Connection 参数指定要连接的数据源，这里是使用 XLS 格式的 Excel 文件，可以在连接字符串中指定文件的完整路径；Destination 参数指定要将数据导入到当前工作簿的哪个范围中，这里是将数据导入到名为“导入结果”的工作表的 A1 单元格中。

2. 使用 QueryTables.Refresh 方法刷新查询表格，以便从数据源中提取最新的数据，并将其导入到指定的目标范围中。

下面是完整的示例代码：

Sub ImportDataFromExcel()
    Dim lujing As String
    lujing = "C:\Users\username\Documents\example.xlsx"
    
    With ActiveSheet.QueryTables.Add(Connection:="XLS;" & lujing, Destination:=Sheets("导入结果").Range("A1"))
        .Refresh
    End With
End Sub

请注意，这只是一个简单的示例，您可以根据需要进行修改和扩展。还有许多其他的QueryTables属性和方法可以使用，可以帮助您更灵活地处理和导入外部数据。