如何将b.xls中的sheet1复制到a.xls中？

Question

如何将b.xls中的sheet1复制到a.xls中？

Answer 1

很简单的。首先在你的VB工程里引用 Microsoft Excel 10.0 Object Library------------------------------------------------------
Option ExplicitPrivate Sub Command1_Click()
        Dim ExcelApp As Excel.Application
        Dim aBook As Excel.Workbook
        Dim bBook As Excel.Workbook
        Dim aSheet As Excel.Worksheet
        Dim bSheet As Excel.Worksheet
        
        Set ExcelApp = New Excel.Application
        Set aBook = ExcelApp.Workbooks.Open(App.Path & "\a.xls")
        Set bBook = ExcelApp.Workbooks.Open(App.Path & "\b.xls")
        Set aSheet = aBook.Sheets(1)
        Set bSheet = bBook.Sheets(1)
        
        bSheet.UsedRange.Copy
        aSheet.PasteSpecial
        
        Set aSheet = Nothing
        Set bSheet = Nothing
        aBook.Save
        aBook.Close
        bBook.Close
        Set aBook = Nothing
        Set bBook = Nothing
        ExcelApp.Quit
        Set ExcelApp = Nothing
        
        MsgBox "OK!"
End Sub