自動でテキスト形式で保存するには？ (ID:123243)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちょっとやりたいことが見えてきたので・・・。 >テキストファイルを日付ごとに分けて指定フォルダ 上記リンクにある、関数をそのまま使用出来ます。 -- '********************************************************************* ' 機 能 : ファイル出力する(追記書込み) ' 引 き 数 : strPath 出力先 ' : strData 出力データ '********************************************************************* Public Sub rOutTextFile(strPath As String, strData As String) On Error GoTo err_handler Dim intFNum As Integer intFNum = FreeFile Open strPath For Append As #intFNum Print #intFNum, strData end_proc: Close #intFNum Exit Sub err_handler: MsgBox Err.Description, vbCritical Resume end_proc End Sub -- っと、 そこで、 指定フォルダが"c:\nikki"だとすると dim strOutputPath As String dim strDate as String strOutputPath = "c:\nikki" strDate = Format(Now,"YYYYMMDD")←日ごとにファイル名を変える Call rOutTextFile(strOutputPath & "\" & strDate & ".TXT","日記の中身") ってな感じかな？