Excel VBA質問箱 IV

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

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


49992 / 76732 ←次へ | 前へ→

【31637】Re:拡張子なしのファイルの読込
発言  ichinose  - 05/11/27(日) 16:03 -

引用なし
パスワード
   ▼R さん,ぱっせんじゃーさん、こんにちは。

>
>拡張子なしのファイルの読込方法を検討しています。
>ファイル名は ”20051125”といったものになります。
これね、拡張子の有無より、この拡張子なしのファイルの中身が
txtファイルやCsvファイルなら、読み込むことはできます。

新規ブックの標準モジュールに以下のコードをコピーし、
一度、ブックを保存したの後に実行してみて下さい。

'====================================================
Sub mk_sample()
  Dim flno As Long
  flno = FreeFile()
  Open ThisWorkbook.Path & "\samp" & Format(Date, "yyyymmdd") For Output As #flno
  For idx = 1 To 10
   Print #flno, idx & "を記述しました"
   Next
  Close #flno
End Sub

'↑拡張子なしのファイルのサンプルの作成、保存したブックと同じフォルダに
'samp20051127(本日実行すれば) という拡張子なしのファイルを作成します。


'=============================================================
Sub read_sample()
  Dim flno As Long
  Dim txt As String
  Dim rw As Long
  flno = FreeFile()
  rw = 0
  Open ThisWorkbook.Path & "\samp" & Format(Date, "yyyymmdd") For Input As #flno
  
  Do Until EOF(flno)
   Line Input #flno, txt
   rw = rw + 1
   Cells(rw, 1).Value = txt
   Loop
   
  Close #flno
End Sub

'作成した拡張子なしファイルから,データを読込み、セルA1から順次表示します


確認してみて下さい
1 hits

【31602】拡張子なしのファイルの読込 R 05/11/26(土) 13:32 質問
【31603】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/26(土) 17:15 発言
【31619】Re:拡張子なしのファイルの読込 R 05/11/27(日) 13:28 質問
【31621】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 13:40 発言
【31622】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 13:41 発言
【31629】Re:拡張子なしのファイルの読込 R 05/11/27(日) 14:59 質問
【31635】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 15:44 回答
【31636】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/27(日) 15:52 発言
【31641】Re:拡張子なしのファイルの読込 R 05/11/27(日) 18:28 お礼
【31697】Re:拡張子なしのファイルの読込 R 05/11/28(月) 18:07 質問
【31700】Re:拡張子なしのファイルの読込 ぱっせんじゃー 05/11/28(月) 20:36 回答
【31710】Re:拡張子なしのファイルの読込 R 05/11/29(火) 8:57 お礼
【31637】Re:拡張子なしのファイルの読込 ichinose 05/11/27(日) 16:03 発言

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