質問: excelの複数シートをそれぞれ別ブックへ保存したい excel97を使用しています。 1つのブック内に複数のシート(10~20枚)があります。 これを全て1シートずつの別のブックに分けて保存をするマクロを作成したいのですが、できますでしょうか? できれば各シート内の(a4)に入力されている文字列を各ブックの名前として使用したいのですが・・・。 (各シートのセルa4の値に重複はありません) 現在は各シートを新しいブックにコピーして名前を付けて保存、の作業をシート数分繰り返しています。 すみませんがよろしくお願いいたします。
回答: s_chikayoさん こんばんは。 こちらも参考にしてください。 各シートをコピーし新規ブックとして保存して閉じます。 元のブックは開いたまま残ります。 保存先を変える場合は、chdirのカッコ内を変えてください。なお、指定したフォルダが存在しないとエラーになります。 sub sheetcopy() dim shtcnt as integer, i as integer shtcnt = activeworkbook.worksheets.count i = 1 '保存場所を指定 chdir ("c:\test\") do sheets(i).activate sheets(i).copy activeworkbook.close savechanges:=true _ , filename:=activesheet.range("a4").value & ".xls" i = i + 1 loop until i > shtcnt end sub