如何用VBA新建一个EXCEL表,并将将另一个EXCEL表中的内容复制到这个新建的EXCEL表中

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何用VBA新建一个EXCEL表,并将将另一个EXCEL表中的内容复制到这个新建的EXCEL表中相关的知识,希望对你有一定的参考价值。

我想在我的计算程序运行完后,产生一个新表,并将表中的内容复制到这个新建的表中
我在网上找到一段代码,我改了改,但只能新建一个表,并打开它,内容复制的代码不知如何写
Sub 新建()
Dim ExcelApplication As Variant
Set ExcelApplication = CreateObject("Excel.Application")
Dim TPath As String
TPath = ActiveWorkbook.Path
With ExcelApplication
.Workbooks.Add
.ActiveWorkbook.SaveAs Filename:=TPath & "\" & "新建表1" & ".xls"
.Quit
End With
Workbooks.Open TPath & "\" & "新建表1.xls"
End Sub
内容复制的代码
Workbooks("计算表").Worksheets("sheet1").UsedRange.Copy Workbooks("新建表1").Worksheets("sheet1").[a1]
可是不对,不知道该如何编写,有谁知道,先谢谢了!

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就行了。
参考技术A excel宏,你要是不知道写的时候,你可以先录制一个宏,这个宏就是你要的功能的操作,然后你查看代码就知道这些操作的代码了,把它复制到你的代码里并修改一下就行了。

以上是关于如何用VBA新建一个EXCEL表,并将将另一个EXCEL表中的内容复制到这个新建的EXCEL表中的主要内容,如果未能解决你的问题,请参考以下文章

如何用VBA判断另1个EXCEL表是不是已经打开

excel如何用vba批量提取指定工作表?

如何用函数或VBA调用(引用)另外一个工作表的数据

Excel中如何用VBA判断行数?

在excel中如何用vba来实现查找特定的字符串?

在EXCEL中 如何用VBA查找某特定单元格并返回该单元格的行和列值?