vb和excel连接时excel模块里的路径怎么变成通用的

Question

vb 中：
   If Dir("D:\cc\excel.bz") = "" Then         '判断EXCEL是否打开
        Set xlApp = CreateObject("Excel.Application")    '创建EXCEL应用类
        xlApp.Visible = True                    '设置EXCEL可见
        Set xlBook = xlApp.Workbooks.Open("D:\cc\bb.xls")     '打开EXCEL工作簿
        Set xlSheet = xlBook.Worksheets(1)   '打开EXCEL工作表
        xlSheet.Activate     '激活工作表
        xlBook.RunAutoMacros (xlAutoOpen)    '运行EXCEL中的启动宏
    Else
        MsgBox ("EXCEL已打开")
    End Ifexcel模块中：
    Sub auto_open()
       Open "d:\cc\excel.bz" For Output As #1 '写标志文件
     Close #1
     End Sub
     Sub auto_close()
        Kill "d:\cc\excel.bz" '删除标志文件
     End Sub
    "d:\cc\excel.bz" 不出现也能打开excel！ 

Answer 1

("D:\cc\bb.xls") 改成 （" & filepath & "）
加入如下代码
Public filepath As String    '获取excel文件路径................................................................
   CommonDialog1.Flags = 512 + 4 + 4096    
    CommonDialog1.Filter = "excel Files(*.xls)|*.xls|"
    CommonDialog1.MaxFileSize = 32000
    CommonDialog1.ShowOpen
    
    Text1 = CommonDialog1.FileName
    CommonDialog1.FileName = ""
    Text1.SetFocus
    filepath = Text1.Text