[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『VBAでシート3、4、5のテキスト出力』(ピッピ)
シート3と4と5を新しく作成したフォルダにまとめて
それぞれ別のテキストファイルとして出力したいのですが
どのようなコードになるのか教えてください
フォルダの名前はシート1
テキストファイルはそれぞれのシートと同じ名前にしたいです
< 使用 Excel:Excel2010、使用 OS:Windows7 >
こういうことかな?
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
Mookさんのコードに
使用している変数の定義を追加することで
解決することができました
2人ともありがとうございます
もう一つ
複数ブックを開いているときにブックを全て
閉じるコードもお時間あれば教えていただきたいです
(ピッピ) 2014/09/18(木) 19:24
>ブックを全て閉じる マクロがあるブックも閉じるのでしょうか? (HANA) 2014/09/25(木) 09:31
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.