Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

57421 / 76732

←次へ　｜　前へ→


	【24048】ブック名をアクティブシート名の１つと同じにするには？

tarny - 05/4/11(月) 1:16 -


	引用なし

	パスワード

すみません。ＶＢＡ初心者です。
１つのブックにワークシートが複数存在し、シート名は関連付けられた名前で並んでいます。(ex.ABC/ABC明細/DEF/DEF明細/GHI/GHI明細････)
２つの関連づけられたシート(ex.ABC/ABC明細)をアクティブにして、左側のシートの名前(ABC)をそのまま新しいブック名にして保存したいのですが、どのようなコードにすればよいのでしょう？

以下の例だと、シートが１つの場合は問題ないのですが、複数シートはコピーされません。どなたかご助言お願いいたします。<(_ _)>
↓↓↓

Sub 新規ブック作成()

Dim ブック名
　　
ブック名 = ActiveSheet.Name
　　ActiveSheet.Copy
　ActiveWorkbook.SaveAs (ブック名 & ".xls")
　　ActiveWorkbook.Close
　　
End Sub

0 hits

▼

【24048】ブック名をアクティブシート名の１つと同じにするには？ tarny 05/4/11(月) 1:16

≪