vb对excel一个sheet中的几行复制到另外一个sheet中

Question

我想在打印报表时对excel一个sheet1中的模板复制到另外一个sheet2中然后复制，这样多页打印时都可以复制sheet1中的模板，具体代码现在怎么写？请教高手如何实现把一个sheet中的模板复制到另外一个sheet中，需要整行复制的操作。

Answer 1

这个是录制的Sub Macro1()
'
' Macro1 Macro
' 宏由 FtpDown 录制，时间: 2011-3-29
''
    Rows("2789:2789").Select
    Selection.Copy
    Sheets("Sheet2").Select
    Rows("6:6").Select
    ActiveSheet.Paste
End Sub
修改一下    xlSheet1.Rows("5:5").Copy
    xlSheet2.Rows("6:6").Paste

Answer 2

    xlApp.Range("A1:B1").Copy
    
    xlApp.Sheets(2).Activate
    
    xlApp.Range("A1:B1").PasteSpecial

Answer 3

Private Sub Command1_Click()
    Dim xlapp As Excel.Application
    Dim xlbook As Excel.Workbook
    Dim i As Integer    Set xlapp = CreateObject("Excel.Application")
    Set xlbook = xlapp.Workbooks.Open(App.Path & "\test2.xls")    xlbook.Sheets("sheet1").Range("A1:B1").Copy
    xlbook.Sheets("sheet2").Range("A1:B1").PasteSpecial
    
    xlapp.Workbooks.Close
    Set xlapp = NothingEnd Sub

Answer 4

 用New关键字后属性和方法就可以选了
  Dim xlapp As New Excel.Application
    Dim xlbook As New Excel.Workbook
    Dim i As Integer
    Set xlbook = xlapp.Workbooks.Open(App.Path & "\test2.xls")    xlbook.Sheets("sheet1").Range("A1:B1").Copy
    xlbook.Sheets("sheet2").Range("A1:B1").Paste
    xlapp.Save
    xlapp.Workbooks.Close
    Set xlapp = Nothing