VB中EXcel的表格复制

VB中EXcel的表格复制

先前已经写好了一个程序把数据写入到一张已有的Excel表中，但是需要写入之前先复制一张同样的表，不能填入原表中，请教用什么语句可以先复制一张新的表？？？

使用Copy方法

Set sheetCopy = oWorkBook.Sheets("Sheet1")

sheetCopy.Copy Before:=oWorkBook.Sheets(1)

Set SheetNew = oWorkBook.ActiveSheet

对SheetNew进行操作就可以了

***********************************************************

用VB6.0新建excel表格，并复制另一个已有的sheet1,复制到新建的表格中 代码如下：

Private Sub Command1_Click()

Dim MyExcel As Excel.Application

Dim xlBook As Excel.Workbook

Dim MyExcel1 As Excel.Application

Dim xlBook1 As Excel.Workbook

Dim xlSheet As Excel.Worksheet

Dim xlSheet1 As Excel.Worksheet

Set MyExcel = CreateObject("excel.application")

Set MyExcel1 = CreateObject("excel.application")

Set xlBook = MyExcel.Workbooks.Open("D:\D盘.xls")

Set xlBook1 = MyExcel.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\桌面.xls")

Set xlSheet = xlBook.Sheets("试验")

Set xlSheet1 = xlBook1.Sheets("sheet1")

xlSheet.Range("A:IV").Copy Destination:=xlSheet1.Range("A1") ‘这就是复制到语句

xlBook.Save

xlBook1.Save

xlBook.Close

xlBook1.Close

Set xlBook = Nothing

Set xlSheet = Nothing

Set MyExcel = Nothing

Set xlBook1 = Nothing

Set xlSheet1 = Nothing

Set MyExcel1 = Nothing

End

End Sub

本文来源：https://www.wddqw.com/doc/f6f308793f1ec5da50e2524de518964bce84d279.html