请教关于VB6和EXCEL2000的问题！

Question

鄙人欲将2.xls的内容追加到1.xls中去，文件名仍为1.xls，请问用VB6如何实现？
最好有代码，谢谢！
献出100分，^_^！

Answer 1

用EXCEL宏先做一遍，然后参考里面的代码

Answer 2

Option ExplicitPrivate Sub Command1_Click()
    Dim appXls As Excel.Application
    Set appXls = New Excel.Application
    appXls.Visible = True
    appXls.Workbooks.Open "F:\1.xls"
    appXls.Workbooks.Open "F:\2.xls"
    appXls.Workbooks("1.xls").Sheets(1).Copy _
        Before:=appXls.Workbooks("2.xls").Sheets(2)
    appXls.Workbooks("2.xls").Save
End Sub

Answer 3

to Intelement(桂子) :
好象你的代码完不成楼主的问题啊？
下面程序肯定能成功，但代码没有优化，请谅解。
Option ExplicitPrivate Sub Command1_Click()
    Dim ox As Object, x%, y%, i%, j%, a%
    Dim ob1 As Excel.Workbook
    Dim ob2 As Object
    Dim os1 As Object
    Dim os2 As Object
    Dim oc1 As Object
    Dim oc2 As Object
    Set ox = CreateObject("excel.application")
    ox.Visible = True
    Set ob2 = ox.workbooks.open("c:\2.xls")
    Set os2 = ob2.Sheets(1).cells
    Set oc2 = os2.SpecialCells(xlLastCell)
    x = oc2.Row
    y = oc2.Column
    Set ob1 = ox.workbooks.open("c:\1.xls")
    Set os1 = ob1.Sheets(1).cells
    Set oc1 = os1.SpecialCells(xlLastCell)
    a = oc1.Row
    For i = 1 To x
        For j = 1 To y
            ob1.Sheets(1).cells(a + i, j) = ob2.Sheets(1).cells(i, j)
        Next j
    Next i
End Sub

Answer 4

Intelement(桂子) 的代码可行！就用这个吧！做一些改动！Option ExplicitPrivate Sub Command1_Click()
    Dim appXls As Excel.Application
    Set appXls = New Excel.Application
    appXls.Visible = True
    appXls.Workbooks.Open app.path & "\1.xls"
    appXls.Workbooks.Open app.path & "\2.xls"
    appXls.Workbooks("1.xls").Sheets(1).Copy _
        Before:=appXls.Workbooks("2.xls").Sheets(2)
    appXls.Workbooks("2.xls").Save
End Sub