[[20200510131341]] 『特定シートを除いて別ブック保存』(noa) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『特定シートを除いて別ブック保存』(noa)

よろしくお願いします。

あるブックの複数シートをそれぞれ別ブックとして保存します。
下記のように作っています。
(手打ちなので大文字、誤字脱字スルーしていただけるとありがたいです)

その際に、特定のシートはブック作成の対象から除外したい。
どこに何を入れればよいでしょう。
(もしくは、違う考え方のほうがよいでしょうか。)

sub test()
dim bk as workbook
dim bn as string
dim fpath as string
dim sh as worksheet

 set bk = activeworkbook
 bn = left(bk.name,instrrev(bk.name,".")-1)
 fpath = activeworkbook.path & "\集計結果\"

 for each sh in bk.worksheets
  sh.copy

 with activeworkbook
 .saveas fpath & sh.name
 .close

 end with
 next sh
 end sub

< 使用 Excel:Excel2016、使用 OS:Windows10 >


特定のシート、というのは一つですか?
複数ですか?
(OK) 2020/05/10(日) 14:03

一つの予定です。

複数になるとすれば、特定の文字列を含んだシートにします。
("集計1","集計2" のように。
(noa) 2020/05/10(日) 14:05


特定のシートが一つの場合は↓が参考になると思います。

[[20181226182555]] 『特定シート以外に罫線設定』(やすえ)
(OK) 2020/05/10(日) 14:07


OK様

解決しました!ありがとうございます。
(noa) 2020/05/10(日) 14:23


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.