excel vba 运行错误52 文件名或文件号错？

下面是程序
Open ThisWorkbook.Path 这一行报错：运行错误52 文件名或文件号错。
用相当是路径可以通过"\sh000300.day"
用绝对路径就报错。
vba可以用绝对路径吗？
是不是不能这么直接替换啊，哪位大侠帮我改成绝对路径，谢谢
---------------------------------
Sub 从通达信取某只股票数据()
'On Error GoTo EH
Dim Bs() As Byte
Dim arr()
Open ThisWorkbook.Path & "E:\Program Files (x86)\gj\vipdoc\sh\lday\sh000300.day" For Binary As #1
'可以指向通达信安装目录下的“\Vipdoc\sh\lday”或者“\Vipdoc\sz\lday”的“xxxxxxxx.day”文件
ReDim Bs(1 To LOF(1)) '将数据保存到字节，从1开始计数，每8字节表示一个数，低位在前，高位在后
Get #1, , Bs
Close #1

相关了解……