コンボボックスの選択肢にエクセルの列を呼び出す

質問させてください。
私はExcel2002、VB6.0を使用しています。
やりたいことは、

１、エクセルのA列内で記入されているセルをすべて検出
２、１で検出した文字をコンボボックスの選択肢に代入

以上となります。
基本的な操作かもしれませんが、いろいろ調べてみたのですがどうも見つからなくて困っています。
よろしくお願いします。

No.1 ベストアンサー 回答者： evil_lk 回答日時： 2008/05/28 12:56

For i = 1 To 100

If Sheets("Sheet1").Cells(i, 1).Value <> "" Then
ComboBox1.AddItem (Sheets("Sheet1").Cells(i, 1))
End If
Next

とりあえず、１００行分。
空白だったら、抜けるという形も改造したらできます。

この回答へのお礼

早速の回答ありがとうございます＾＾
なるほど、普通に範囲指定して検出してしまえばいいんですね。
たしかに、選択項目もそれほど大した数ではないのでコレで十分ですね。
ありがとうございました＾＾

お礼日時：2008/05/28 13:31

No.3 回答者： don9don9 回答日時： 2008/05/28 18:56

No.2です。

VB6.0でやるなら「VBレスキュー（花ちゃん）」というサイトが参考になりますよ。

参考URL：http://hanatyan.sakura.ne.jp/

この回答へのお礼

参考サイトありがとうございます＾＾
このサイト知りませんでした
参考にしたいと思います＾＾

お礼日時：2008/05/29 08:49

No.2 回答者： don9don9 回答日時： 2008/05/28 13:19

ExcelVBAでやりたいのですか？

VB6.0でやりたいのですか？

VB6.0でやりたいなら
・Excelを起動する
・ファイルを開く
・シートを選択する
という所から記述してやらないといけませんので。

この回答へのお礼

ご指摘ありがとうございます＾＾
とりあえず、こちらのサイトを見て、起動、開く、シート選択の一連の流れは把握できそうなので、自力でがんばります！

お礼日時：2008/05/28 13:36