2006年9月 1日
【エクセル】複数のシートをブックに分割
複数のシートをブックに分割したい場合ありますよね。前のエントリーのVBAと併せて使うと出身別ブックを一発でつくることも可能です。
Sub 複数のシートをブックへ分割()
Dim myWorksheet As Worksheet
Dim myName, theDir As String
'現在のカレントパスの保存フォルダに移動する
theDir = ThisWorkbook.Path & "\保存\"
For Each myWorksheet In Worksheets
myName = myWorksheet.Name
myWorksheet.Copy
ActiveWorkbook.SaveAs theDir & myName & ".xls"
'保存した分割ブックを閉じたい場合。開いておきたい場合は、下の行の先頭に
'アポストロフィーをいれる。
ActiveWorkbook.Close savechanges:=True
Next myWorksheet
End Sub
- by editor
- at 10:47
編集長のおすすめの一冊!2010
comments