excel文件里有多个sheet，把每个sheet全部导出为单独的xls或xlsx

黄子晴 · 发表于 2023-4-6 17:07:21

本帖最后由黄子晴于 2023-4-7 10:01 编辑

1.Alt+F11 进入VBE
2.菜单：插入-模块。
3.复制下面的代码到光标处
4.Alt+F11回到Excel
5.Alt+F8 选Test,点击运行

Sub Test()
      Dim Sht As Worksheet
      For Each Sht In Sheets
            Sht.Copy
            ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & Sht.Name & ".xlsx"
            ActiveWorkbook.Close
      Next
End Sub

dongxy · 发表于 2023-4-6 17:33:21

我去试下~

刘小燕儿 · 发表于 2023-4-6 19:13:08

苏幼密 · 发表于 2023-4-7 09:09:34

收藏收藏宝藏小技巧

李子木 · 发表于 2023-4-7 10:32:59

收藏收藏~

唱弘丽 · 发表于 2023-4-7 11:50:53

亲测好用

louxiaolu · 发表于 2023-4-7 13:48:05

本帖最后由 louxiaolu 于 2023-4-7 13:52 编辑

谢谢分享

louxiaolu · 发表于 2023-4-7 14:46:39

好用，亲测

Luuiz · 发表于 2023-4-7 17:25:40

实用技巧加一

549669126 · 发表于 2023-4-7 19:43:00

还可以用“常用工具箱”，简单好用

excel文件里有多个sheet，把每个sheet全部导出为单独的xls或xlsx

热心会员