ApPDFSplit-Merge 可以快速的分割、合并PDF文档,简单易用,为了方便使用,已经将其封装为单文件版,已设定分割、合并 *** 作成茄孙功后不自动生成Result.log日志文件。
1、芦基打开表格,可以看到一个工作簿中有多个祥态工作表。
2、右击工作表名称,点击查看代码(V)。
3、显示如下页面。
4、空白处,复制黏贴如下代码:
Private Sub 分拆陪宴谨工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
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、点击运行-运行子过程/用户窗体。
6、完成后,保存,显示如下,工作表已经拆分成单独的文件了。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)