教えてください。

質問

http://www.okweb.ne.jp/kotaeru.php3?q=833210

この上記サイトの質問項目をマクロで組む事は可能でしょうか？
いろいろなページを探してたのですが、探し方が悪いのか見つけられませんでした。宜しくお願い致します。

回答No.2

papayuka · ベストアンサー

#1です。

> 自動的に新しいブックを立ち上げて
> 保存をする事は難しいですか？

当初の質問と若干ニュアンスが変わってきます。

現在アクティブなシートを新しいブックにコピーするならこれだけです。

Sub Test1()
　ActiveSheet.Copy
End Sub

また、保存をさせるのも簡単ですが「何処に」と「どんなファイル名で」の問題が出ます。

Sub Test2()
Dim FName
　ActiveSheet.Copy
　FName = Application.GetSaveAsFilename _
　　　　 (fileFilter:="Excel (*.xls), *.xls")
　If FName = False Then Exit Sub
　ActiveWorkbook.SaveAs FName, xlWorkbookNormal
End Sub

お礼

すみません、ふと思ったので、はじめの質問とは異なってくる事を承知で聞いてみました。本を読みながらやっていたのですがだんだん訳がわからなくなってきていたので参考になり助かりました。教えて頂いたのを基に組み合わせてがんばってみます。
ありがとうございましたｍ（＿ ＿）ｍ

回答No.1

papayuka

可能です。

ブック名やシート名を固定した方が処理的には簡単です。

例）
新規ブックを２つ開いて、その１つに標準モジュールを追加して下記のマクロをコピペします。
実行するとマクロを書いたブックの一番左のシートをもう一つのブックの最後にコピーします。

Sub Test()
Dim wb As Workbook
For Each wb In Workbooks
　If Not wb Is ThisWorkbook Then
　　 ThisWorkbook.Worksheets(1).Copy _
　　　　after:=wb.Worksheets(wb.Worksheets.Count)
　　 Exit For
　End If
Next wb
End Sub

補足

親切なお返事有難うございます。大変助かります。

＞新規ブックを２つ開いて・・・
とありますが、自動的に新しいブックを立ち上げて
保存をする事は難しいですか？教えてくださいませ。