Excel 在Mac OS中重命名文件

我编写了一段代码，它从A列读取文件名，并将其重命名为B列，前提是A列中指定的文件存在于输入文件夹中

Sub Rename_click()
    Dim inputFolder$, iFile$, oFile$
    Dim iRow&, lRow&

    inputFolder = ThisWorkbook.Path & Application.PathSeparator & "Input"

    With shInput
        If .FilterMode Then .ShowAllData
        lRow = .Cells(.Rows.Count, "A").End(xlUp).Row

        For iRow = 2 To lRow
            iFile = .Cells(iRow, "A")
            oFile = .Cells(iRow, "B")

            If iFile <> "" And oFile <> "" Then    
                If Dir(inputFolder & Application.PathSeparator & iFile) <> "" Then
                    Name inputFolder & Application.PathSeparator & iFile As inputFolder & Application.PathSeparator & oFile
                End If
            End If
        Next
    End With
End Sub

子重命名\u单击（）
Dim inputFolder$、iFile$、oFile$
昏暗的伊洛&伊洛&
inputFolder=ThisWorkbook.Path&Application.PathSeparator&“输入”
用shInput
If.FilterMode Then.ShowAllData
lRow=.Cells（.Rows.Count，“A”）.End（xlUp）.Row
对于iRow=2至iRow
iFile=.Cells（箭头“A”）
oFile=.Cells（箭头“B”）
如果iFile“”和oFile“”，则
如果目录（inputFolder&Application.PathSeparator&iFile）“，则
将inputFolder&Application.PathSeparator&iFile命名为inputFolder&Application.PathSeparator&oFile
如果结束
如果结束
下一个
以
端接头

---

它在Windows下工作。如何使其与Mac兼容？

可能会有一些用处。不确定Excel是否是管理文件系统的最佳工具，似乎对Mac上的VBA有很多经验。@MarkSetchell Thans for，但我看不到任何重命名文件代码。为什么您认为它不起作用？您是否有错误信息、错误行为等。。。？请相应地编辑您的问题。可能有用。不确定Excel是否是管理文件系统的最佳工具，似乎对Mac上的VBA有很多经验。@MarkSetchell Thans for，但我没有看到任何重命名文件代码。为什么您认为它不起作用？您是否有错误信息、错误行为等。。。？请相应地编辑您的问题。