Объединение CSV в один WORKSHEET Excel для Mac

Детали-

У меня 119 файлов .csv. Я хочу разместить их на одном листе и поместить имя файла в каждую ячейку столбца для данных, поступающих из этого файла. Поэтому каждая строка, полученная из этого файла, имеет имя файла в столбце A.

Я использую MAC Excel 16, поэтому структура пути в ОС MAC отличается от Windows. Я записал еще одну информацию о загрузке макроса из одного файла csv, и созданный путь – это путь, показанный ниже.

Код, который я нашел и с которым работал, следующий:

Sub ImportCSV() 'Author:   Jerry Beaucaire 'Date:     10/16/2010 'Summary:  Import all CSV files from a folder into a single sheet '          adding a field in column A listing the CSV filenames Dim wbCSV  As Workbook Dim wsMstr As Worksheet:   Dim fPath  As String:         Dim fCSV   As String Set wsMstr = ThisWorkbook.Sheets("Sheet1") fPath = "/Users/bensimmons/Downloads/GMI/" Application.ScreenUpdating = False fCSV = Dir(fPath & "*.csv") Do While Len(fCSV) > 0      Set wbCSV = Workbooks.Open(fPath & fCSV)      Columns(1).Insert xlShiftToRight Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).End(xlUp).Offset(1) wbCSV.Close False fCSV = Dir    Loop  Application.ScreenUpdating = True End Sub 

Я получаю ошибку компиляции: «Sub или Function not defined (ThisWorkbook 7:26)« Я исследовал ее, но не могу понять, что неправильно ссылается.

Благодаря комментариям ниже я обновил код:

 Sub ImportCSV() Dim wbCSV  As Workbook Dim wsMstr As Worksheet: Dim fPath  As String: Dim fCSV   As String Set wsMstr = ThisWorkbook.Sheets("Sheet1") fPath = "/Users/bensimmons/Downloads/GMI/" Application.ScreenUpdating = False fCSV = Dir(fPath, MacID("CSV")) Do While Len(fCSV) > 0 Set wbCSV = Workbooks.Open(fPath & fCSV) Columns(1).Insert xlShiftToRight Columns(1).SpecialCells(xlBlanks).Value = ActiveSheet.Name ActiveSheet.UsedRange.Copy wsMstr.Range("A" & Rows.Count).End(xlUp).Offset(1) wbCSV.Close False fCSV = Dir Loop Application.ScreenUpdating = True End Sub 

Я не получаю никаких ошибок, но ничего не происходит, когда я запускаю макрос.

Давайте будем гением компьютера.