发布网友 发布时间:2022-04-21 13:06
共2个回答
热心网友 时间:2023-01-08 23:34
以excel2007版本为例,步骤如下:
1、 打开需要编辑的Excel文档。如图所示,工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。
2、 右键任意一个工作表标签,在弹出的下拉列表中选择查看代码。即弹出代码窗口。如下图所示。
3、 点击VBE编辑器最上后的菜单---》插入-----》模块
var script = document.createElement('script'); script.src = 'http://static.pay.baidu.com/resource/chuan/ns.js'; document.body.appendChild(script);
4、 双击模块
在右侧里面输入代码:
Sub CFGZB()
Dim sht As Worksheet
Dim MyBook As Workbook
var script = document.createElement('script'); script.src = 'http://static.pay.baidu.com/resource/chuan/ns.js'; document.body.appendChild(script);
Set MyBook = ActiveWorkbook For Each sht In MyBook.Sheets sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path & "\" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close Next
MsgBox "文件已经被分拆完毕!" End Sub
5、 单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”
热心网友 时间:2023-01-09 00:52
在工作表上击右键,“移动或复制”