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

`With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & textname, Destination:=Sheets("导入结果").Range("A1"))` 是在Excel VBA中用于从文本文件中导入数据并创建新的查询表格的语句。它会向当前活动的工作表中添加一个新的查询表格，并设置查询表格的属性。

`Connection`参数是用于指定连接数据源的字符串，对于文本文件，连接字符串必须以“TEXT;”开头，后面跟随着文本文件的路径和文件名。例如，如果你的文本文件保存在C盘根目录下，文件名为“data.txt”，那么连接字符串就应该是`Connection:="TEXT;C:\data.txt"`。

`Destination`参数是用于指定查询结果的放置位置，它通常是一个范围对象，指定了查询结果的左上角单元格。在这个示例中，我们将查询结果放在名为“导入结果”的工作表的A1单元格中。

下面是一个示例：

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & textname, Destination:=Sheets("导入结果").Range("A1"))
    .TextFileCommaDelimiter = True
    .TextFileParseType = xlDelimited
    .Refresh BackgroundQuery:=False
End With

在这个示例中，我们使用了`.TextFileCommaDelimiter = True`和`.TextFileParseType = xlDelimited`来指定文本文件的分隔符是逗号，并且按照分隔符解析文本文件。我们使用`.Refresh BackgroundQuery:=False`来刷新查询结果。

需要注意的是，如果你的文本文件使用的是其他分隔符，你需要相应地调整`.TextFileCommaDelimiter`和`.TextFileParseType`的值。