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

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

举报该文章

相关建议 2019-10-13

代码如下： sub 分开存为工作薄() dim sh as worksheet dim wk1 as workbook dim wk2 as workbook dim ipath as string application.screenupdating = false ‘将屏幕更新关闭 application.displayalerts = false ipath = thisworkbook.path & "\" '保存路径为当前工作簿所在路径 set wk1 = workbooks.add set wk2 = workbooks.add wk1.saveas ipath & "部门" & ".xls" wk2.saveas ipath & "基层" & ".xls" '将工作表分别复制到部门或基层工作薄中 for each sh in thisworkbook.worksheets with sh if .name like "*部门*" then .copy before:=workbooks("部门").worksheets("sheet1") elseif .name like "*基层*" then .copy before:=workbooks("基层").worksheets("sheet1") else msgbox "工作表" & .name & "不含有部门或基层" end if end with next '删除新建工作薄时默认新建的工作表 for each sh in wk1.worksheets with sh if .name like "*sheet*" then .delete end if end with next for each sh in wk2.worksheets with sh if .name like "*sheet*" then .delete end if end with next '保存部门和基层工作薄 wk1.save wk2.save wk1.close wk2.close set wk1 = nothing set wk2 = nothing application.displayalerts = true application.screenupdating = true end sub 其中application.displayalerts、 application.screenupdating 语句把过程中的无必要的警告都删除了，像在删除多余的工作表时会提示“数据可能在你要删除的工作表中，请问是否要删除”等等的警告，在写程序的过程中可以写不加人，有利于了解工程是怎么运作的，但是最后还是加上这两句比较好，否则用户使用时太多的警告信息感觉不是很好。 .copy before:=workbooks("基层").worksheets("sheet1") 此句是拷贝sheet到新的xls里，由于使用了with语句，前面的workbook的信息省略了，但是有copy before与copy after注意选择，具体区别自己也不是很清楚。workbooks("基层").worksheets("sheet1")拷贝到基层.xls的sheet1里，但是看到下面删除sheet时并没有把此表分别开，会不会出错？ 以下是我自己的程序： set sht = newbk.worksheets(1) '删除新建的newbk里的两个sheet，必须留一个，否则会出错 sht.delete set sht = newbk.worksheets(1) sht.delete oldbk.worksheets(ssheetname).copy after:=newbk.worksheets(1) '拷贝 set sht = newbk.worksheets(1) ’删除一个工作表，会删错么？ sht.delete newbk.worksheets(1).name = ssheetname newbk.save 拷贝处选用的是worksheets(1)，本想用worksheets(ssheetname)，但是系统出错，应该是新xls中没有此sheet，只有默认的1、2、3，所以出错。 对删除工作表的操作表示疑问，因为怕删错，worksheets(1）是选择当前最前端的窗口，此程序测试正确，那么应该是新生成的没有作为active？ =============================================== 所以拷贝时有3个问题： 1、copy before 与copy after的区别？ 2、copy后新的名称是什么？ 3、copy后的表是不是最前端的？ 从网上看到的，可以对第一个问题很好的解释： sheets("mainreport").copy before:=sheets(4) after：是将表mainreport创建拷贝到‘4’表的后面 before：是将表mainreport创建拷贝到‘4’表的前面 是一个位置的问题

温馨提示：内容为网友见解，仅供参考

当前网址：https://22.t2y.org/zz/6ffcs6cs.html

其他看法

第1个回答 2019-01-17

代码如下： sub 分开存为工作薄() dim sh as worksheet dim wk1 as workbook dim wk2 as workbook dim ipath as string application.screenupdating = false ‘将屏幕更新关闭 application.displayalerts = false ipath = thisworkbook.path & "\" '保存路径为当前工作簿所在路径 set wk1 = workbooks.add set wk2 = workbooks.add wk1.saveas ipath & "部门" & ".xls" wk2.saveas ipath & "基层" & ".xls" '将工作表分别复制到部门或基层工作薄中 for each sh in thisworkbook.worksheets with sh if .name like "*部门*" then .copy before:=workbooks("部门").worksheets("sheet1") elseif .name like "*基层*" then .copy before:=workbooks("基层").worksheets("sheet1") else msgbox "工作表" & .name & "不含有部门或基层" end if end with next '删除新建工作薄时默认新建的工作表 for each sh in wk1.worksheets with sh if .name like "*sheet*" then .delete end if end with next for each sh in wk2.worksheets with sh if .name like "*sheet*" then .delete end if end with next '保存部门和基层工作薄 wk1.save wk2.save wk1.close wk2.close set wk1 = nothing set wk2 = nothing application.displayalerts = true application.screenupdating = true end sub 其中application.displayalerts、 application.screenupdating 语句把过程中的无必要的警告都删除了，像在删除多余的工作表时会提示“数据可能在你要删除的工作表中，请问是否要删除”等等的警告，在写程序的过程中可以写不加人，有利于了解工程是怎么运作的，但是最后还是加上这两句比较好，否则用户使用时太多的警告信息感觉不是很好。 .copy before:=workbooks("基层").worksheets("sheet1") 此句是拷贝sheet到新的xls里，由于使用了with语句，前面的workbook的信息省略了，但是有copy before与copy after注意选择，具体区别自己也不是很清楚。workbooks("基层").worksheets("sheet1")拷贝到基层.xls的sheet1里，但是看到下面删除sheet时并没有把此表分别开，会不会出错？ 以下是我自己的程序： set sht = newbk.worksheets(1) '删除新建的newbk里的两个sheet，必须留一个，否则会出错 sht.delete set sht = newbk.worksheets(1) sht.delete oldbk.worksheets(ssheetname).copy after:=newbk.worksheets(1) '拷贝 set sht = newbk.worksheets(1) ’删除一个工作表，会删错么？ sht.delete newbk.worksheets(1).name = ssheetname newbk.save 拷贝处选用的是worksheets(1)，本想用worksheets(ssheetname)，但是系统出错，应该是新xls中没有此sheet，只有默认的1、2、3，所以出错。 对删除工作表的操作表示疑问，因为怕删错，worksheets(1）是选择当前最前端的窗口，此程序测试正确，那么应该是新生成的没有作为active？ =============================================== 所以拷贝时有3个问题： 1、copy before 与copy after的区别？ 2、copy后新的名称是什么？ 3、copy后的表是不是最前端的？ 从网上看到的，可以对第一个问题很好的解释： sheets("mainreport").copy before:=sheets(4) after：是将表mainreport创建拷贝到‘4’表的后面 before：是将表mainreport创建拷贝到‘4’表的前面 是一个位置的问题

