代码之家 › 专栏 › 技术社区 › Claudio Iannone

VBA Excel Automation(搜索数百个小工作簿(相同的列数)以在唯一工作簿中排队)

excel-automation vba

0

Claudio Iannone · 技术社区 · 3 年前

我在VisualFoxPro中成功地编写了对特定客户目录和子目录中的工作簿的研究。现在我想,从第一个工作簿开始,在第一个工作簿的正下方添加第二个工作簿,依此类推。。。我试图取得成功,我写道:

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

我想选择(或直接粘贴如上)lastcell(m.mcomo+1)下方的行,然后粘贴。如何编写正确的粘贴指令(我认为它很简单,但我不知道VBA……)。提前谢谢。

0 回复 | 直到 3 年前

1

0

PirateNinja 3 年前

试试这个,看看是否有效:

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