如何在不打开文件夹的情况下批量提取文件名到WPS单元格？

为什么“不打开文件夹”反而更高效

关键词“批量提取文件名到WPS单元格”看似小众，却是日报、质检、电商运营的共同痛点：每天数百张截图、发票、订单PDF需要按文件名建台账。传统“复制→粘贴文件名”不仅反复打开资源管理器，还常漏选或格式错乱。借助 WPS Spreadsheets 内置的 Power Query（桌面版）或 VBA（Windows 版），可在后台完成抓取，既减少手误，也避免把路径暴露给协作成员。

约束先说清楚：① 仅抓取“文件名+扩展名”，不递归子文件夹；② 需要 Windows 桌面版 WPS（截至当前最新 12.3 系列），macOS 与移动端暂不支持 Power Query；③ 若公司禁用宏，VBA 方案需提前申请白名单。边界明确后，再选工具就不会走弯路。

方案总览：Power Query 与 VBA 的取舍

维度	Power Query	VBA
学习曲线	图形化，公式自动生成	需写 8 行代码，但可一键复用
刷新方式	“数据→刷新”或文件打开时自动	点击按钮或快捷键
跨工作簿复制	需重新指向路径	模块导出→导入即可
权限限制	无需宏，适合严管环境	需启用宏，部分公司禁用

经验性观察：文件量低于 1 000 且更新频率为“一周一次”时，Power Query 更轻；若每天新增文件超过 500 且需按日期过滤，VBA 可在 10 秒内完成并自动分类，性价比更高。

Power Query 路径：五步完成无代码抓取

步骤 1 打开查询编辑器

启动 WPS Spreadsheets → 菜单栏“数据”→“获取数据”→“自文件夹”。若未见“获取数据”，请确认已更新到 12.3 系列并勾选“高级功能”复选框（文件→选项→高级→实验功能）。

步骤 2 指向目标文件夹

在弹出的文件夹路径对话框，直接粘贴如 C:\Invoices\2026-03，无需点“浏览”进入资源管理器。确认后，Power Query 会扫描目录并返回一个预览表，含 Name、Extension、Date modified 等列。

步骤 3 清洗与筛选

若只想保留 PDF，点击“Extension”列筛选框，取消全选后勾“.pdf”。如需去掉“_v2”这类临时文件，可在“Name”列使用“文本筛选→不包含”。所有操作被记录成 M 语句，可随时回退。

步骤 4 载入到单元格

点击右上角“关闭并加载”→选择“表”→指定起始单元格如 A2。加载完成后，A 列即呈现干净文件名，B 列可再写公式 =HYPERLINK("C:\Invoices\2026-03\"&A2,"打开") 实现快速跳转。

步骤 5 设置自动刷新

右键查询表→“表格→外部数据属性”→勾选“打开文件时刷新”。以后只要将新 PDF 丢进文件夹，重新打开 WPS 即可同步最新清单，全程无需再打开文件夹窗口。

VBA 路径：8 行代码一键抓名单

启用开发工具

文件→选项→自定义功能区→勾选“开发工具”。若公司模板默认隐藏，可在“COM 加载项”中临时关闭组策略。

插入模块并粘贴代码

Sub ListFileNames()
    Dim fso, folder, file, rng As Range, i As Long
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set folder = fso.GetFolder(ThisWorkbook.Path) '当前工作簿同级目录
    Set rng = Sheets(1).Range("A2") '起始单元格
    i = 0
    For Each file In folder.Files
        rng.Offset(i, 0).Value = file.Name
        i = i + 1
    Next
    MsgBox "共写入 " & i & " 个文件名", vbInformation
End Sub

运行与绑定按钮

开发工具→插入→“按钮(窗体控件)”→拖放绘制→指定宏“ListFileNames”。以后点击按钮即可刷新，无需再进 VBA 编辑器。

平台差异与版本前提

• Windows 版 WPS：Power Query 与 VBA 均原生支持；路径以 12.3 版菜单为准，旧版 11.x 需手动装插件。
• Linux 版：仅支持 VBA 解释器，但 FileSystemObject 需系统装 mono-complete，经验性观察成功率约七成。
• macOS 版：Power Query 尚未移植；VBA 不含 Scripting.Runtime，可用内置 Dir 函数替代，但无法一次性取完整列表。
• 移动端（Android/iOS/HarmonyOS）：均不支持本地文件夹扫描，可改用“WPS 网盘→批量重命名→复制列表”曲线救国，但已脱离本文“不打开文件夹”范畴。

常见分支：只抓特定类型、按日期排序

Power Query 在筛选后可再添加“自定义列”，写入公式 =Date.ToText([Date created],"yyyy-MM-dd")，然后按该列升序排列并“关闭并加载”。VBA 则可在循环内加条件 If LCase(Right(file.Name,4))=".pdf" Then ...，再用数组收集后一次性写入，减少单元格交互次数。

回退与故障排查

现象：Power Query 提示“找不到文件夹”

可能原因：路径含中文空格且被 URL 编码；或文件夹映射为网络驱动器但尚未登录。验证：在资源管理器地址栏直接粘贴路径能否回车进入；处置：将路径改写为 UNC 格式 \\server\share\invoices，或在“数据→查询→编辑”里手动改源。

现象：VBA 报“用户定义类型未定义”

原因：工程引用丢失 Microsoft Scripting Runtime。工具→引用→勾选“Scripting”即可；若 Linux 版无此选项，改用 late binding 代码 CreateObject("Scripting.FileSystemObject") 可绕过。

适用/不适用场景清单

场景	建议方案	理由
财务每天 50 张发票建台账	Power Query	免宏，合规好交代
电商日出千图，按日期拆表	VBA	可边抓边分类，速度优势明显
公司禁用一切宏	Power Query 或网盘 API	避免违反组策略
文件夹在 macOS 本地	手动→更名→复制列表	Power Query/VBA 均受限

最佳实践 5 条（检查表）

1. 统一文件命名规则：用“yyyy-mm-dd_项目_序号”格式，方便后续用公式拆分，无需再手动补日期。
2. 把“抓名单”工作簿放在同级目录，用相对路径，这样复制到另一硬盘不会报错。
3. Power Query 加载后，将表命名为 tblFiles，后续透视表可直接引用，改名自动同步。
4. VBA 方案请把 Application.ScreenUpdating 与 EnableEvents 成对开关，防止残留状态影响其他宏。
5. 每月清理过期文件前，先用“查询→刷新”确认名单，防止误删在台账中仍标记为“待审”的记录。

FAQ（结构化数据）

核心结论与下一步行动

批量提取文件名到 WPS 单元格的实质，是把“只读目录扫描”自动化：Power Query 零代码、适合合规严管；VBA 轻量灵活、适合高频大数据。选定方案后，先在小目录验证 20 个文件，确认刷新时间与格式符合预期，再推广到正式业务目录。下一步，你可以把名单与数据透视表联动，实现“文件未到、台账先行”的自动化流程，也可结合 WPS 云盘 API 把名单即时推送给同事，彻底告别手动复制时代。