Vba 运行时错误1004 excel找不到刷新此外部范围的文本文件

我试图将文件夹中的tsv文件转换为xlsx格式，方法是通过VBA使用Data=>fromtext选项将它们作为文本文件导入

在那期间遇到了这个错误

代码：

Sub convert（）
将CSVfolder设置为字符串，将XlsFolder设置为字符串，将fname设置为字符串，将wBook设置为工作簿
CSVfolder=ActiveSheet.Range（“B2”）.Value&“\”
fname=Dir（CSVfolder&“*.tsv”）
当fname“”时执行
工作手册。添加
设置wBook=ActiveWorkbook
使用ActiveSheet.QueryTables.Add（连接：=“TEXT；”&fname，目标：=范围（$A$1”））
.Name=fname
.FieldNames=True
.rowNumber=False
.FillAdjacentFormulas=False
.PreserveFormatting=True
.refreshinfoleopen=False
.RefreshStyle=xlInsertDeleteCells
.SavePassword=False
.SaveData=True
.AdjustColumnWidth=True
.RefreshPeriod=0
.TextFilePromptOnRefresh=False
.TextFilePlatform=65001
.TextFileStartRow=1
.TextFileParseType=xlDelimited
.TextFileTextQualifier=xlTextQualifierNone
.textfileconsutivedelimiter=False
.TextFileTabDelimiter=True
.TextFileSemicolonDelimiter=False
.textfilecommadelimitor=False
.TextFileSpaceDelimiter=False
.TextFileColumnDataTypes=数组（1,1,1,1,1,1,1）
.TextFileTrailingMinusNumbers=True
.Refresh BackgroundQuery:=False
以
wBook。关闭False
fname=Dir
环
End Sub

在查找文件的

刷新

阶段出错

问题是

Fname

不包含路径

将您的连接更改为：

With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & CSVfolder & fname, Destination....

---

是的，太完美了！！