使用 Querytable 加载文本文件

【问题标题】：Using Querytable to load Text files使用 Querytable 加载文本文件
【发布时间】：2013-12-20 22:02:09
【问题描述】：

目前正在研究将 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，但仍然对这个基本代码感到困惑。

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

【问题讨论】：

标签： excel vba

【解决方案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

【讨论】：