我需要一段VB6中打开同一文件夹中xlsm文件的代码

gswycjc

哪位大侠不吝指教！我需要一段VB6中打开同一文件夹中xlsm文件的代码（以前的打开xls文件代码不能用了）。我的电脑上同时装有Excel2003/2010，原来的VB6代码只能启动xls文件（2003的），现在的xlsm文件（2010的带宏文件）不能启动，提示格式不能识别。急需新的代码，求助！
代码如下：
Private Sub Command7_Click()
Dim Xlapp As Object
Set Xlapp = CreateObject("Excel.Application")
Unload Me
Set Xlbook = Xlapp.Workbooks.Open(App.Path & "\" & "zdfb3.xls")
Xlapp.Visible = True
End Sub
其中，将"zdfb3.xls"换成"zdfb3.xlsm"就不行了。

opel-wong

怎么个不行法？
代码看起来木有啥问题，

网海遨游

你参考下这段代码


Sub test()
        Dim mp$, mf$
        mp = ThisWorkbook.Path & "\" '代码所在工作薄路径
        mf = Dir(mp & "*.xlsm") '显示工作薄名
        Do While mf <> ""
                If ThisWorkbook.Name <> mf Then
                Set dk = Workbooks.Open(mp & mf) '打开
                dk.Close '关闭
                End If
                mf = Dir '显示下一工作薄名
        Loop
End Sub

lsdongjh

试着用 前绑定的方式，引用office 14及以上

gswycjc

问题依旧，仍然期待

sunny_8848

网海遨游 发表于 2019-10-10 08:45
你参考下这段代码

谢谢分享。VBA代码可以打开xlsm文件，移植到vb6中应该也行。