使用Querytable加载文本文件

Question

目前正在处理一个将txt文件导入到excel电子表格的宏...非常基本的可查询代码，但我似乎无法集成application.getfilename组件。

Dim DataF 
DataF = Application.GetOpenFilename("Text Files (*.txt), *.txt") 
With activesheet.querytables.add(connection:="Text; & DataF", Destination:_ 
=Range("$A$1")) 
End with 

代码没有想出任何错误......不过话又说回来了txt的数据显示不出来... 我已经提到了这个以前的帖子vba: Importing text file into excel sheet但还是难住了这个基本代码。

以前有人遇到过这个问题吗？

Answer 1

引号内的任何内容都将被视为字符串，而DataF是一个变量。

试试这个

connection:="Text;" & DataF 

还要确保你检查什么，如果用户按下CancelDataF回报为你的代码可能会失败。例如

Dim DataF 

DataF = Application _ 
.GetOpenFilename("Text Files (*.txt), *.txt") 

If DataF <> False Then 
    ' 
    '~~> Rest of your code 
    ' 
End If