Excel VBA應用 的部落格

Public Sub ex()
Dim xlPath As Variant, Ro As Integer
Dim xlFile, arr
xlFile = Array("B.xlsx", "C.xlsx")
arr = Sheets("工作表1").Range("A1:E" & Sheets("工作表1").Cells(65535, 1).End(xlUp).Row)
For i = 0 To UBound(xlFile)
    Workbooks.Open (xlPath & xlFile(i))
    With Workbooks(xlFile(i)).Worksheets("工作表1")
         Ro = .Cells(65535, 1).End(xlUp).Row
         .Cells(Ro, 1).Resize(UBound(arr), UBound(arr, 2)) = arr
    End With
    Workbooks(xlFile(i)).Close True
Next
End Sub

假設資料表如下，分別為進貨和銷貨

 

如何由某欄跳到別欄,再回到原欄?

前一篇最後的模塊中有句
 myCon.Open "provider=Microsoft.ACE.OLEDB.12.0;" & _

今天來說明如何在Excel 中搭配 Access資料庫系統來處理經常使用的檔案，以達到管理資料處理半自動的目標
要和Access搭配在Excel VBA中需使用ADODB來連結Access資料庫中的資料到Excel中使用...

Public Sub ex()