SoftwareEngineering

ファイルに書き込む†

Dim freeFileNo As Integer

' ファイルの空き番号を取得
freeFileNo = FreeFile


Open "D:\UDF\VBA\ファイル書き込みテスト.txt" For Output As #freeFileNo

Print #freeFileNo, "あいうえお"
Print #freeFileNo, "かきくけこ"
Print #freeFileNo, "さしすせそ"

Close #freeFileNo
トップ   一覧 検索 最終更新   ヘルプ   最終更新のRSS