テキストファイルへ書き込みExcel

Excel Tipsメニューに戻る

スポンサーリンク



ExcelシートのVBAコード

Option Explicit

Private Sub ExTextWrite()
    Dim fno As Integer
    
    fno = FreeFile
    
    Open "c:\test.txt" For Output As fno
    Print #fno, "Excel"
    Print #fno, "エクセル"
    Print #fno, "えくせる"
    Close fno
End Sub

Private Sub CommandButton1_Click()
    ExTextWrite
End Sub

スポンサーリンク



[実行結果 Excel画面]
書き込みボタンをクリックすると、実行を開始します。
書き込みボタン

テキストファイルをメモ帳で開いた結果
メモ帳

Excel Tipsメニューへ

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved