VBA Excel 自動化（搜索數百個小工作簿（相同列數）在一個獨特的工作簿中排隊

Question

我在 Visual Foxpro 中成功地編寫了對特定客戶目錄和子目錄中工作簿的研究。 現在我想，從第一本工作簿開始，append 第二個工作簿在第一個工作簿下方，依此類推......我寫道，試圖取得成功：

xStrFName = TRIM(filemm)
oExcel.Workbooks.Open(xStrFName)
oExcel.Workbooks(2).Sheets(1).UsedRange.Copy

WITH oExcel.Workbooks(1).Sheets(1)
  loLastCell = .Cells.SpecialCells(xlLastCell)
  mcomo = .Range(m.loLastCell,m.loLastCell).Row
  mcomo = mcomo+1
  .Cells((m.mcomo,1),(m.como,7)).Paste
ENDWITH

我想要 select（或直接粘貼如上）最后一個單元格 (m.mcomo+1) 正下方的行，因此粘貼。 我怎樣才能寫出正確的粘貼指令（我認為它會很簡單，但我不知道 VBA ......）。提前致謝。

Answer 1

試試這個，看看它是否有效：

With oExcel.Workbooks(1).Sheets(1)
 Set loLastCell = .Cells.SpecialCells(xlLastCell)
 mcomo = loLastCell.Row
 .Cells(mcomo + 1, 1).PasteSpecial xlPasteAll
End With