Excel VBA質問箱 IV

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

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


10290 / 13644 ツリー ←次へ | 前へ→

【22624】外部データでファイルを読込むには? VBA初心者 05/2/24(木) 22:14 質問[未読]
【22626】Re:外部データでファイルを読込むには? ponpon 05/2/24(木) 22:28 発言[未読]
【22670】Re:外部データでファイルを読込むには? VBA初心者 05/2/26(土) 12:10 質問[未読]
【22675】Re:外部データでファイルを読込むには? ponpon 05/2/27(日) 19:15 発言[未読]
【22678】Re:外部データでファイルを読込むには? VBA初心者 05/2/27(日) 23:52 お礼[未読]

【22624】外部データでファイルを読込むには?
質問  VBA初心者  - 05/2/24(木) 22:14 -

引用なし
パスワード
   毎度の事ながらスイマセン。

テキスト文書のDBCファイルをOpenメソッドで読込もうとしたら、
エラーが出てきて読込めませんでした。
マクロの記録で外部データの取り込みあるシートのRange("A1")に添付したの
ですが、よく分かりませんでした。

任意のファイルを外部データでエクセルで読込むにはどうしたら宜しいでしょうか?

【22626】Re:外部データでファイルを読込むには?
発言  ponpon  - 05/2/24(木) 22:28 -

引用なし
パスワード
   ▼VBA初心者 さん:
ponponです、こんばんは。

>任意のファイルを外部データでエクセルで読込むにはどうしたら宜しいでしょうか?

詳しいことわかりませんが、「データ」→「外部データの取り込み」→
                     「データの取り込み」を
マクロの記録でやってみたらいかがでしょう。

【22670】Re:外部データでファイルを読込むには?
質問  VBA初心者  - 05/2/26(土) 12:10 -

引用なし
パスワード
   ▼ponpon さん:
>マクロの記録でやってみたらいかがでしょう。

やってみましたが、よく分かりませんでした。

textファイルの読み方は分かっているので、
任意のDBCファイルを選択したら、同一フォルダ内にDBCファイルをコピーして、
拡張子を".DBC"から".TXT"に変換したファイルを作成したいのですが、
出来ますでしょうか?
つまり、同じファイル名の拡張子違いのファイルが2つある状態にしたいのです。

【22675】Re:外部データでファイルを読込むには?
発言  ponpon  - 05/2/27(日) 19:15 -

引用なし
パスワード
   ▼VBA初心者 さん:
ponpon です。
手元に.dbcファイルなるものが手元になく、
私には、お手上げです。
後は、常連さんの登場を待ちましょう。

ただ単に.dbcファイルをコピーして拡張子を変えるだけなら

Sub test()

  Dim oldFile As String
  Dim newFile As String
 
   oldFile = Application.GetOpenFilename( _
       FileFilter:="DBCファイル,*.dbc,すべてのファイル,*.*")
   If oldFile = "False" Then Exit Sub
 
   newFile = Replace(oldFile, Right(oldFile, 3), "txt")
   FileCopy oldFile, newFile
End Sub
>textファイルの読み方は分かっているので、
>任意のDBCファイルを選択したら、同一フォルダ内にDBCファイルをコピーして、
>拡張子を".DBC"から".TXT"に変換したファイルを作成したいのですが、
>出来ますでしょうか?
>つまり、同じファイル名の拡張子違いのファイルが2つある状態にしたいのです。

【22678】Re:外部データでファイルを読込むには?
お礼  VBA初心者  - 05/2/27(日) 23:52 -

引用なし
パスワード
   ▼ponpon さん:
いろいろすいません。
あとは、このマクロを工夫してやってみたいと思います。
ありがとうございます。

10290 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free