如何在excel里读取同目录下的txt文件

我用excel录制了一个读取桌面上一个txt文件中数据的宏

其代码如下

Sub 数据导入（）

With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Documents and Settings\ABC\桌面\DAT1.TXT", Destination:= _
        Range("h1"))

……


我想请教，如何在excel中读取其相同文件夹下的这个txt文件呢？

在网上找了一些信息，比如app.path
但是不知道如何修改才能达到我所说的效果。。（假设excel文件名为　1.xls）