WPS 宏操作与 JavaScript 代码兼容性分析
学习笔记作者：admin日期：2025-09-07点击：29
摘要：本文分析了如何在 WPS 中运行宏，并解释了为什么提供的 JavaScript 代码无法直接执行。文章提供了正确的 VBA 代码示例，以及在 WPS 中运行宏的详细步骤。
引言
你提供的这段代码是 VBA（Visual Basic for Applications）风格的语法，但它使用了 JavaScript 的写法（如 `const`, `let`, `function`, `map` 等），所以它 不是标准的 VBA 代码，也不是标准的 JavaScript 代码。
问题一：这段代码为什么可以操作 WPS？
答案：目前不能直接运行。
虽然 WPS Office 支持宏（Macro）功能，但它的宏语言支持有限，具体如下：
- WPS Office 个人版（免费版）：不支持 VBA，宏功能被禁用。
- WPS Office 专业版 / 企业版：支持 VBA 模块（Visual Basic for Applications），但需要单独安装 VBA 插件。
- 不支持 JavaScript 编写的宏 —— 即使语法像 JS，WPS 宏引擎只认 VBA。
所以你写的这段代码虽然是“类 VBA 逻辑”，但用了 JavaScript 语法，在 WPS 中 无法直接执行。
代码的问题分析
| 问题 | 说明 |
|---|---|
const workbook = Application.ActiveWorkbook; |
WPS VBA 中应为 Dim workbook As Workbook: Set workbook = Application.ActiveWorkbook |
for (let i = 1; i <= sheets.Count; i++) |
VBA 不支持 let 和 for...in 这种 JS 语法 |
cell.Comment.Text() |
在 VBA 中应为 cell.Comment.Text 或 cell.Comment.Text()，但调用方式不同 |
comments.map(...) |
VBA 没有 map() 方法 |
newSheet.Range("A2").Resize(...) |
类似语法可在 VBA 使用，但对象模型略有差异 |
正确做法：将代码改写为 WPS 可执行的 VBA 代码
下面是你这段逻辑的 正确 VBA 版本，可以在 WPS 专业版 + VBA 插件环境下运行：
Sub ExtractComments()
Dim workbook As Workbook
Dim sheets As Sheets
Dim comments As Object ' Collection to store comment info
Set comments = CreateObject("System.Collections.ArrayList")
Set workbook = Application.ActiveWorkbook
Set sheets = workbook.Worksheets
Dim i As Integer, row As Long, col As Long
Dim sheet As Worksheet
Dim usedRange As Range
Dim cell As Range
Dim commentText As String
' Loop through all worksheets
For i = 1 To sheets.Count
Set sheet = sheets(i)
Set usedRange = sheet.UsedRange
' Loop through each cell in used range
For row = 1 To usedRange.Rows.Count
For col = 1 To usedRange.Columns.Count
Set cell = usedRange.Cells(row, col)
If Not cell.Comment Is Nothing Then
commentText = cell.Comment.Text
comments.Add Array(sheet.Name, cell.Address, cell.Value2, commentText)
End If
Next col
Next row
Next i
' Create or reuse "批注" sheet
Dim newSheet As Worksheet
On Error Resume Next
Set newSheet = sheets("批注")
On Error GoTo 0
If newSheet Is Nothing Then
Set newSheet = sheets.Add
newSheet.Name = "批注"
Else
newSheet.Cells.Clear
End If
' Write headers
newSheet.Range("A1:D1").Value = Array("工作表名称", "单元格地址", "单元格文字", "批注内容")
' Write data
If comments.Count > 0 Then
Dim data As Variant
ReDim data(1 To comments.Count, 1 To 4)
Dim idx As Integer
For idx = 0 To comments.Count - 1
data(idx + 1, 1) = comments(idx)(0) ' sheet name
data(idx + 1, 2) = comments(idx)(1) ' address
data(idx + 1, 3) = comments(idx)(2) ' value
data(idx + 1, 4) = comments(idx)(3) ' comment
Next idx
newSheet.Range("A2").Resize(comments.Count, 4).Value = data
End If
' AutoFit columns
newSheet.Columns("A:D").AutoFit
MsgBox "批注提取完成！", vbInformation
End Sub如何在 WPS 中运行这个宏？
步骤一：确认环境支持
- 使用 WPS Office 专业版或企业版
- 安装 WPS VBA 模块（官网下载 "VBA插件" 或 "宏支持包"）
下载地址参考：https://www.wps.cn/product/vba.html（以官网为准）
步骤二：打开 VBA 编辑器
- 打开 WPS 表格（.xlsx 文件）
- 按下
Alt + F11打开 VBA 编辑器 - 在左侧项目中，右键
VBAProject→ 插入 → 模块 - 将上面的 VBA 代码粘贴进去
步骤三：运行宏
- 回到 WPS 表格界面
- 点击菜单栏「开发工具」→「宏」（如果没有，可在“自定义功能区”中启用）
- 选择
ExtractComments宏 → 运行
⚠️ 如果没有“开发工具”选项卡，请在“文件”→“选项”→“自定义功能区”中勾选“开发工具”。
补充：如果你希望用 JavaScript 操作 Office 文件？
| 方案 | 说明 |
|---|---|
| Office Add-ins + JavaScript / Office JS API | 适用于 Microsoft 365，不支持 WPS |
| Node.js + ExcelJS / SheetJS (xlsx) | 可读写 .xlsx 文件，但无法操作正在运行的 WPS 实例 |
| Python + win32com | 可自动化操作 Excel，但对 WPS 支持不稳定 |
? 所以目前只有 VBA 是 WPS 唯一稳定的宏自动化方式。
总结
| 问题 | 回答 |
|---|---|
| 为什么这段代码不能操作 WPS？ | 因为它是 JavaScript 语法，而 WPS 只支持 VBA |
| 如何让它运行？ | 改写为 VBA 代码，并在 WPS 专业版 + VBA 插件中运行 |
| 是否支持 JS 写宏？ | ❌ WPS 不支持 JavaScript 宏 |
建议
如果你坚持想用 JS 风格开发，建议：
- 使用 Microsoft Excel + Office Web Add-in 开发插件
- 或使用 Python 脚本处理 .xlsx 文件（如
openpyxl）
但若必须用 WPS 自动化，请使用 VBA。
需要我帮你把这段 VBA 打包成可导入的 .bas 文件？或者添加更多功能（如导出到文件）？欢迎继续提问！