//使用VBA 将本workbook的sheet1,拷贝到book2.xls的最后一个sheet中 Private Sub CommandButton1_Click() Dim WB As Workbook Dim ReportFile As String Application.ScreenUpdating = False ReportFile = "c:\book2.xls " Set WB = Workbooks.Open(Filename:=ReportFile) ThisWorkbook.Sheets(1).Copy After:=WB.Sheets(1) WB.Close savechanges:=True Application.ScreenUpdating = True End Sub //自己将上面的语句改造一下 hope it helps 引用来自 http://topic.csdn.net/t/20030621/14/1941643.html
Private Sub CommandButton1_Click()
Dim WB As Workbook
Dim ReportFile As String
Application.ScreenUpdating = False
ReportFile = "c:\book2.xls "
Set WB = Workbooks.Open(Filename:=ReportFile)
ThisWorkbook.Sheets(1).Copy After:=WB.Sheets(1)
WB.Close savechanges:=True
Application.ScreenUpdating = True
End Sub
//自己将上面的语句改造一下
hope it helps
引用来自 http://topic.csdn.net/t/20030621/14/1941643.html