请教用vba调用excel将txt文档转换为xlsx使用Queries”获取和转换数据“读取文件夹，使用录制宏出来的代码如下。因为”源=Folder.Files(""C:\Users\lj\Desktop\新建文件夹\微信txt文档"")," “的路径限死了，想使用”thisworkbook.path“来代替”C:\Users\lj\Desktop\新建文件夹“，但是怎么改vb都运行不了。请问如何更改呢？
ActiveWorkbook.Queries.Add Name:="微信txt文档", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " 源 = Folder.Files(""C:\Users\lj\Desktop\新建文件夹\微信txt文档"")," & Chr(13) & "" & Chr(10) & " 筛选的隐藏文件1 = Table.SelectRows(源, each [Attributes]?[Hidden]? <> true)," & Chr(13) & "" & Chr(10) & " 调用自定义函数1 = Table.AddColumn(筛选的隐藏文件1, ""转换文件"", each 转换文件([Content]))," & Chr(13) & "" & Chr(10) & " 重命名的列1 = Table.RenameColumns(调用自定义函数1, {""Name"", ""Source.Name""})," & Chr(13) & "" & Chr(10) & " 删除的其他列1 = Table.SelectColumns(重命名的列1, {""Source.Name"", ""转换文件""})," & Chr(13) & "" & Chr(10) & " 扩" & _
"展的表格列1 = Table.ExpandTableColumn(删除的其他列1, ""转换文件"", Table.ColumnNames(转换文件(示例文件)))" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " 扩展的表格列1" & _
""
ActiveWorkbook.Queries.Add Name:="示例文件", Formula:= _
"let" & Chr(13) & "" & Chr(10) & " 源 = Folder.Files(""C:\Users\lj\Desktop\新建文件夹\微信txt文档"")," & Chr(13) & "" & Chr(10) & " 导航1 = 源{0}[Content]" & Chr(13) & "" & Chr(10) & "in" & Chr(13) & "" & Chr(10) & " 导航1"
在原来的代码上试一下使用replace函数来替换它的目录能不能成功。
不知道你这个问题是否已经解决, 如果还没有解决的话: