人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルVBAの質問です。複数シートがあるdownload.xlsというブックがあります。このブックの2シート目以降を別ブック(today.xls)として、download.xlsと同じディレクトリに保存し、尚かつ最後のステップとしてdownload.xlsから2シート目以降を削除して終わるマクロをご教授いただけないでしょうか。完全な回答をしていただいた最初の回答者の方にはお気持ちですが、300ポイント差し上げたいと思います。ぜひ宜しくお願いいたします。

●質問者: tororosoba
●カテゴリ:コンピュータ
✍キーワード:Download Today VBA xls エクセル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● SALINGER
●300ポイント

こんな感じでどうでしょうか。

Sub Macro()
 Dim wb As Workbook
 Dim c As Integer
 Dim i As Integer
 
 c = Worksheets.Count
 Application.SheetsInNewWorkbook = 1

 Set wb = Workbooks.Add
 
 Application.DisplayAlerts = False
 For i = 1 To c - 1
 ThisWorkbook.Worksheets(2).Copy after:=wb.Worksheets(wb.Worksheets.Count)
 ThisWorkbook.Worksheets(2).Delete
 Next
 
 wb.Worksheets(1).Delete
 
 Application.DisplayAlerts = True
 
 wb.SaveAs (ThisWorkbook.Path & "\today.xls")
 wb.Close
End Sub
◎質問者からの返答

Salingerさん、祝日にありがとうございました!まさに望んでいた通りのマクロでした。本当にありがとうございました。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