Ｐａｇｅ 558 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼ダイアログボックスを開いてからCSV（TXT)の読込みの仕方 jin 03/1/16(木) 15:28 ┗Re:ダイアログボックスを開いてからCSV（TXT)の読込みの仕方 Jaka 03/1/16(木) 16:21 ┗リンク失敗 Jaka 03/1/16(木) 16:25 ┗Re:リンク失敗 jin 03/1/16(木) 19:13 ┗Re:リンク失敗 jin 03/1/17(金) 1:22 ─────────────────────────────────────── ■題名 ： ダイアログボックスを開いてからCSV（TXT)の読込みの仕方 ■名前 ： jin <jouji-nsaki@mub.biglobe.ne.jp> ■日付 ： 03/1/16(木) 15:28 -------------------------------------------------------------------------
| VBA初心者なので皆さんのお力をお借りしたくて投稿しました。 ﾌｫｰﾑにてボタンをクリックするとダイアログボックスが表示され任意のテキストデータ (CSV,TXT）を選択してデータを取得して条件文を経て特定のセルに配置したいのですが、 どのようにしたらよろしいでしょうか？ 宜しくお願いいたします。 部分的な回答でもなにかおわかりでしたら教えてください。 |
| >部分的な回答でもなにかおわかりでしたら教えてください。 部分的ですが、 #1910 こちらも忘れずに #1911 |
| すみません。 [#1910] と [#1911] |
| ▼Jaka さん： >すみません。 > >[#1910] >と >[#1911] 早速の回答ありがとうございました。 参考にさせていただきます。 そして説明してほしい点と申しますか､質問があるのですが, Application.Dialogs(xlDialogOpen).Show オープンファイル = Application.GetOpenFilename("Excelファイル (*.csv;*.txt), *.csv;*.txt") If オープンファイル <> False Then 拡張子 = StrConv(Right(オープンファイル, 3), vbUpperCase) Open オープンファイル For Input As #1 Else End End If 上記の構文にて ダイアログボックスにて選択されたファイル(test200103.txt(*.csv))を 選択したという設定で Open "c:\test200103.txt" For Input As #1 と同様の処理が可能ということでしょうか？ 誠に申し訳ありませんが宜しくお願いします。m(__)m |
| ご回答いただいたサンプルと過去のログを調べてうまくいきました。 ほんとにありがとうございました。 おさがわせいたしました。 |