WPS使用VB批量将多个sheet单独存储为xls文件

天宇skyblue

于 2021-11-02 19:37:08 发布

阅读量2.8k

点赞数 2

分类专栏：知识积累文章标签： vba

本文链接：https://blog.csdn.net/qq_24477135/article/details/121107176

版权

知识积累专栏收录该内容

34 篇文章

订阅专栏

1、首先下载安装VBA安装包，确保WPS能够使用宏。安装包自行百度下载。

2、打开一个多sheet的工作表，点击开发工具，VB编辑器。

3、打开VB编辑器后如图所示

4、右键点击project->插入->模块，粘贴如下代码

Sub SaveSheetAsWorkbook()
Dim sht As Worksheet
For Each sht In Sheets
    sht.Copy
    theName = ThisWorkbook.Path & "\" & sht.Name & ".xls"
    ActiveWorkbook.SaveAs theName
ActiveWindow.Close
Next
End Sub

5、点击保存，弹出对话框选择是即可。

6、将界面切回工作簿，点击开发工具的VB宏。

7、在弹出的界面有刚才定义的宏（1），2处可以选择某一个工作簿，然后点击运行即可完成，存储后的每个sheet保存在原工作簿的目录下，名字为每个sheet的名字。