開かれているExcelを元に別のBookを作成

質問

Aブックの中にa,b,cというシートがあります。
1.Aブックを開いて、ボタンをクリック
2.B(名前は任意)というブックを新規作成
3.aやcのシートをコピーし、a',c'というシート名にする
4.その各シートのセルに値を代入

以上のことをさせようとしています。
なお２．以降は全てバックグラウンドで実行することが前提になっています。
いい方法ございましたら、よろしくお願いします。

回答No.3

imogasi · ベストアンサー

しっかり質問文は書いてくださいね。
VBから入る質問（WEBで照会のこと、多数あり）ようにも見えるが、下記はエクセルから（１）（２）するものとする。

（１）「Aブックを開」くのは人が操作
（２）「ボタンをクリック」も人が操作操作　するとする。
シートにボタンを１つ貼り付ける。そのボタンクリックイベントに
Private Sub CommandButton1_Click()
Dim bk1 As Workbook
Dim bk2 As Workbook
Set wb1 = ActiveWorkbook
MsgBox wb1.Name
Set wb2 = Workbooks.Add
wb2.SaveAs "Book6b.xls"
MsgBox wb2.Name
Dim mySheet As Worksheet
Set mySheet = wb1.Worksheets("商品別売上")
mySheet.Copy Before:=wb2.Worksheets(3) '
wb2.Worksheets("商品別売上").Range("A1") = "assssssss"
End Sub
をコピペ。
全提はボタンを貼り付けたブック名は「Book6.xls」
ボタンを貼り付けたシート名は、「商品別売上」と仮定する。
新しく「Book6B.xls」というブックができて、そこに 「商品別売上」
シートをコピーし、A1セルに「assssssss」という値をセットしている。
ーー
「aやcのシートをコピー」－－＞上記では,aに当たるものしかコピーしてない。Cを増やしてください。a'にするにはシートの名前を変更のこと。
＞．以降は全てバックグラウンドで実行することが・・
難しそうなことを書いているが、できるという目算はあるのですか。
パソコンレベルでタスクの実行の優先順位（プライオリティ）をつけるコード作成スキルはないので、略。ウィンドウズはそういうOSではないのではないの。

回答No.2

hana-hana3

＞なお２．以降は全てバックグラウンドで実行することが前提になっています。

ＶＢＡなら他のブックをアクティブにしなければバックですし、
Application.ScreenUpdating = False
として仕舞えばマクロの実行終了まで画面が変わりませんけど。

２．はブックのコピーを保存して、
３．コピーを開いてで不要シートの削除とシートのリネーム
４．の処理
という手順でいかがでしょうか？

回答No.1

STICKY2006

こんちは。

>>いい方法ございましたら、よろしくお願いします。
VBのカテゴリで質問されてますけど、まず、ホントにVBですか？
VBAとかじゃなく。VB.NETとかでもなく。

まぁ、一口に、VBと言っても、バージョンも分からないので的確なアドバイスはできないと思いますよ。

という事で、自分がVB6で同じようなことやってたときの参考サイトです。

http://hanatyan.sakura.ne.jp/

補足

STICKY2006　様
回答ありがとうございます。
質問ばっかりで開発環境の記載を忘れていました。
Excel2003 SP2 VBAです。