エクセルVBAを使ってセルのデータをtxtファイルで出力したいと考えています。
仮にフォルダAがあり、その中にフォルダB、フォルダCがあります。
(フォルダBの中にはフォルダDがあります)
フォルダCの中には、エクセルブックがあるとします。
以下のような感じです。
フォルダA
├フォルダB
│ └フォルダD(この中にtxtファイルを作りたい)
│
└フォルダC
└エクセルブック
エクセルブック(Sheet1)
セルA1には「日記タイトル」
セルA2には「日記の内容」
があるとします。
エクセルVBAを使って、フォルダDの中に「日記タイトル.txt」のファイルを作りたいです。
日記タイトル.txtの中身は、セルA2の日記の内容です。
エクセルVBAを使いたいのですが、どのように書けばいいか教えてください。
よろしくお願いします。
No.8ベストアンサー
- 回答日時:
No.2のママチャリです。
nao0620さんの回答を理解できれば、もう答えは分かっていますよね。
念のため、プログラムコードを書いておきますが、内容を理解しないと、
応用ができませんよ。
Sub WriteDiary()
ChDir ThisWorkbook.Path
ChDir ".." '一階層上がる
ChDir CurDir & "\フォルダB\フォルダD"
Open CurDir & "\" & WorkSheets("Sheet1").Range("A1") & ".txt" For Output As #1
Print #1, WorkSheets("Sheet1").Range("A2")
Close
End Sub
No.7
- 回答日時:
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様
回答ありがとうございます。
参考になりました。
今回は、いろいろと勉強になりました。
本当にありがとうございました。
No.6
- 回答日時:
失礼しました。
フォルダの指定が抜けていたので、修正しました。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様
何度も回答していただき本当にありがとうございます。
だいたい思っていたことができました。
VBAの基本的な事が分かっておらず本当の苦労しているのですが、最後のもう一つだけ教えていただけると助かります。
3行の「Open "C:\フォルダA\~」この部分なのですが、フォルダを移動させることがあるので、そうなるとパスが変わってきてしまいます。
この場合の対処法としては、どのようにすればいいでしょうか?
何度もお手数おかけしますが、教えていただけないでしょうか?
よろしくお願いします。
No.5
- 回答日時:
お待たせしました。
これでどうでしょうか。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
No.3
- 回答日時:
こんな感じですかね。
後半の出力部分は、No,1さんのパクリです。
Sub WriteDiary()
ChDir ThisWorkbook.Path
ChDir ".." '一階層上がる
ChDir CurDir & "\フォルダB\フォルダD"
Open CurDir & "\日記タイトル.txt" For Output As #1
Print #1, Range("A2")
Close
End Sub
回答ありがとうございます。
ちょっと言葉が足らなかったのですが・・・
Open CurDir & "\日記タイトル.txt" For Output As #1
ここの日記タイトル.txtですが、セルA1の値を入れたいです。
(A1.txt)
申し訳ありませんが、どのように書けばいいか教えていただけないでしょうか?
よろしくお願いします。
No.2
- 回答日時:
どこかにありましたよ、バッチファイルを作成して実行するマクロが。
VBA バッチファイル作成 で検索したらヒットしました。
http://ameblo.jp/hobbyse/entry-10646440916.html
ファイル作成だけで止めて、実行部分は削除しとけばいいのです。ファイル名も好きなものにして。
ファイルの中身は、例えば
.WriteLine Cells(1,"A").Value
と書けばA1セルの中身を書き出します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/16 14:36
- Excel(エクセル) ExcelVBA メモ帳を起動し名前を付けて指定フォルダに保存 2 2022/04/18 13:15
- Excel(エクセル) フォルダAから1つのファイルだけを、フォルダBへを移動するVBAについて 2 2022/07/25 11:45
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Excel(エクセル) フォルダ内のエクセルファイルを開かずにデータ採取する関数式 2 2022/12/22 22:15
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/04 12:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA 最新のフォルダ取得
-
windowsでテキストファイルの各...
-
Windows10でコマンドプロンプト...
-
ファイル名と同名のフォルダを...
-
ExcelのVBAでフォルダ指定がで...
-
VBA フォルダ名に特定の文字を...
-
Dreamweaverでイメージを挿入す...
-
あるフォルダの中にあるファイ...
-
保存先のフォルダ名を指定した...
-
Access VBA で フォルダ権限...
-
パスを通したはずなのに「パス...
-
excel VBA Dirにて検索したフォ...
-
フォルダにリンクを貼りたい
-
フォルダ内のPDFファイル名を変...
-
Excelのハイパーリンクについて...
-
バッチファイルで指定フォルダ...
-
多量のファイルをフォルダに自...
-
Hitachi Embedded Workshop (HE...
-
エクセル マクロで指定フォル...
-
【マクロ】フォルダAからダBへ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Windows10でコマンドプロンプト...
-
パス名に2バイト文字(マルチバ...
-
ファイル名と同名のフォルダを...
-
VBA 最新のフォルダ取得
-
Excelのハイパーリンクについて...
-
デスクトップの画像をhtmlに表...
-
ディレクトリ名変更してコピー...
-
VBA フォルダ名に特定の文字を...
-
バッチファイルで指定フォルダ...
-
フォルダ内のPDFファイル名を変...
-
Access VBA で フォルダ権限...
-
excelマクロ 冒頭3文字が一致す...
-
【マクロ】ファイル名の日付に...
-
フォルダにリンクを貼りたい
-
会社のネットワーク上のファイ...
-
多量のファイルをフォルダに自...
-
C ファイル出力で、フォルダが...
-
保存先のフォルダ名を指定した...
-
vbsで選択ダイアログを表示した...
-
Excel VBA 同じ名前のフォルダ...
おすすめ情報