vb6でのエクセルアドレス取得

質問

現在、ｖｂ6でプログラムを作成しています。
エクセルオブジェクトを作成し、ある特定の文字がはいっているセルを
抽出し、上の行から順にアドレスを返すプログラムを作っています。
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
dim tb() as string

For a= 1 To 行の末

If 0 <> InStr(xlsオブジェクト.Worksheets(1).Cells(a,1).Value, "特定の文字") Then

If b = 1 Then
ReDim tb(1)
Else
b = b + 1
ReDim Preserve tb(b)
End If
tb(b) = xlsオブジェクト.Worksheets(1).cells(a,1).adress
End if
Next
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
これで行うと、「tb(b) = xlsオブジェクト.Worksheets(1).cells(a,1).adress」の部分で、正常に結果が返らずエラーとなります。

もし、分かるようでしたらご教授いただきたいです。

よろしくお願いします。

回答No.1

redfox63 · ベストアンサー

どのようなエラーがでるのかを明記したほうがいいでしょう
そのエラーが出る際の元データもあるとより的確な解答がつくかも知れません

xlsオブジェクトからすべて指示するのは冗長だともいます

今回セルのデータが対象なので Rangeオブジェクトでよさそうですが・・・

dim rng as Range, ss as String
For a= 1 To 行の末
　　set rng = xlsオブジェクト.Worksheets(1).Cells(a,1)
　　ss = rng.Value
　　If 0 <> InStr(ss, "特定の文字") Then
　　　　If b = 1 Then
　　　　　　ReDim tb(1)
　　　　Else
　　　　　　b = b + 1
　　　　　　ReDim Preserve tb(b)
　　　　End If
　　　　tb(b) = rng.adress
　　End if
Next
といった具合で ・・・

Findで探すといった方法も検討してもいいかも ・・・

お礼

あ・・・
今回初めてｖｂでプログラム作成する為、
rangeオブジェクトのことは、考え付きませんでした。

とても参考になりました。
サンプル付きでとても感謝しています。
ありがとうございました。

回答No.2

cistronezk

示されたコードが全てならば、変数ｂは最初０です。ですから
＞If b = 1 Then
＞ReDim tb(1)
よりも
＞Else
＞b = b + 1
＞ReDim Preserve tb(b)
が、先に実行されます。
この段階で配列tbは宣言されただけでまだReDimされていません。それをPreserveしようとしてエラーになっていると考えられます。
最初からステップ実行を行えば、エラーの原因はすぐにわかったはずです。

Option Explicitは宣言する癖を付けておいた方がいいです。
また、tb(0)の値を使わないようですが、それならOption Baseは１に設定した方がいいと思います。

IFのネストが煩わしい場合は

ReDim tb(1)
For a= 1 To 行の末
If 0 <> InStr(xlsオブジェクト.Worksheets(1).Cells(a,1).Value, "特定の文字") Then
b = b + 1
ReDim Preserve tb(b)
tb(b) = xlsオブジェクト.Worksheets(1).cells(a,1).adress
End if
Next

とした方がすっきりします。

お礼

ご回答ありがとうございました。

変数制限が足りず、すみませんでした。
if文も含め参考にしたいと思います。