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

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

Dim DataF

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

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

使用Querytable加载文本文件

1 个答案: