Excel VBA質問箱 IV

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

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


39501 / 76732 ←次へ | 前へ→

【42341】ワークシートの位置で削除
質問  はじめまして  - 06/9/7(木) 9:31 -

引用なし
パスワード
   はじめまして。
今マクロを作成し悩み中なんですが、
あるブックに10枚近いシートを作成し、
シート名で保存するという作業をしています。
下のマクロでは全てのシート保存されてしまうのですが、
実は10枚のシートの内、2枚に関しては保存したくないのですが、
シート名が毎回同じとは限らないので下のマクロを実行したあと
手作業で出来上がった10個のブックのうち2個を削除するという
操作をしています。
対象ブックが1個ならいいのですが、いくつかのブック
(各シートは10枚近くからなる)に対して削除という操作が
面倒なので、お聞きしたいのです。
不必要なシートは右端2枚なのですが、
位置から指定することは可能でしょうか?

どなたか良い方法をご存知の方
教えてください。


Sub シート名で保存する()
  Dim strName As String
  Dim Wst As Worksheet

  'On Error Resume Next
  Application.ScreenUpdating = False
  For Each Wst In ThisWorkbook.Worksheets
    strName = "C:\" & Wst.Name & ".xls"     '保存先を指定
    Wst.Copy
    ActiveWorkbook.Close True, strName
  Next Wst
  Application.ScreenUpdating = True
End Sub
0 hits

【42341】ワークシートの位置で削除 はじめまして 06/9/7(木) 9:31 質問
【42342】Re:ワークシートの位置で削除 Kein 06/9/7(木) 10:01 回答
【42343】Re:ワークシートの位置で削除 Kein 06/9/7(木) 10:02 発言

39501 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free