UC知道如何在excel文件中读取其所在文件夹的txt数据
来源：百度知道 编辑：UC知道 时间：2024/05/30 23:11:57
我用excel录制了一个读取桌面上一个txt文件中数据的宏
其代码如下
Sub 数据导入（）
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Administrator\桌面\2.TXT", Destination:= _
Range("h1"))
……
我想请教，如何在excel中读取其相同文件夹下的这个txt文件呢？
在网上找了一些信息，比如app.path
但是不知道如何修改才能达到我所说的效果。。（假设excel文件名为 1.xls）
用app.path怎么改我的那段代码呢？
其代码如下
Sub 数据导入（）
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Documents and Settings\Administrator\桌面\2.TXT", Destination:= _
Range("h1"))
……
我想请教，如何在excel中读取其相同文件夹下的这个txt文件呢？
在网上找了一些信息，比如app.path
但是不知道如何修改才能达到我所说的效果。。（假设excel文件名为 1.xls）
用app.path怎么改我的那段代码呢？
thisworkbook.path & "文件名"
如：thisworkbook.path & "yyy.txt"
因为app.path是变量，变量为当前程序所在路径.
所以,将你的代码改为如下试一试：
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & app.path + "\2.TXT", Destination:= _
Range("h1"))
没有调试过，只是试图告诉搂主，app.path的用法而已。
App.path & "文件名"