excel用VBA另保存excel中特定的工作表

来源：百度知道 编辑：UC知道 时间：2024/06/06 10:53:41
在EXCEL中如何用VBA另保存特定的工作表,比如有A1,A2,A3,A4,A5,A6,而我只想另存A3,A4,A5,A6到一个新的EXCEL,文件名用A1表中的A1单元格的值.
说清楚点,最好有代码例子

Sub CopySelectedSheets()

'定义新工作簿名称为NewBookName
Dim NewBookName As String

'获取原工作簿(这里的名字是text.xls)第一张表格里的A1单元格内的值作为NewBookName的值
NewBookName = Workbooks("text.xls").Worksheets(1).Range("a1").Text

'复制原工作簿中第1,3,4张工作表至新的空白工作簿中
Workbooks("text.xls").Worksheets(Array(1, 3, 4)).Copy

'将新工作簿重命名为NewBookName的值
ActiveWorkbook.SaveAs NewBookName

End Sub

sub savexls()
dim N1,N2,N3,N3 as string
N1=sheets("A1").cells(1,1)
sheets("A3").activate
sheets("A3").saveas N1 & ".xls"
N2=sheets("A1").cells(1,2)
sheets("A4").activate
sheets("A4").saveas N2 & ".xls"
N3=sheets("A1").cells(1,3)
sheets("A5").activate
sheets("A5").saveas N3 & ".xls"
N4=sheets("A1").cells(1,4)
sheets("A6").activ