Question

下面是用于从一个csv文件复制所有行并将其粘贴到另一个csv文件中的代码。

Set xlWkb = xlApp.Workbooks.Open(file)
    Set combineCSV = xlApp.Workbooks.Open("e:\combineCSV.csv")

    nextrow = combineCSV.Worksheets(1).Range("A1").SpecialCells(11).Row+1

    xlWkb.WorkSheets(1).UsedRange.Copy

    combineCSV.Worksheets(1).Cells(nextrow+1).PasteSpecial(xlPasteAll)

    xlWkb.Close  

    combineCSV.Save
    combineCSV.close


combineCSV.Worksheets(1).Cells(nextrow+1).PasteSpecial(xlPasteAll) line

nextrow value is 15

nextrow+1 is 16。复制的数据必须从16行粘贴到工作簿1中，而是从16列粘贴，为什么会这样？??

尝试：

Cells(nextrow+1, 1) - ＆gt;它根本不复制行???

Answer 1

您正在指定csv中的第16个单元格，它将是P1。变化：

combineCSV.Worksheets(1).Cells(nextrow+1).PasteSpecial(xlPasteAll)

为：

combineCSV.Worksheets(1).Cells(nextrow+1, 1).PasteSpecial(xlPasteAll)

数据被复制到列而不是行

1 个答案: