Excel VBA:将多个工作表保存为新文件

最新推荐文章于 2024-05-23 15:03:02 发布

Avasla

最新推荐文章于 2024-05-23 15:03:02 发布

阅读量2.9k

点赞数 2

分类专栏： Excel VBA

本文链接：https://blog.csdn.net/WHYbeHERE/article/details/125970020

版权

VBA Excel 工作表复制文件操作 ActiveWorkbook

关键词由CSDN通过智能技术生成

Excel VBA 专栏收录该内容

5 篇文章 2 订阅

订阅专栏

Sub 创建文件()

'定义文本文件的名称
Dim file As String, arr, i

'指定文本文件的名称
file = ThisWorkbook.Path & "\需要复制的文件名.xlsx"

'在下面Array中列出所有需要复制的工作表的名称
Worksheets(Array("sheet1", "sheet2", "sheet3")).Copy
 
Set wbNew = ActiveWorkbook
 
With wbNew
 
    ActiveWorkbook.SaveAs Filename:=file
 
    .Close
 
End With
 
End Sub