カテゴリ

VBA/ASPなど

いちいちRedimするのが面倒なのでSubにまとめる。
オブジェクト配列対応のつもり(未検証)。

' 配列(一次元配列)に要素を追加してデータ格納
'   varArray:  参照渡しの配列変数
'   varData:    格納するデータ
Sub push_array(ByRef varArray As Variant, varData As Variant)
    If IsArray(varArray) Then
        If UBound(varArray) = -1 Then   ' 空配列(要素数0)
            ReDim varArray(0)
        Else
            ReDim Preserve varArray(UBound(varArray) + 1)
        End If
    Else
        ReDim varArray(0)
    End If
    
    If IsObject(varData) Then
        Set varArray(UBound(varArray)) = varData
    Else
        varArray(UBound(varArray)) = varData
    End If
End Sub

コメント