VBA:将单元格从一个工作簿复制到另一个工作簿_不用于大数据

时间:2017-01-31 17:00:47

标签: excel vba excel-vba

我开发了以下代码,用于从目录中的所有csv文件导出数据,并将它们放在一个新的工作簿中。它适用于较少数量的数据,但是当我们有数千行时,它将无法工作。

URL url = new URL("file:///E:/Computing/Master/classes/" );
URLClassLoader ucl = new URLClassLoader(new URL[]{url});
Class clazz = ucl.loadClass("com.counter.controller.Action");
ProcessAlgorithm iAction = (ProcessAlgorithm) clazz.newInstance();

由于列数不固定,我没有使用范围。 有人可以帮忙吗?

1 个答案:

答案 0 :(得分:1)

我认为Cells参数是RowColumn ColumnRow。阅读这些内容

    For i = 1 To CSVUsed.Rows.Count
    For j = 1 To CSVUsed.Columns.Count
    thisWb.Sheets(1).Cells(j, i).Value = CSVUsed.Cells(j, i).Value

我相信你已经交换了行和列。我很惊讶它在小的情况下工作正常,除非行和列计数恰好足够接近您的校对。此外,ij可能需要long而不是int

  

如果将其定义为整数,则最大值将为32,768并且可以   如果数据集大于此值,则会导致计数出现问题。 -VBA Pete

对于列来说没关系,因为最大值是16,384,但是你可以有1,048,576行。