如何在WPS表格中用宏批量提取文件名并生成目录超链接？

功能定位：为什么仍要用宏

在 WPS Office 2026 春季版中，「批量提取文件名并生成目录超链接」看似可以用内置 FILES 函数或 Power Query 预览完成，但二者都有明显边界：前者无法返回超链接，后者在信创环境（龙芯+麒麟）下尚未完整开放。宏方案因此仍是唯一一次生成、可反复刷新、本地离线运行的通用解。

经验性观察：当需要一次性为 500 个以上散落于不同子文件夹的 PDF 合同生成回链目录时，宏耗时数十秒，而 Power Query 在同样硬件下出现「GPU 配额不足」提示（免费账号每日 30 min 限额）。

版本演进与兼容性对照

自 2021 版起，WPS 表格的 VBA 引擎逐步替换为 Kingsoft VBA 7.1，2026 春季版已支持 64 位 LongPtr 声明，因此早期「Private Declare Function」语句若未条件编译，会在信创 64 位环境报错。若你的宏在 Windows x86 环境正常，而到银河麒麟报错「找不到 DLL」，大概率是此原因。

决策树：什么时候用宏，什么时候撤退

最短操作路径（Windows 桌面端）

1. 打开 WPS 表格 → 文件 → 选项 → 信任中心 → 宏设置 → 启用所有宏（仅本机调试可开，生产环境建议「通知后启用」）。
2. 快捷键 Alt+F11 → 插入模块 → 粘贴文末「通用宏代码」。
3. 按需修改 Const ROOT 路径，例如 "E:\Contracts\2026"；子目录递归已默认 True。
4. 关闭 VBE → Alt+F8 → 选中 CreateFileIndex → 运行。
5. 运行结束自动新建工作表「FileIndex」，A 列为文件名，B 列为超链接；若需回写原表，可把 Set ws = ThisWorkbook.Sheets.Add 改成指定表。

移动端与 Linux 的特别提示

WPS Android/iOS 在 2026 版仍不支持 VBA 编辑，只能查看含宏文件的结果；若外勤人员需现场刷新，请改用「金山云文档 → 收集表 → 文件上传」组件，回公司后再用桌面端宏统一回链。

银河麒麟与统信 UOS 的宏编辑器入口：应用菜单 → 工具 → 宏 → 编辑宏，快捷键同为 Alt+F11；若发现「库未注册」提示，请用软件商店安装「WPS 宏支持包」。

通用宏代码（兼容 32/64 位）

Option Explicit
#If VBA7 Then
    Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As LongPtr, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPtr
#Else
    Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
        (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, _
         ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
#End If

Sub CreateFileIndex()
    Const ROOT As String = "E:\Demo\"          '←改为你自己的路径
    Dim ws As Worksheet, fs As Object, i As Long
    Set ws = ThisWorkbook.Sheets.Add
    ws.Name = "FileIndex"
    ws.Range("A1:B1").Value = Array("文件名", "超链接")
    i = 2
    Set fs = CreateObject("Scripting.FileSystemObject")
    RecurseFolder fs.GetFolder(ROOT), ws, i
    ws.Columns.AutoFit
    MsgBox "共提取 " & i - 2 & " 条记录", vbInformation
End Sub

Private Sub RecurseFolder(f As Object, ws As Worksheet, ByRef i As Long)
    Dim subF As Object, file As Object
    For Each file In f.Files
        ws.Cells(i, 1).Value = file.Name
        ws.Hyperlinks.Add Anchor:=ws.Cells(i, 2), Address:=file.Path, TextToDisplay:="打开"
        i = i + 1
    Next
    For Each subF In f.SubFolders
        RecurseFolder subF, ws, i
    Next
End Sub

可复现验证：如何确认提取结果正确

1. 在资源管理器选中根文件夹 → 右键 → 属性 → 查看「包含的文件数」。
2. 宏运行后，在「FileIndex」表用 =COUNTA(A:A)-1 比对，若一致则数量无误。
3. 随机抽 10 条超链接，单击后应能用系统默认程序打开；若提示「路径不存在」，多为超长路径（>260 字符）或特殊空格，需手动缩短文件夹层级。

常见故障与处置

宏被阻止：运行时错误 1004

原因：公司组策略强制「禁用所有宏」。处置：文件 → 属性 → 勾选「解除锁定」或在信任中心把文件位置加入受信任路径。

超链接点击无反应

经验性观察：若文件名含「#」「%」等 URL 保留字符，WPS 会自动转义，但麒麟系统下偶现失效。验证：把文件复制到无特殊字符路径再试；若成功，则批量改名后重新运行宏。

提取速度明显卡顿

当文件夹内包含>1 万条视频素材时，宏的「逐条写入单元格」会成为瓶颈。可改把结果先写入数组，再一次性转置到工作表，速度可见提升。

与 Python in Cells 的协同可能

2026 版支持在单元格写 =PY("glob")，但若同样要返回「可点击」的超链接，需要再调用 HYPERLINK 函数拼接，且 Python 沙箱无法访问本地 Shell，点击后只能做到「打开浏览器预览」，无法调用默认桌面程序。因此，在「完全本地、完全桌面打开」这一需求下，宏仍是不可替代。

不适用场景清单

• 文件存放于加密盘（BitLocker/国密 SM4），需先手动解锁，否则 Scripting.FileSystemObject 会报「权限拒绝」。
• 使用 SharePoint 或金山云文档的「仅云端」文件，宏无法穿透 WebDAV，需先同步到本地。
• 公司审计要求「不可写入本地临时表」，宏生成的新工作表会被日志判定为篡改；此时应改用 Power Query + 数据模型，仅驻留内存。

最佳实践 6 条

1. 把根路径设为「受信任位置」，避免每次弹警告。
2. 文件名若需中文排序，提取后加一列 =LEN(A2) 辅助，再用「数据 → 排序」。
3. 若只想提取特定后缀，在 RecurseFolder 内加 If LCase(Right(file.Name,4))=".pdf" Then 判断。
4. 把结果表设为「锁定公式」再下发给同事，可防止手误删除超链接。
5. 每月新增合同，可再次运行宏，选择「覆盖旧表」即可增量刷新。
6. 信创电脑若缺失「Scripting 运行时」，用软件商店搜索「Windows 兼容库」或「wsh」安装即可。

FAQ（结构化数据）

收尾：下一步行动

如果你正面临「合同/图纸/发票」等海量文件需定期归档，先把本文代码复制到测试文件夹跑通；确认无误后，再把根路径指向正式目录，并设置每月提醒运行一次。信创环境务必用 PtrSafe 版本，并提前验证 Scripting 库是否已安装。如此即可在 WPS 表格内获得一份可点击、可刷新、可分享的目录总表，把找文件的时间压缩到秒级。

未来版本若进一步开放 Power Query 本地驱动或 Python 沙箱的 Shell 权限，宏的不可替代性或将下降；但在 2026 春季版可验证范围内，VBA 仍是兼顾离线、批量、超链接三大需求的最短路径。