[[20140918171617]]　『ＶＢＡでシート３、４、５のテキスト出力』（ピッピ）　ページの最後に飛ぶ

『ＶＢＡでシート３、４、５のテキスト出力』（ピッピ）

シート３と４と５を新しく作成したフォルダにまとめて
それぞれ別のテキストファイルとして出力したいのですが

どのようなコードになるのか教えてください

フォルダの名前はシート１

テキストファイルはそれぞれのシートと同じ名前にしたいです

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

シートなんだかフォルダなんだかファイル名なんだか、さっぱり判らないので、例を出してください。
ブック名、シート名、フォルダ名、ファイル名を明記すること。
（???） 2014/09/18(木) 17:38

 こういうことかな？

 Sub Sample()
    新しく作成したフォルダ = ThisWorkbook.Path & "\" & ThisWorkbook.Worksheets(1).Name
    If Dir(新しく作成したフォルダ, vbDirectory) = "" Then MkDir 新しく作成したフォルダ
    Application.DisplayAlerts = False
    For i = 3 To 5
        ThisWorkbook.Worksheets(i).Copy
        ActiveWorkbook.SaveAs Filename:=新しく作成したフォルダ & "\" & ThisWorkbook.Worksheets(i).Name & ".txt", FileFormat:=xlText
        ActiveWorkbook.Close
    Next
    Application.DisplayAlerts = True
 End Sub

（Mook） 2014/09/18(木) 18:38

？？？さん
分かりにくい文章で申し訳ありません

Ｍｏｏｋさんのコードに
使用している変数の定義を追加することで
解決することができました

２人ともありがとうございます

もう一つ

複数ブックを開いているときにブックを全て
閉じるコードもお時間あれば教えていただきたいです
（ピッピ） 2014/09/18(木) 19:24

 ＞ブックを全て閉じる
 マクロがあるブックも閉じるのでしょうか？
 　
（HANA） 2014/09/25(木) 09:31

コメント返信：

[ 一覧(最新更新順) ]

[[20140918171617]] 『ＶＢＡでシート３、４、５のテキスト出力』（ピッピ） ページの最後に飛ぶ

[[20140918171617]]　『ＶＢＡでシート３、４、５のテキスト出力』（ピッピ）　ページの最後に飛ぶ