ExcelのファイルIO

input.txtを読んでそのままoutput.txtに出力します。


'テキストファイルの読み込みと書き込み
Sub TextFileRW()
Dim RFname As String 'リードファイル名
Dim WFname As String 'ライトファイル名
Dim RFno As Long 'リードファイルハンドル
Dim WFno As Long 'ライトファイルハンドル
Dim Buf As String 'ファイルの1行バッファ

RFname = ThisWorkbook.Path & "\input.txt" 'リードファイル名設定
WFname = ThisWorkbook.Path & "\output.txt" 'ライトファイル名設定

RFno = FreeFile() '使用可能なファイル番号を取得
Open RFname For Input As #RFno 'ファイルをシーケンシャル入力モードで開きます
WFno = FreeFile() '使用可能なファイル番号を取得
Open WFname For Output As #WFno 'ファイルをシーケンシャル出力モードで開きます

Do While Not EOF(RFno) 'ファイルの終端までループを繰り返します
Line Input #RFno, myBuf 'リードファイルから行を変数に読み込みます
Print #WFno, myBuf '変数をライトファイルに書き込みます
Loop

Close #RFno 'ファイルを閉じます
Close #WFno 'ファイルを閉じます
End Sub

テーマ : Officeソフト
ジャンル : コンピュータ

2007-08-08 : Work-Win-Office/Acrobat : コメント : 0 : トラックバック : 0
Pagetop
コメントの投稿
非公開コメント

Pagetop
« next  ホーム  prev »

プロフィール

zive

Author:zive
大阪在住、男

ブログ検索

月別アーカイブ

FC2カウンター