利用vb如何将两个Execl的*.xls文件合并?

'*********首先要放上CommonDialog控件 引用微软excel 9.0库************

Private Sub Command1_Click()
CommonDialog1.DialogTitle = "请选择第一个excel文件"
CommonDialog1.Filter = "EXCEL文件|*.xls"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
Text1 = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
CommonDialog1.DialogTitle = "请选择第二个excel文件"
CommonDialog1.Filter = "EXCEL文件|*.xls"
CommonDialog1.FileName = ""
CommonDialog1.ShowOpen
Text2 = CommonDialog1.FileName
End Sub

Private Sub Command3_Click()
Dim xlApp As Excel.Application
Set xlApp = New Excel.Application
Set xlbook1 = xlApp.Workbooks.Open(Text1)
Set xlbook2 = xlApp.Workbooks.Open(Text2)

oldN = xlbook2.Worksheets.Count

For i = 1 To xlbook1.Worksheets.Count
xlbook1.Worksheets(i).Copy after:=xlbook2.Worksheets(oldN + i