如何在 Mac 上将包含多个工作表的 Excel (.xlsx) 文件“拆分”为单独的 Sheet[n].xlsx？

Question

在问这个问题之前，我想首先承认这个问题之前已经有人回答过了这里但我仍然无法让它在我的 Mac 上运行。我看到其他人在提到的帖子中成功了，但我没有成功。

我在 Excel 中打开了开发人员标签，打开 Visual Basic 编辑器，为“ThisWorkbook”创建一个模块，粘贴下面的代码，然后点击播放按钮。

这肯定会运行代码，因为我最终将每个工作表作为相关文件夹中的新文件，但每个文件都是文件名中带有“-locked”的 TEXTEDIT 文件。打开后，文件显示为空。

使用的代码：

Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String
Set wbThis = ThisWorkbook

    For Each ws In wbThis.Worksheets
        strFilename = wbThis.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws
End Sub

文件正在保存，如下图所示： 打开后保存为名称为 -locked 的 TEXTEDIT 文件