Dim exl As New Excel.ApplicationClass
Dim ebook As Excel.Workbook
ebook = exl.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\a.xls")
Dim ebook2 As Excel.Workbook
ebook2 = exl.Workbooks.Open("C:\Documents and Settings\Administrator\桌面\b.xls")
exl.Visible = True
ebook.Worksheets.Copy(, ebook2.Worksheets.Item("Sheet1"))
没有问题啊?
参考下这个