VB中excel打开宏如何保存到当前可执行文件路径

Question

Sub auto_open()
　Open "d:\temp\excel.bz" For Output As #1 ''写标志文件
　Close #1
End Sub
Sub auto_close()
　Kill "d:\temp\excel.bz" ''删除标志文件
End Sub 
我查的的资料都是上面写的那样 ，可我不想把标志文件放到d:\temp文件夹中 ，怎么能跟可执行文件（如modbus桌面软件这个文件夹中）放到一起，但这个桌面软件文件夹不固定放到哪个硬盘中。
我试过Open App.path&"\excel.bz" For Output As #1 
Close #1  但还是不行。
那位前辈帮帮忙，小弟急急急急用 ！！！！！！！！！！ 

Answer 1

（1）如果同vb调用： 
If Right(App.Path, 1) = "\" Then
    sFile = App.Path & "excel.bz" '在磁盘根目录
Else
    sFile = App.Path & "\excel.bz" '不在磁盘根目录
End If
Open sFile ...
（2）如果用vba调用（比如在Excel里）：
用ThisWorkbook.Path代替App.Path，方法同上。

Answer 2

App.path&"\excel.bz" 这么写是不对的
& 的两边要有空格
App.path & "\excel.bz" 这样就对了