arrays - Excel VBA : Variants in Array Variables

Question

关于变体的问题。我知道 Excel vba 中的变体既是默认数据类型，而且效率低下(从大型应用程序中过度使用的角度来看)。但是，我经常使用它们将数据存储在具有多种数据类型的数组中。我当前正在从事的一个项目本质上是一项需要对非常糟糕的代码(大约 7000 行)进行大规模优化的任务 - 这让我思考；有办法解决这个问题吗？

解释；该代码经常将数据存储在数组变量中。因此，考虑一个 10 列 x 10000 的数据集。这些列是多种不同的数据类型(字符串、 double 、整数、日期等)。假设我想将它们存储在数组中，我通常会；

dim myDataSet(10,10000) as variant

但是，据我所知，代码评估每个项目以确定它是什么数据类型(当在实践中我知道我期望什么时)，这确实效率很低。另外，我失去了对单个数据类型进行标注所提供的控制权。所以，(假设前 6 个是字符串，接下来的 4 个是 double ，以便于解释这一点)，我可以；

dim myDSstrings(6,10000) as string
dim myDSdoubles(4,10000) as double

这给了我控制和效率 - 但也有点笨重(实际上，类型是混合的且不同的 - 我最终在每个类型中都有奇数个元素，并且最终不得不单独分配它们在代码中，而不是在质量上)。所以，这是一个例子；

myDSstrings(1,r) = cells(r,1)
myDSdoubles(2,r) = cells(r,2)
myDSstrings(2,r) = cells(r,3)
myDSstrings(3,r) = cells(r,4)
myDSdoubles(3,r) = cells(r,5)
..etc...

哪个比;更丑陋

myDataSet(c,r) = cells(r,c)

所以-这让我思考-我一定在这里遗漏了一些东西。存储不同数据类型的数组的最佳方法是什么？或者，假设没有办法做到这一点 - 存储混合数据类型数组的最佳编码实践是什么？

Answer 1

在没有先进行测量的情况下，切勿优化代码。您可能会惊讶地发现代码最慢的地方。我使用 Professional Excel Development 中的 PerfMon 实用程序，但您也可以使用自己的实用程序。

读取和写入 Excel 范围会耗费大量时间。尽管变体会浪费大量内存，但这

Dim vaRange as Variant
vaRange = Sheet1.Range("A1:E10000").Value
'do something to the array
Sheet1.Range("A1:E10000").Value = vaRange

通常比循环行和单元格更快。

我使用具有多种数据类型的数组的首选方法是根本不使用数组。相反，我将使用自定义类模块并为元素创建属性。这不一定会提高性能，但它使代码更容易编写和阅读。