1

まず、同様のスレッドを検索して読み、提案された解決策を試し、他の人の問題を解決しました（主にワークブック名​​を一重引用符で囲みます）が、私の場合はうまくいきませんでした。

私がやりたいことは非常に単純です。AccessからExcelブックを呼び出したいのです。ブックはすでに開いているため（VBAを使用）、これはブックが閉じられている問題ではありません。マクロの実行方法は次のとおりです。

Application.Run "'" & xlWb.Path & "\" & xlWb.Name & "'" & "!mainParcourirTrouverItem"

結果：

'I:\47491\...\Trouver items global.xlsm'!mainParcourirTrouverItem

完全なパス（ファイル名のみ）を使用しない、一重引用符を使用しない、サブの名前の最後に括弧を追加するなど、いくつかのバリエーションを試しました...

また、サブ名のスペルが実際に正しいことを再確認しました。本当に見えません：|

ああ、コンテキストを与えるために、このコードを取り巻く完全なサブは次のとおりです。

Private Sub Commande10_Click()
    Dim xlApp As Excel.Application
    Dim xlWb As Excel.Workbook

    Set xlApp = New Excel.Application

    With xlApp
        .Visible = False
        Set xlWb = .Workbooks.Open(FichierImportExcel, ReadOnly:=True)
    End With

    Application.Run "'" & xlWb.Path & "\" & xlWb.Name & "'" & "!mainParcourirTrouverItem"

'    Call importer_transitsrubriques_Click
End Sub

どうもありがとう。

4

1 に答える 1

6

xlApp.Run いいえApplication.Run

ApplicationExcel ではなく、Access を参照します。

于 2012-08-20T19:26:11.510 に答える