Excel卡死不能读取文件？用这招一键导出完整数据

“哎呀！又卡死了！”

艾迷糊的哀嚎响彻整个办公区。他盯着电脑屏幕，疯狂地晃动鼠标，Excel已经完全失去了响应。

小毕探过头去：“迷糊，你又干啥了？”

“老板让我把这二十个sheet的数据都导出来单独存成文件，我正一个sheet一个sheet地新建工作簿、复制、粘贴、保存……弄到第五个就卡成这样了！”

老威端着保温杯路过，看了一眼屏幕右下角的“未响应”，又看了一眼艾迷糊绝望的表情，慢悠悠地开口：

“迷糊啊，你这就像什么呢？就像搬家的时候，一趟一趟地抱着衣服下楼，而不是找个行李箱一次装好。”

艾迷糊眼睛一亮：“威哥，行李箱在哪儿？给我一个！”

第一课：——给工作簿拍个快照

老威没有直接回答，而是打开了一个新的Excel文件，按下了 `Alt + F11`。

“看好了，小毕你也过来听听。”

他敲下一段代码：

Sub 打包当前文件()
ThisWorkbook.SaveCopyAs "C:\我的备份\原始文件备份.xlsx"
End Sub

“就这么简单？”小毕有点惊讶。

“这叫 ``，”老威喝了一口茶，“就像你去照相馆拍证件照，咔嚓一下，你当时的模样就被定格在照片上了。当前文件是什么状态，复制出来的就是什么状态，而且是完整的——所有sheet，所有公式，全都在。”

艾迷糊凑过来：“那我能用它把我这二十个sheet一次性变成二十个文件吗？”

老威看了他一眼：“你让照相馆给你拍一张照片，能变成二十张不同的照片吗？”

艾迷糊：“呃……不能。”

---

第二课：工作表导出，本质是“单独搬出来”

老威重新打开代码窗口，边写边说：

“你要的是把每个sheet变成独立的工作簿。这就像什么呢？就像你有一盒拼好的乐高城堡，现在要把它拆成二十个小房子，每个房子单独装一个盒子。”

他一边说一边敲：

Sub 导出所有工作表()
Dim ws As Worksheet
Dim 新工作簿路径 As String
新工作簿路径 = "C:\导出文件\" ' 假设这个文件夹已经存在
For Each ws In ThisWorkbook.Worksheets
ws.Copy ' 这一行是关键！
ActiveWorkbook.SaveAs 新工作簿路径 & ws.Name & ".xlsx"
ActiveWorkbook.Close SaveChanges:=True
Next ws
MsgBox "打包完成！"
End Sub

小毕指着 `ws.Copy` 那一行：“等等，威哥，为什么这里只写 `Copy`，不写复制到哪里？”

“问得好！”老威赞许地点点头，“Excel的 `Copy` 方法有两种用法：一种是复制到某个具体位置，比如复制到A1单元格；另一种是——如果不指定位置，就默认复制到一个全新的工作簿里。”

他看着两人，又补充了一句：“就像你去奶茶店点单，‘来一杯奶茶’——如果不指定口味，店员就看着你，等你继续。而这里如果不指定位置，Excel就默认给你开个新店。”

第三课：参数解读——Copy 方法的秘密

艾迷糊挠挠头：“那如果我想只复制当前选中的sheet呢？”

老威笑了：“你小子终于开始动脑筋了。来看这个——”

他新建了一个模块，写下：

Sub 导出选中工作表()
Dim 选中的表 As Worksheet
Set 选中的表 = ActiveSheet
选中的表.Copy ' 什么都不加，复制到新工作簿
ActiveWorkbook.SaveAs "C:\导出文件\" & 选中的表.Name & ".xlsx"
ActiveWorkbook.Close
End Sub

“这就是 `Copy` 方法不带任何参数的情况——复制到新工作簿。”

他又敲了一个例子：

' 复制到另一个工作表的最前面
Sheets("Sheet1").Copy Before:=Sheets("Sheet2")
' 复制到最后面
Sheets("Sheet1").Copy After:=Sheets(Sheets.Count)

“看到没？`` 和 `After` 是 `Copy` 方法的两个参数。你告诉它放在谁前面，它就放在谁前面；你告诉它放在谁后面，它就放在谁后面。什么都不告诉？那就开新店。”

小毕若有所思：“所以参数就是指令，告诉Excel‘放这儿’或‘放那儿’？”

“没错！”老威一拍桌子，“Excel就像个听话但不太聪明的实习生，你不说清楚，它就按默认的来；你说清楚了，它就照做。”

第四课：从打包到搬家——引出文件操作

这时，艾迷糊突然举手：“威哥，那我能不能把导出的文件自动发邮件给老板？”

老威看着他，眼神复杂：“你这就有点像什么呢？刚学会走路就想参加马拉松。”

但他还是打开了另一个窗口：

“如果你学会了导出工作表，接下来可以学的是——”

- 遍历文件夹：用 `Dir` 函数找到所有文件

- 打开文件：用 `.Open`

- 合并数据：把多个文件的内容汇总到一起

- 发邮件：用 `(".")`

“导出是往外走，导入是往里收。当你掌握了这两个方向，你就真正掌握了数据的流动。”

小毕认真地在本子上记着：“导出是打包，导入是拆包，邮件是快递……”

老威笑了：“你这总结比我的还精辟。”

---

结尾：笨办法 vs 好工具

第二天一早，艾迷糊得意洋洋地走进办公室。

“老板让我今天再导出一次，我用了威哥的代码，三秒钟搞定！老板惊呆了！”

小毕也凑过来：“我用笨办法弄了一下午的那个报表，威哥用代码两分钟就给我搞定了。”

老威端着保温杯，看着这两个年轻人，悠悠地说：

“技术这东西，就像骑自行车和走路。走路也能到，但你到了，人家骑车的已经绕地球一圈回来了。没必要跟自己过不去。”

艾迷糊突然问：“威哥，那你什么时候教我们骑电动车？”

老威被逗乐了：“先把自行车骑稳了再说吧！”

窗外阳光正好，办公室里响起一阵笑声。

【知识点回顾】

- `.`：给当前文件做备份

- `ws.Copy`：不指定位置时，复制到新工作簿

- `Copy /After`：指定复制的位置

- 导出工作表的完整流程：遍历每个sheet → 复制到新工作簿 → 保存 → 关闭

【下集预告】 当文件多到需要批量处理时，如何用VBA遍历文件夹里的所有Excel？

文件 复制 老威 工作簿 迷糊 sheet