VBA Excel 自动化（搜索数百个小工作簿（相同列数）在一个唯一的工作簿中排队

Question

我在 Visual Foxpro 中成功编写了对特定客户目录和子目录中工作簿的研究。现在我想，从第一个工作簿开始，将第二个附加到第一个工作簿的正下方，依此类推... 我写了，试图取得成功：

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

VBA Excel 自动化（搜索数百个小工作簿（相同列数）在一个唯一的工作簿中排队

VBA Excel Automation (search for hundreds of little WorkBooks (same number of columns) to be queued in a unique Workbook

vba

excel-automation