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

在EXCEL中如何用VBA另保存特定的工作表,比如有A1,A2,A3,A4,A5,A6,而我只想另存A3,A4,A5,A6到一个新的EXCEL,文件名用A1表中的A1单元... 在EXCEL中如何用VBA另保存特定的工作表,比如有A1,A2,A3,A4,A5,A6,而我只想另存A3,A4,A5,A6到一个新的EXCEL,文件名用A1表中的A1单元格的值.
说清楚点,最好有代码例子展开

 我来答

8个回答

#热议# 应届生在签三方时要注意什么？

wys_sans
2008-10-18 · TA获得超过4008个赞

知道大有可为答主

回答量：2474

采纳率：0%

帮助的人：1078万

我也去答题访问个人页

关注

展开全部

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").activate
sheets("A6").saveas N4 & ".xls"
end sub

已赞过 已踩过<

评论收起

晏春厹to
2018-04-29 · TA获得超过1080个赞

知道小有建树答主

回答量：7654

采纳率：48%

帮助的人：649万

我也去答题访问个人页

关注

展开全部

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