VBでファイル読み込み

質問

ＶＢであるところにあるＣＳＶファイルのデータを読み込みエクセルへ変換出力したいのですが教えてください。コモンダイアログボックス（？）と言うものを使って作成したいのです。よろしくお願いします。
がんばってやってみたのですがわかりません。教えてください。
Private Sub Command1_Click()
Dim gnum(25), tensuu(32, 99)
Dim sougouten(99), heikin(99), gouhi$(99) 'ファイルを開く
On Error GoTo ErrHandler

'コモンダイアログボックス
CommonDialog1.CancelError = True
CommonDialog1.Filter = "すべてのファイル　(*.*)|*.*|" _
& "テキスト　ファイル　(*.txt)|*.txt|バッチ　ファイル　(*.bat)|*.bat"
CommonDialog1.FilterIndex = 2
CommonDialog1.ShowOpen
With CommonDialog1
.FileName = ""
.ShowOpen
End With
Exit Sub
ErrHandler:
'　ユーザーが　[キャンセル]　ボタンをクリックしました。
End Sub

回答No.3

yarazu · ベストアンサー

ファイルを読む以前の問題ですか？
Private Sub Command1_Click()
CommonDialog1.ShowOpen
Debug.Print CommonDialog1.FileName
End Sub
を試みてください。
.FileNameに指定したファイルのファイル名称が
フルパスで格納されています。
このファイル名称を使って、今までの方がコメントしているファイル読み込みを行ってください。

がんばってください。

回答No.2

R-Fuji

コモンダイアログは、ファイルの位置フルパスを取るまでの動作しかしません。
CSVならテキストなので
http://www.bcap.co.jp/hanafusa/VBHLP/txt01.htm
などのようにファイルとして読み込み
参照>Microsoft Excel Object
エクセルオブジェクトを参照し、セルに放り込んでいくのが確実でしょう。ファイルインポート等の方法もありますがセルの書式によって表示がおかしくなったりするので手作業が確実です。
エクセル操作参考サイト
http://www.bcap.co.jp/hanafusa/VBHLP/excelframe.htm

回答No.1

Aruku-20030515

ＣＶＳのデータをエクセルに変換したいのでしょうか？
それともＣＶＳのデータをエクセルで表示させたいのでしょうか？

どちらにしろ、ＶＢから操作させる場合
エクセルの制御をＶＢで行わないといけません。
CreateObject("Excel.Application")
の命令などを使ってみてください

補足

ＣＶＳのデータをエクセルに変換したいのです。