Python调用VBA报Expected: end of statement编译错误排查

你存为.vbs的代码是仅能在Excel VBA编辑器中运行的VBA代码，并非符合VBScript语法规范的独立脚本，二者运行环境不兼容，直接运行必然触发编译错误。

你看到的Compile error: Expected: end of statement错误，第一触发点是VBScript不支持VBA的强类型声明语法：VBS是弱类型语言，所有变量仅用Dim 变量名声明即可，不支持Dim 变量名 As 类型的写法，脚本解析到As关键字时就判定当前语句应当结束，后续的类型名属于非法语法，直接抛出该错误。

除了这个直接触发点，代码里还有其他VBS环境不兼容的问题，就算删掉所有As 类型片段，后续依然会报错：

• 缺失Excel专属常量定义：VBA环境内置了xlDatabase/xlRowField/xlTabularRow这类Excel枚举常量，独立运行的VBS没有这些内置值，直接引用会报未定义错误
• 无默认Excel对象上下文：VBA运行在Excel进程内，Application/ActiveWorkbook/Worksheets都是全局可直接调用的对象；独立VBS没有默认绑定的Excel上下文，必须显式创建Excel应用实例才能操作Excel文件
• 部分方法调用的参数规则差异：VBA支持部分省略父对象的简写，VBS调用时需要明确指定所有父对象层级，否则会出现对象找不到的错误

将代码调整为符合VBS语法的版本，核心修改点：

1. 删除所有As 类型的强类型声明
2. 脚本开头显式创建Excel应用对象，后续所有Excel操作都基于该对象实例完成
3. 补全VBA内置常量的实际值，或通过Excel应用实例引用这些常量
4. 操作完成后显式关闭工作簿、退出Excel进程、释放对象，避免后台残留Excel进程

修正后的可正常运行的.vbs代码示例：

' 自定义Excel常量，也可直接通过xlApp实例引用常量无需手动定义
Const xlUp = -4162
Const xlToLeft = -4159
Const xlDatabase = 1
Const xlRowField = 1
Const xlColumnField = 2
Const xlDataField = 4
Const xlTabularRow = 1

Dim xlApp, wb, PTable, PCache, PRange, PSheet, DSheet, LR, LC
' 创建Excel应用实例
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False ' 后台运行，不需要显示Excel窗口
xlApp.DisplayAlerts = False
xlApp.ScreenUpdating = False

' 替换为你实际要处理的Excel文件绝对路径
Set wb = xlApp.Workbooks.Open("C:\your\file\path\test_report.xlsx")

' 删除旧透视表、新建工作表
On Error Resume Next
wb.Worksheets("Pivot Sheet").Delete
On Error GoTo 0
wb.Worksheets.Add(, wb.ActiveSheet).Name = "Pivot Sheet"

Set PSheet = wb.Worksheets("Pivot Sheet")
Set DSheet = wb.Worksheets("TestResultDetails")

' 定位数据源范围
LR = DSheet.Cells(DSheet.Rows.Count, 1).End(xlUp).Row
LC = DSheet.Cells(1, DSheet.Columns.Count).End(xlToLeft).Column
Set PRange = DSheet.Cells(1, 1).Resize(LR, LC)

' 生成透视表
Set PCache = wb.PivotCaches.Create(xlDatabase, PRange)
Set PTable = PCache.CreatePivotTable(PSheet.Cells(1, 1), "Report")

' 配置透视表字段
With PSheet.PivotTables("Report").PivotFields("Modules")
    .Orientation = xlRowField
End With
With PSheet.PivotTables("Report").PivotFields("ExecutionStatus")
    .Orientation = xlColumnField
End With
With PSheet.PivotTables("Report").PivotFields("ExecutionStatus")
    .Orientation = xlDataField
End With

' 设置透视表样式
PSheet.PivotTables("Report").ShowTableStyleRowStripes = True
PSheet.PivotTables("Report").TableStyle2 = "PivotStyleMedium14"
PSheet.PivotTables("Report").RowAxisLayout xlTabularRow

' 保存、清理
wb.Save
wb.Close
xlApp.Quit

' 释放COM对象，避免进程残留
Set PTable = Nothing
Set PCache = Nothing
Set PRange = Nothing
Set PSheet = Nothing
Set DSheet = Nothing
Set wb = Nothing
Set xlApp = Nothing

注意：如果通过Python调用vbs，需要确保脚本里的Excel文件路径写绝对路径，不要写相对路径，避免因运行目录不一致导致找不到文件。

内容的提问来源于stack exchange，提问作者Manoj Kumar