Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

74730 / 76807

←次へ　｜　前へ→


	【6539】Re:テキストデータからの抽出

Hirofumi

- 03/7/7(月) 21:11 -


	引用なし

	パスワード

>>　　
>>　　'「ファイルを開く」ダイアログを表示
>>　　strFileFilter = "TextFile (*.txt),*.txt,CsvFile (*.csv),*.csv"
>
>この部分には目的のテキストファイルのdirを入力すればいいのですよね？

違います、このマクロを実行すると、ファイル選択のダイアログが出てきますので
其処から、読み込むファイルを選択して下さい
因みに、strFileFilterはダイアログに表示させるファイルの拡張子を指定している物です

もし、ファイルを直接指定するので有れば、

　　'「ファイルを開く」ダイアログを表示
　　strFileFilter = "TextFile (*.txt),*.txt,CsvFile (*.csv),*.csv"
　　vntFileName = Application.GetOpenFilename(strFileFilter, 1)
　　'もし、キャンセルされた場合Subを抜ける
　　If vntFileName = False Then
　　　　Exit Sub
　　End If

上記の行を削除して、その位置に以下の様なコードを記述します
このマクロを保存したBookとテキストと同じフォルダに入れているなら

　　vntFileName = ThisWorkbook.Path & "\" & "TestData.csv"

これで直接ファイルを指定できます
でも、まずは、このマクロをそのまま実行して見てください

3 hits

▼

【6505】テキストデータからの抽出 いわまる 03/7/4(金) 18:17