使用Querytable加载文本文件

目前正在处理将Excel文件导入到excel电子表格的macros…非常基本的可查询代码，但是我似乎无法集成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数据没有显示…我已经提到这个以前的postvba：导入文本文件到excel工作表，但仍难住这个基本的代码。

这里有人遇到过这个问题吗？

Answer 1

引号内的任何内容都将被视为一个string，而DataF是一个variables。

尝试这个

 connection:="Text;" & DataF 

此外，请确保您检查DataF返回的内容，因为如果用户按下Cancel ，您的代码可能会失败。 例如

 Dim DataF DataF = Application _ .GetOpenFilename("Text Files (*.txt), *.txt") If DataF <> False Then ' '~~> Rest of your code ' End If