複数ブックを一つのシートにまとめたい

Question

エクセルの複数ブック（同じフォーマットの企業情報の表）を一つのシートにまとめたいと思っています。

発生している問題・エラーメッセージ

エラー91

エラーメッセージ
オブジェクト変数またはwithブロック変数が設定されていません。

該当のソースコード

Sub tenki()
    Dim folder As String
    Dim file As String
    Dim book As Workbook
    Dim i As Integer
    i = 2
    
    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show = True Then
            folder = .SelectedItems(1)
        End If
    End With
    
    file = Dir(folder & "*.xlsx")
    
    Do While file <> ""
    
        Set book = Workbooks.Open(folder & "\" & file)
        
        ThisWorkbook.Worksheets("Sheet1").Range("A" & CStr(i)).Value = book.Worksheets("Sheet1").Range("E5").Value
        ThisWorkbook.Worksheets("Sheet1").Range("B" & CStr(i)).Value = book.Worksheets("Sheet1").Range("E7").Value
        ThisWorkbook.Worksheets("Sheet1").Range("C" & CStr(i)).Value = book.Worksheets("Sheet1").Range("E11").Value
        ThisWorkbook.Worksheets("Sheet1").Range("D" & CStr(i)).Value = book.Worksheets("Sheet1").Range("N11").Value
        ThisWorkbook.Worksheets("Sheet1").Range("E" & CStr(i)).Value = book.Worksheets("Sheet1").Range("W5").Value
        ThisWorkbook.Worksheets("Sheet1").Range("F" & CStr(i)).Value = book.Worksheets("Sheet1").Range("W8").Value
        ThisWorkbook.Worksheets("Sheet1").Range("G" & CStr(i)).Value = book.Worksheets("Sheet1").Range("W11").Value
        ThisWorkbook.Worksheets("Sheet1").Range("H" & CStr(i)).Value = book.Worksheets("Sheet1").Range("AK5").Value
                
        file = Dir()
        i = i + 1
        
        book.Close
    Loop
    
End Sub

試したこと

初心者で実はインターネットから拾ってきたソースをコピペしただけで原因がわからずに困っております。
作業環境はmacです。

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[kobac]

同じエラーが再現しない・・・。Set book = Workbooks.Open(folder & "\" & file) の行が実際には無かったりしませんか？

[sazi]

同じく再現しません。どの行でエラーになっていますか？

[imihito]

macだとパスの区切り文字（`Application.PathSeparator`）は何になるのでしょうか？

Answer 1

MacだとApplication.FileDialogがないのではないでしょうか。
またDir関数も存在しないようです。
よって拾ってきたWindows用のコードを使おうとすると、かなりの改造が必要になると思われます。
スキルがあれば似た動作をする処理を作りこむことも可能でしょうけど、初心者とのことでそれも厳しいでしょう。
Mac版Excelのマクロをご自身で勉強するか、似た処理のMac版を探すか、どちらかになるかと思います。
調べてればこちらで作ることも可能かもしれませんが、当方Mac環境ではありませんし、そこまですると丸投げになりteratailでは推奨されていない質問になります。

Comments

[kurosuke1985]

macの場合にはwindowsとコードが異なることも知りませんでした。ご教授いただきまして、ありがとうございました。おっしゃる通りでおそらく、現時点では初心者のため複雑な改造は難しいと思います。もう少し勉強してみるか、windowsで対応可能か社内で相談してみようと思います。またわからないことがあれば質問させていただきたいと思います。ご丁寧にありがとうございました。