ＥＸＣＥＬのデータを抽出しＶＢのフォーム上に表示させるには？

解決

---

はじめまして。
EXCEL2000＋VB6.0の環境で、EXCELのデータを抽出しＶＢのフォームに一覧表示させたいと思っています。

具体的には、
・横列に名前(Ａ列）、本籍地(Ｂ列）、現住所(Ｃ列）となっている表が1シートに複数個書かれている。
・上記シートが２０枚ほどある
・ＶＢのフォーム上で、特定の本籍地（ex.沖縄）を入力し検索ボタンをおすと該当したデータの一覧がＶＢのフォーム上に表示される。
という感じです。

エクセル上で一時シートを作り、本籍地をキーにしてデータをいったん抽出し、それをＶＢのフォームに表示させたらと思ったのですが、ＶＢＡはある程度わかるのですがＶＢはまったく初心者なのでとても困っています。
ＯＬＥというものを使えばいいということまではわかったのですが、使い方がよくわかりません。
ヒントになるようなソースコードを教えていただけるととても助かります。
勉強不足で申し訳ないのですが、どうぞよろしくお願いいたします。

編集 削除

---

Q&Aの掲示板の ドラッグ&ドロップしたファイルのフルパス取得  が
そうですが

編集 削除

---

簡単なソースコードです。
あくまで、簡単に作ったソースですので、エラートラップやその他は自力でやってくださいね

Private xlsApp    As Excel.Application
Private xlsBook   As Excel.Workbook
Private xlsSheet  As Excel.Worksheet

Set xlsApp = CreateObject("Excel.Application")  'エクセル起動
Set xlsBook = xlsApp.Workbooks.Add              '新規ファイルを作成します
xlsApp.Application.DisplayAlerts = False        '確認のダイアログ ボックスを表示しない
Set xlsSheet = xlsBook.Worksheets.Add
xlsSheet.Range("A1").Select
後は「A1」セルを煮るなり焼くなり…

編集 削除

---

花ちゃんさんクリリンさん、早速のお返事ありがとうございました。
教えていただいたソースを参考にエクセルのデータを取得するところまではなんとかこぎつけました！
後はFlexGridを使えばデータの表示も出来そうです。
こんなに早く解決できてとてもうれしいです。
ありがとうございました。m(_ _)m

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。