将多个CSV文件组合到单个CSV文件中

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.Activate
  xlWkb.WorkSheets(1).UsedRange.Copy

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

  xlWkb.Close  

  combineCSV.Saved = True
  combineCSV.close

最多复制它工作正常，但使用PasteSpecial方法引发错误：

  

范围类的PasteSpecial方法失败。