如何使用batch file自动运行VBA代码

大家好，我需要将包含多个工作表的Excel文件拆分为基于不同工作表名称的各个Excel文件。 我发现了一个很好的VBA代码。

但是，现在我需要创build一个batch file来自动运行VBA代码，如何达到这个function？ 由于我没有很好的代码体验，

希望有人会告诉我或提示。 这里是代码：

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