こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

VBでファイル読み込み

VBであるところにあるCSVファイルのデータを読み込みエクセルへ変換出力したいのですが教えてください。コモンダイアログボックス(?)と言うものを使って作成したいのです。よろしくお願いします。
がんばってやってみたのですがわかりません。教えてください。
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

投稿日時 - 2004-03-02 01:10:52

QNo.794415

すぐに回答ほしいです

質問者が選んだベストアンサー

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

がんばってください。

投稿日時 - 2004-06-11 15:57:39

ANo.3

このQ&Aは役に立ちましたか?

11人が「このQ&Aが役に立った」と投票しています

回答(3)

ANo.2

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

投稿日時 - 2004-03-02 15:41:29

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

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

投稿日時 - 2004-03-02 04:01:07

補足

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

投稿日時 - 2004-03-02 06:37:43

あなたにオススメの質問