重新构建问题:我使用了一个范围(包含标题)来定义一个数组,我从表中初始化并提取数据。事情进展顺利(冗余和重复的代码),但我可以直接将数组写入Excel行。
但是代码需要验证和初始化,因此我迁移到一个封装了两个需求的类。动态实现需要使用InsertLines
重新编写类。
问题是,现在我有一个类中的数据,但我不知道如何将它写入一行。
以前的算法:
Dim MyRange as Range
Dim sTR() as string
'set myrange to a specific range of cells'
'Redim the sTR array to match the number of unique variables in the range
'Extract values from multiples rows in a table to the sTR array'
'Write the array to the Excel file with:'
MyRange.Offset(x, y).value = sTR()
目前的方式:
Dim MyRange as Range
'set myrange to a specific range of cells (Nine columns and variable rows)'
'InsertCode into a class module with all unique values in the range as public variables
Dim sTR as ClassX
Set sTR as New ClassX
'Extract values from multiples rows in a table to the sTR Class'
现在的问题是,我不知道类中变量的顺序(这不是以前的数组方法的问题,但这种方式肯定涉及太多的代码冗余)。
请帮忙!想知道变量是否可以通过不同的名称(别名)来解决,这将解决我的问题。或者有没有办法解决类中的所有公共变量(比如循环)?