第2个回答推荐于2018-04-29

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本回答被提问者和网友采纳

第3个回答 2008-10-18

只能保存整个工作簿

Sub mm()
ActiveWorkbook.SaveAs Filename:=[a1], FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub

第4个回答 2008-10-19

另存到新的表格中
Sub test()
Dim SheetName1 As String
Dim SheetName2 As String
SheetName1 = ActiveSheet.Name
SheetName2 = ActiveSheet.Range("a1")
Worksheets.Add
ActiveSheet.Name = SheetName2
Worksheets(SheetName1).Range("a3:a6").Copy Worksheets(SheetName2).Range("a1")

End Sub

1 2 下一页

VBA如何另存EXCEL工作簿vba另存为工作簿
Setnew_Book=Workbooks.Add'新建一个EXCEL文件 ThisWorkbook.Sheets(\\"指定工作表\\").Copybefore:=new_Book.Sheets(1)'将“指定工作表”复制到新文件中 new_Book.Activate'切换到新文件 Cells.Select'全选单元格 Selection.Copy'复制并选择性粘贴为数值，去除公式 Selection.PasteSpecialPaste:=xlPasteValu...

使用Excel VBA,如何将某一个工作表保存到新建的Excel中?
代码如下：\\x0d\\x0aSub分开存为工作薄()\\x0d\\x0a\\x0d\\x0aDimShAsWorksheet\\x0d\\x0aDimWk1AsWorkbook\\x0d\\x0aDimWk2AsWorkbook\\x0d\\x0aDimiPathAsString\\x0d\\x0a\\x0d\\x0aApplication.ScreenUpdating=False‘将屏幕更新关闭\\x0d\\x0aApplication.DisplayAlerts=False\\x0d\\x0a\\x0...

如何快速将多个excel工作表批量另存为单独的工作簿
End Sub 关闭VBA编辑器，返回Excel界面，选择需要单独保存为工作簿的工作表，如果要选择多个工作表，可按Ctrl键或Shift键进行选择，然后按Alt+F8打开“宏”对话框，选择“SaveSheetAsWorkbook”宏执行即可。上述代码将每个所选的工作表单独保存为一个工作簿，存放位置与原工作簿相同，名称为“原工作簿名称...

如何用vba批量将一个excel文件中的多个工作表另存为指定路径的新工作薄...
打开这个excel ,另存为副本, (最好放到某个文件夹内)按alt+F11, 视图---代码窗口 --把如下复制进去--按F5 运行即可 Sub fencun()Application.ScreenUpdating = False b = Sheets.Count For i = b To 1 step -1 sheets(i).select sheets(i).Cells.Select Selection.Copy Selection.PasteSpecia...

excel怎样制作把录入的数据自动保存到另一工作表中?
你好，在Excel中，可以通过使用宏（Macro）来实现将录入的数据自动保存到另一个工作表中的功能。下面是一个简单的示例，演示如何创建一个宏来实现这个目标：1. 打开Excel，并打开您要记录数据的工作表（假设为"数据录入"工作表）和目标工作表（假设为"保存数据"工作表）。2. 在Excel的开发选项卡中，...

excel如何通过vba将工作表1的某些单元格的值保存到另一张表的对应位置...
把两张表格发到57321522@qq。com

excel用宏从一个工作薄中导出指定的几个工作表另存
"输出表","年级排名表")).Copy 实现新建工作簿的另存为，需要两个语句，一个是选择文件名：fn = Application.GetSaveAsFilename 下一个语句就是保存：ActiveWorkbook.SaveAs fn 当然，这两个语句可能需要更细化，例如选择文件夹时候指定默认位置、文件类型，保存前检查文件是否覆盖、名字后缀是否正确等。

使用Excel VBA,如何将某一个工作表保存到新建的Excel中
1、如下图所示，我想将桌面上第一章中的每个工作簿名称放置到工作表中。2、新建一个工作簿，将其命名为“第一章目录”，按alt+f11组合键，打开宏界面。3、在VBA中，单击插入按钮，点击插入菜单下的模块，即可新建模块，系统默认为模块1，当然也可以根据需要重命名。4、使用do~~loop循环语句，在VBA...

用VBA 把excel中某个区域导出另存新档
以A1:B2为例, 新档案另存为"c:\\abc.xls", 代码如下:Range("A1:B2").Copy Workbooks.Add With ActiveWorkbook.ActiveSheet .Paste .SaveAs Filename:="c:\\abc.xls"End With

excel vba怎么另存新工作簿
1、首先我们打开一个工作样表作为例子。2、我们使用alt+f11组合快捷键进入vbe编辑器，插入一个新的模块，并在模块中输入以下代码：Sub AddSaveAsNewWorkbook()Dim Wk As Workbook Set Wk = Workbooks.Add Application.DisplayAlerts = False Wk.SaveAs Filename:="D:\/SalesData.xls"End Sub 3、工作...