|
▼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から順次表示します
確認してみて下さい
|
|