使用Querytable加载文本文件

提问于 2024-04-18T14:42:05+08:00

浏览次

1

目前正在开发一个宏，它将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

代码isn 't coming up with any errors...but then again the txt data aren' t出现......我已经提到过上一篇文章vba: Importing text file into excel sheet但仍然对这个基本代码感到难过 .

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

1 回答

0
引号内的任何内容都将被视为字符串，而 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
```
回复于 2024-04-18T14:42:05+08:00

相关问题