VBの配列 IsNull, IsNuthing, ...? 用途がわかりません。

質問

以下の場合、(1)で範囲エラーとなります。
redim a(0)とすると、a配列に１個データがあるということで、for文が実行されますが。
Redimしないまま(データが無い意味としたいので)で、このFor文をパスするには、どのように記述すればよいのでしょうか？

dim a() as string

'----->(2)
for i=LBound(a) to UBound(a) '---->(1)
msgbox(a(i))
next i

回答No.2

fumufumu_2006 · ベストアンサー

string限定ですが、
a=split("","A")
とか、ありえないsplitを行うとか・・・
ubound(a)=-1になります。

ちなみに、SafeArrayAllocDescriptor は、excelやaccessのvbaでもOKです。

回答No.3

dsuekichi

エラートラップするのが楽だと思いますけど・・・

毎回エラートラップするのが面倒なら、
---------------------------------------
Private Function IsBlankArray(a As Variant) As Boolean
Dim i As Long
On Error GoTo lerror
i = UBound(a)
IsBlankArray = False
Exit Function
lerror:
IsBlankArray = True
End Function
---------------------------------------
こんな関数を作ってしまえば・・・

回答No.1

unamana19

開発環境はVB6と仮定して
"SafeArrayAllocDescriptor"API関数を利用するとか・・・

補足

開発環境はVB6です。

＞SafeArrayAllocDescriptor
ReDim Preserveすると、エラーになる？

http://yaplog.jp/orator/archive/43

理由がわかりませんでした。
平易に説明できる方いらっしゃいますか？