请问，如何把上一次用ReDim 语句改变的数组数目保留到下一次程序运行中？

LYHZM

使用 ReDim 语句为动态数组变量分配和重分配存储空间前， 必须使用 Dim 或 ReDim 来指定数组中元素的数目，但这个确定的“数目”又会时下一次运行程序时上一次运行程序时已改变的元素数不能保留，请问，如何把上一次用ReDim 语句改变的数组数目保留到下一次程序运行中？

myfreemind

保留动态数组的内容
每次执行 ReDim 语句时，当前存储在数组中的值都会全部丢失。Visual Basi 重新将数组元素的值置为 Empty（对 Variant 数组）、置为 0（对 Numeric 数组）、置为 零长度字符串（对 String 数组）或者置为 Nothing（对于对象的数组）。

在为新数据准备数组，或者要缩减数组大小以节省内存时，这样做是非常有用的。有时希望改变数组大小又不丢失数组中的数据。使用具有 Preserve 关键字的 ReDim 语句就可做到这点。例如，使用 UBound 函数引用上界，使数组扩大、增加一个元素，而现有元素的值并未丢失：

ReDim Preserve DynArray (UBound (DynArray) + 1)

在用 Preserve 关键字时，只能改变多维数组中最后一维的上界；如果改变了其它维或最后一维的下界，那么运行时就会出错。所以可这样编程：

ReDim Preserve Matrix (10, UBound (Matrix, 2) + 1)

而不可这样编程：

ReDim Preserve Matrix (UBound (Matrix, 1) + 1, 10)

详细信息 关于动态数组的更详细信息，请参阅语言参考中的“ReDim 函数”。关于对象数组，请参阅“用对象编程”。

LYHZM

十分感谢 myfreemind老师的解答！请看下面的语句，其中若无第一行语句，运行时则提示“下标越界（错误 9）”，但若有此行，则在本次程序运行时通过第三行语句改变的数组中元素的数目在下一次程序运行时又被第一行语句改回来而不能保留，请问如何解决？
   ReDim Preserve TransformerDataArray(5, 0)
    ArrayUpperBound = UBound(TransformerDataArray, 2)
    ReDim Preserve TransformerDataArray(5, ArrayUpperBound + 1)

efan2000

你的真正意思是什么？
按你的思路应该是过程执行一遍完之后，数组的大小和值保存起来。第二次运行这个过程时，数组取出上一次保存时的状态。
如果是这样的话，还是使用其它方式来保存数据吧，比如将其保存在数据库中。如果定义一个全局的数组变量也可以，不过ReDim Preserve TransformerDataArray(5, 0)这一句在第二次时就不能再调用了。

LYHZM

十分感谢 efan2000老师的解答！我正是这个意思。能请您再具体一点吗？

efan2000

1、定义一个全局变量或者模块变量TransformerDataArray，注意不能在过程中定义，否则会重定义而不能保存数值。
2、第一次调用ArrayUpperBound = UBound(TransformerDataArray, 2)时会发生错误，因为此时动态数组还未重定义，不能取得它的大小。故使用On Error Resume Next来检测错误，发生错误时重定义数组。

2. 
   
3. Option Explicit
   
4. Private TransformerDataArray() As Integer
   
5. 
   
6. Sub test()
   
7.     Dim ArrayUpperBound As Integer
   
8.     On Error Resume Next
   
9.     ArrayUpperBound = UBound(TransformerDataArray, 2)
   
10.     If Err Then
    
11.         Err.Clear
    
12.         ReDim Preserve TransformerDataArray(5, 0)
    
13.     End If
    
14.     ReDim Preserve TransformerDataArray(5, ArrayUpperBound + 1)
    
15.     MsgBox UBound(TransformerDataArray, 2)
    
16. End Sub
    

<br /> Option Explicit<br /> Private TransformerDataArray() As Integer<br /> <br /> Sub test()<br />     Dim ArrayUpperBound As Integer<br />     On Error Resume Next<br />     ArrayUpperBound = UBound(TransformerDataArray, 2)<br />     If Err Then<br />         Err.Clear<br />         ReDim Preserve TransformerDataArray(5, 0)<br />     End If<br />     ReDim Preserve TransformerDataArray(5, ArrayUpperBound + 1)<br />     MsgBox UBound(TransformerDataArray, 2)<br /> End Sub<br />

LYHZM

十分感谢天涯孤客老师的解答！