如何使用批处理文件自动运行VBA代码

Question

每个人，我需要根据不同的工作表名称将包含多个工作表的excel文件拆分为单个excel文件。 我发现一个VBA代码非常有效。

但是，现在我需要创建一个批处理文件来自动运行VBA代码，如何实现这一功能？ 由于我没有强大的代码经验，

希望有人能告诉我或暗示一下。 这是代码：

Sub Splitbook()
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next

Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub