マクロでブックからブックに転記をしたいが、エラーメッセージ「クラスはオートメーションをサポートしていないか、または必要なインターフェースをサポートしていません」が出てきてしまいます。

Question

次のマクロをExcel for Macで実行しようとすると以下のエラーが出てしまいます。

エラーメッセージ

「クラスはオートメーションをサポートしていないか、または必要なインターフェースをサポートしていません」

---

インターネットでも色々調べたのですが分かりませんでした。

デバッグをすると
Set wbAcq = xlsAcq.Workbooks.Open(strPath & strFile)
の行で止まってしまいます。

書き方を変えればうまく動く等などございましたら、申し訳ありませんが教えていただきたいです。
よろしくお願いします。

Sub sample1()

    Dim lngRowsNo       As Long                     ' 書きこむ位置
    Dim lngSheetIndex   As Long                     ' シートの番号
    Dim strFile         As String                   ' Excelファイルの場所
    Dim xlsAcq          As New Excel.Application    ' 取得側Excel
    Dim wbAcq           As Workbook                 ' 取得側Excelブック
    Dim wsAcq           As Worksheet                ' 取得側Excelシート
    Dim wsSet           As Worksheet                ' 設定側Excelシート
    Const strPath       As String = "パスの指定"
    Set wsSet = ActiveSheet

    strFile = Dir(strPath & "*.xls")
    lngRowsNo = 1
    Do Until strFile = ""
        '----- Excelブックを開く
        Set wbAcq = xlsAcq.Workbooks.Open(strPath & strFile)

        '----- シートを検索
        For lngSheetIndex = 1 To wbAcq.Worksheets.Count
            '----- 「更新」シートを検索
            If wbAcq.Worksheets(lngSheetIndex).Name = "更新" Then
                '----- 「更新」シートを変数へ登録
                Set wsAcq = xlsAcq.Worksheets(lngSheetIndex)
                '----- 「更新」シートの内容を現在のシートにコピー(自由に変更して下さい)
                wsSet.Cells(lngRowsNo, 1) = wsAcq.Cells(1, 1)
                '----- 書きこむ位置移動
                lngRowsNo = lngRowsNo + 1
                '----- 検索の終了
                Exit For
            End If
        Next lngSheetIndex

        '----- シート参照の解放
        Set wsAcq = Nothing
        '----- ブックを閉じる
        wbAcq.Close Savechanges:=False
        '----- 次のファイルへ
        strFile = Dir()
    Loop

    '----- Excelへの参照の解放
    Set xlsAcq = Nothing

End Sub

Comments

[meg_]

Excelのバージョンは何ですか？

[icecleam]

バージョンは
バージョン　16.40(20081000)
と記載されています

[meg_]

> バージョン　16.40(20081000)
「Microsoft 365 サブスクリプション」ですね。

[icecleam]

ですね
ライセンスのところに「Microsoft 365 サブスクリプション」の記載がありました！

Answer 1

以前のExcel for Macでは下記問題点があったようです。
※当方Macは持っていないため動作確認はしていません。Microsoft 365にて改善されている可能性もあります。

Excel for Mac 2016 (v15.41) 時点

Dir() 関数でファイル一覧をサクッと取得できない

Dir("/path/to/directory", MacID("XLSX")) とか Dir("/path/to/directory", vbDirectory) みたいにしないと何も返ってこない。また、Dir() を複数回呼んでのループ (同ディレクトリの複数ファイル取得) もできない

Mac の Excel VBA は色々と挙動が違うので、VBA で OS 判別する
MacOS 版 Excel VBA で Dir() 関数の代わり・ファイル一覧を取得する

Microsoft Dir 関数

Comments

[icecleam]

以下のマクロで、一応ファイル名を正常に取れてこれたので、Dir（）関数が原因ではないかもしれないです。。
---
Sub Macro()

Dim buf As String, cnt As Long
Const Path As String = "ここでフォルダのパスを指定"
buf = Dir(Path & "*.xls")
Do While buf <> ""
cnt = cnt + 1
Cells(cnt, 1) = buf
buf = Dir()
Loop

End Sub
----

[meg_]

2回目以降も取れてますか？

[icecleam]

はい、一応３ファイルで試しましたが、それで取れていました

[meg_]

そうですか。では、「Set wbAcq = xlsAcq.Workbooks.Open(strPath & strFile)」の中で「strPath & strFile」の部分は問題ないということですね。
あとは「xlsAcq」にオブジェクトがセットされているか？でしょうか。（Windowsで書く時は Workbooks.Openと書きますが、Macではオブジェクトが必要なのでしょうか？）

[icecleam]

xlsAcqの部分を削除したら、エラーな消え
ファイル名の転記はできませんがフォルダ内のxlsファイルを連続で開閉する挙動を確認できました。
やっぱりxlsAcqの部分が何かおかしいのでしょうか。。

Set wbAcq = Workbooks.Open(strPath & strFile)
こんな感じですね

[icecleam]

ひとまずエラーは無くなりましたので、また別途で質問をさせていただきますね
長時間お付き合いいただき、本当にありがとうございました。