エクセルＶＢＡ　セルのデータをtxtファイルで出力したい？

Question

エクセルＶＢＡを使ってセルのデータをtxtファイルで出力したいと考えています。

仮にフォルダＡがあり、その中にフォルダＢ、フォルダＣがあります。
（フォルダＢの中にはフォルダＤがあります）

フォルダＣの中には、エクセルブックがあるとします。

以下のような感じです。

フォルダＡ
　　　　├フォルダＢ
　　　　│　　　　└フォルダＤ（この中にtxtファイルを作りたい）
　　　　│
　　　　└フォルダＣ
　　　　　　　　　└エクセルブック

エクセルブック（Sheet1）
セルA1には「日記タイトル」
セルA2には「日記の内容」

があるとします。

エクセルＶＢＡを使って、フォルダＤの中に「日記タイトル.txt」のファイルを作りたいです。

日記タイトル.txtの中身は、セルA2の日記の内容です。

エクセルＶＢＡを使いたいのですが、どのように書けばいいか教えてください。

よろしくお願いします。

ママチャリ · Accepted Answer

No.2のママチャリです。
nao0620さんの回答を理解できれば、もう答えは分かっていますよね。
念のため、プログラムコードを書いておきますが、内容を理解しないと、
応用ができませんよ。

Sub WriteDiary()
ChDir ThisWorkbook.Path
ChDir ".." '一階層上がる
ChDir CurDir & "\フォルダＢ\フォルダＤ"

Open CurDir & "\" & WorkSheets("Sheet1").Range("A1") & ".txt" For Output As #1
Print #1, WorkSheets("Sheet1").Range("A2")
Close
End Sub

nao0620 · Answer

3行の「Open "C:\フォルダA\～」この部分なのですが、フォルダを移動させることがあるので、そうなるとパスが変わってきてしまいます。

この場合の対処法としては、どのようにすればいいでしょうか？
----------------------------------------------------------------------------
一つには、A3せるにフォルダ名（C:\フォルダA\フォルダB\）を入力することです。そして、OPEN文を次のように書きかえればよいのではないでしょうか。

Open Worksheets("Sheet1").cells(1,3).value  + Worksheets("Sheet1").Cells(1, 1).Value + ".txt" For Output As #1

nao0620 · Answer

失礼しました。フォルダの指定が抜けていたので、修正しました。

Option Explicit

Sub Nikki()
    
    Open "C:\フォルダA\フォルダB\" + Worksheets("Sheet1").Cells(1, 1).Value + ".txt" For Output As #1
        
        Print #1, Worksheets("Sheet1").Cells(1, 2).Value

Close

End Sub

nao0620 · Answer

お待たせしました。これでどうでしょうか。

Option Explicit

Sub Nikki()
    
    Open Worksheets("Sheet1").Cells(1, 1).Value + ".txt" For Output As #1
        
        Print #1, Worksheets("Sheet1").Cells(1, 2).Value

Close

End Sub

nao0620 · Answer

少し時間を下さい。コーディングを考えてみます。

ママチャリ · Answer

こんな感じですかね。
後半の出力部分は、No,1さんのパクリです。

Sub WriteDiary()
    ChDir ThisWorkbook.Path
    ChDir ".."  '一階層上がる
    ChDir CurDir & "\フォルダＢ\フォルダＤ"
    
    Open CurDir & "\日記タイトル.txt" For Output As #1
    Print #1, Range("A2")
    Close
End Sub

OverTheGalaxy · Answer

どこかにありましたよ、バッチファイルを作成して実行するマクロが。
VBA バッチファイル作成　で検索したらヒットしました。
http://ameblo.jp/hobbyse/entry-10646440916.html
ファイル作成だけで止めて、実行部分は削除しとけばいいのです。ファイル名も好きなものにして。
ファイルの中身は、例えば
.WriteLine Cells(1,"A").Value
と書けばＡ１セルの中身を書き出します。

nao0620 · Answer

以下のやり方でどうでしょうか。
open "C:\フォルダA\フォルダB\日記タイトル.txt" for output as #1
print #1, セルA2を指定
close
セルA2の指定の仕方は、いくつかやり方があるので、省略させていただきます。

エクセルＶＢＡ セルのデータをtxtファイルで出力したい？

No.2のママチャリです。

3行の「Open "C:\フォルダA\～」この部分なのですが、フォルダを移動させることがあるので、そうなるとパスが変わってきてしまいます。

失礼しました。

お待たせしました。

少し時間を下さい。

こんな感じですかね。

どこかにありましたよ、バッチファイルを作成して実行するマクロが。

以下のやり方でどうでしょうか。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

エクセルＶＢＡ　セルのデータをtxtファイルで出力したい？