在Mac上运行用Windows编写的VBA代码

Question

我编写了一些VBA来浏览一个文件夹，并将电子表格合并到一个主文件中。我需要做的第一件事是查找扩展名为.xl*的文件夹中的所有文件。

我是在Windows机器上写的，现在有人想在Mac上运行它。

我已经把线从

Fname = Dir(ThisWorkbook.Path & "/*.xl*")

至

Fname = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xl*")

但是我得到了一个:运行时错误68 -设备不可用错误。

怎么才能让这条线在Mac上运行呢？

以下是完整的代码供参考：

Sub Consolidation()
  Application.ScreenUpdating = False
 'find last record in mastersheet
 Set destsheet = ThisWorkbook.Worksheets("Consolidated")
 Set MyRange = Worksheets("Consolidated").Range("C" & "1")
 lngLastRow = Cells(Rows.Count, MyRange.Column).End(xlUp).Row
 
 'looks for files with the follwing extension
 'Fname = Dir(ThisWorkbook.Path & "/*.xl*")
 Fname = Dir(ThisWorkbook.Path & Application.PathSeparator & "*.xl*")
 
 'cycles through the folder
 Do While Fname <> ""

        If Fname <> ThisWorkbook.Name Then
        Application.StatusBar = "Processing: " & Fname
                
        Set wkbkorigin = Workbooks.Open(ThisWorkbook.Path & "/" & Fname)
            Set originsheet = wkbkorigin.Worksheets("Sheet1")
            n = 0
            m = 0
            'adds recods to the next avaibale row
            'destsheet.Range("B4").Offset(lngLastRow + 1, 1) = originsheet.Range("E4").Value
            destsheet.Range("C" & lngLastRow + 1) = originsheet.Range("E4").Value
            destsheet.Range("D" & lngLastRow + 1) = originsheet.Range("E5").Value
            destsheet.Range("E" & lngLastRow + 1) = originsheet.Range("E6").Value
            destsheet.Range("F" & lngLastRow + 1) = originsheet.Range("E7").Value
            destsheet.Range("G" & lngLastRow + 1) = originsheet.Range("E8").Value
            destsheet.Range("H" & lngLastRow + 1) = originsheet.Range("E9").Value
            destsheet.Range("I" & lngLastRow + 1) = originsheet.Range("E10").Value
            
            lngLastRow = lngLastRow + 1
            wkbkorigin.Close SaveChanges:=False   'close current file
 
        End If
        'stips when out of files to import
        Fname = Dir()
Loop

Application.ScreenUpdating = True
End Sub

Answer 1

尝试在MacOS安全首选项窗格上设置Excel的“文件和文件夹”权限。