如何用VBA新建一个EXCEL表，并将将另一个EXCEL表中的内容复制到这个新建的EXCEL表中
发布网友
共2个回答
热心网友
Sub 新建()
Dim excelApp, excelWB As Object
Dim savePath As String
Set excelApp = CreateObject("Excel.Application")
Set excelWB = excelApp.Workbooks.Add
excelApp.DisplayAlerts = False
savePath = ActiveWorkbook.Path & "\新建表1.xls"
excelWB.SaveAs savePath
excelApp.Quit
Workbooks.Open savePath
End Sub
内容复制：
Workbooks("计算表.xls").Worksheets("Sheet1").Copy Before:=Workbooks("新建表1.xls").Sheets(1)
把“计算表”的Sheet1整个复制到“新建表1”中，为最前面一个Sheet，默认命名将是“Sheet1(2)”，楼主可以再重新命名Sheet就行了。
热心网友
excel宏，你要是不知道写的时候，你可以先录制一个宏，这个宏就是你要的功能的操作，然后你查看代码就知道这些操作的代码了，把它复制到你的代码里并修改一下就行了。
