Convertire Excel VB Macro su Mac compatibile

Ho la seguente macro VB per prendere un grande file Excel e dividendolo in molti file più piccoli ciascuno costituito da 1.000 righe (999 di dati, 1 row per le intestazioni).

Sub SplitExcelFile() Dim wb As Workbook Dim ThisSheet As Worksheet Dim NumOfColumns As Integer Dim RangeToCopy As Range Dim RangeOfHeader As Range 'data (range) of header row Dim WorkbookCounter As Integer Dim RowsInFile 'how many rows (incl. header) in new files? Application.ScreenUpdating = False 'Initialize data Set ThisSheet = ThisWorkbook.ActiveSheet NumOfColumns = ThisSheet.UsedRange.Columns.Count WorkbookCounter = 1 RowsInFile = 1000 '1000 rows per file 'Copy the data of the first row (header) Set RangeOfHeader = ThisSheet.Range(ThisSheet.Cells(1, 1), ThisSheet.Cells(1, NumOfColumns)) For p = 2 To ThisSheet.UsedRange.Rows.Count Step RowsInFile - 1 Set wb = Workbooks.Add 'Paste the header row in new file RangeOfHeader.Copy wb.Sheets(1).Range("A1") 'Paste the chunk of rows for this file Set RangeToCopy = ThisSheet.Range(ThisSheet.Cells(p, 1), ThisSheet.Cells(p + RowsInFile - 2, NumOfColumns)) RangeToCopy.Copy wb.Sheets(1).Range("A2") 'Save the new workbook, and close it wb.SaveAs ThisWorkbook.Path & "/File_" & WorkbookCounter & ".xls", FileFormat:=xlWorkbookNormal wb.Close 'Increment file counter WorkbookCounter = WorkbookCounter + 1 Next p Application.ScreenUpdating = True Set wb = Nothing End Sub 

Funziona perfettamente sul PC, ma quando l'ho eseguito su Mac, si dice che l'errore riguardi un object non definito. Quindi ho pensato bene che deve essere il separatore di path non è un "\", deve essere un "/". Così la cambio e sembrava correre bene. Ha creato alless i file. Tuttavia, quando cerco di aprirli su un PC, viene visualizzato un errore che indica quanto segue:

 The file format and extension of 'File_1.xls' don't match. The file could be corrupted or unsafe. Unless you trust its source, don't open it. Do you want to open it anyway? 

Questo causa problemi quando cerco di aprirlo con PHPExcel sul sito web in cui viene utilizzato. Qualche idea su come accadere e come posso correggerlo?