[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『特定シートを除いて別ブック保存』(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 >
複数になるとすれば、特定の文字列を含んだシートにします。
("集計1","集計2" のように。
(noa) 2020/05/10(日) 14:05
[[20181226182555]] 『特定シート以外に罫線設定』(やすえ)
(OK) 2020/05/10(日) 14:07
解決しました!ありがとうございます。
(noa) 2020/05/10(日) 14:23
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.