目前正在开发一个宏,它将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 回答
引号内的任何内容都将被视为字符串,而
DataF
是变量 .试试这个
还要确保检查
DataF
返回的内容,因为如果用户按Cancel
,代码可能会失败 . 例如