两个Excel电子表格之间的自动化（将数据从一个插入到另一个）

Question

我想要做的是创建自动化，将ROW1中的数据复制到一个excel文件上，并将其插入另一个已包含数据的excel文件中的ROW 1，并将所有其他行向下移动（新数据始终位于顶部）。

Answer 1

我建议这样的事情：

dim wbkDest as workbook, wbkOrg as workbook

'assumes both workbooks are open
set wbkDest=workbooks("DestWorkbook.xlsx") 'update this
set wbkOrg=workbooks("OriginWorkbook.xlsx") 'update this

wbkdest.sheets(1).rows(1).insert
wbkorg.sheets(1).rows(1).copy wbkdest.sheets(1).cells(1,1)