VB 合并excel文件问题?

[w1984721]

我想把一个Excel 文件中的两个sheet(sheet1,sheet2),合并到一个新的Excel文件中的一个sheet中(sheet1).

要合并sheet1,和sheet2的数据区域是不可知的,合并到新文件的sheet1中,
合并后在新文件的sheet1中数据区域是连续的,也就是sheet1数据区域结束后.接着下面就是sheet2的数据区域.可能有点难,哪位大哥写个范例代码看.
获取EXCEL的单元格区域的方法在下面:供大家参考.
Dim A1 As String
Dim A2 As String
Dim Columns As Long
Dim Rows As Long

Set xlApp = CreateObject("Excel.Application") '创建EXCEL应用类
xlApp.Visible = False '设置EXCEL可见
Set xlBook = xlApp.Workbooks.Open("D:\a.xls")
Set xlSheet = xlBook.Worksheets(1) '打开EXCEL工作表
Rows = xlBook.Worksheets(1).UsedRange.Rows.Count
Columns = xlBook.Worksheets(1).UsedRange.Columns.Count
A1 = xlSheet.UsedRange.Cells(1, 1).Address
A2 = xlSheet.UsedRange.Cells(Rows, Columns).Address

xlSheet.Range(A1, A2).Copy
...
下面怎么写我就不知道了,希望高手赐教.

[w1984721]

不一样的!

[lxq19851204]

不一样有难度呀,不懂,顶一下先.

[孤独剑_LPZ]

两个sheet(sheet1,sheet2),数据格式（字段）是否一样？

[Tiger_Zhao]

Option Explicit

Sub Main()
    Dim xlApp       As Object
    Dim xlBook      As Object
    Dim xlBookNew   As Object
    Dim xlSheet1    As Object
    Dim xlSheet2    As Object
    Dim xlSheetNew  As Object

    Set xlApp = CreateObject("Excel.Application")
    xlApp.Visible = False
    Set xlBook = xlApp.Workbooks.Open("D:\a.xls")
    Set xlSheet1 = xlBook.Sheets(1)
    Set xlSheet2 = xlBook.Sheets(2)

    xlSheet1.Copy
    Set xlBookNew = xlApp.Workbooks(xlApp.Workbooks.Count)
    Set xlSheetNew = xlBookNew.Sheets(1)

    xlSheet2.Activate
    xlSheet2.UsedRange.Copy
    xlSheetNew.Activate
    xlSheetNew.Cells(xlSheetNew.UsedRange.Rows.Count + 1, 1).Select
    xlSheetNew.Paste

    xlBookNew.SaveAs "D:\a-new.xls"
    Set xlSheetNew = Nothing
    xlBookNew.Close False
    Set xlBookNew = Nothing

    Set xlSheet1 = Nothing
    Set xlSheet2 = Nothing
    xlBook.Close False
    Set xlBook = Nothing

    xlApp.Quit
    Set xlApp = Nothing
End Sub

[weiyulin]

帮顶.....

[cqq_chen]

有意义吗？
Excel自己做这事多快！

[lyserver]

查看我博客里《如何用VB实现Excel文件的自动合并》一文。

[yangguo8013]

[Quote=引用 4 楼 tiger_zhao 的回复:]
VB codeOptionExplicitSub Main()Dim xlAppAsObjectDim xlBookAsObjectDim xlBookNewAsObjectDim xlSheet1AsObjectDim xlSheet2AsObjectDim xlSheetNewAsObjectSet xlApp=CreateObject("Excel.Application")
xlApp.Visible=FalseSet xlBook= xlApp.Workbooks.Open("D:\a.xls")Set xlSheet1= xlBook.Sheets(1)Set xlSheet2= xlBook.Sheets(2)

xlSheet1.CopySet xlBookNew= xlApp.Workbooks(xlApp.Workbooks.Count)Set xlSheetNew= xlBookNew.Sheets(1)

xlSheet2.Activate
xlSheet2.UsedRange.Copy
xlSheetNew.Activate
xlSheetNew.Cells(xlSheetNew.UsedRange.Rows.Count+1,1).Select
xlSheetNew.Paste

xlBookNew.SaveAs"D:\a-new.xls"Set xlSheetNew=Nothing
xlBookNew.CloseFalseSet xlBookNew=NothingSet xlSheet1=NothingSet xlSheet2=Nothing
xlBook.CloseFalseSet xlBook=Nothing

xlApp.QuitSet xlApp=NothingEnd Sub
[/Quote]
我以前写过读取，老鸟写的可以尝试

[li_yaoming]

在excel中操作一下，录制成新的宏，然后把宏拷到程序中根据要求修改一下就可以了。

[yangguo8013]

我帮你试过了，是把sheet1，sheet2的内容全部放到新的sheet里面了，并且是连贯的