Excel Worksheet をバラす VBA くん

ぱそこん 
'' Excel Worksheet をバラす VBA くん

Public Sub SeparateSheets()

Dim src As Workbook
Dim sht As Worksheet
Dim c As Integer

Set src = ActiveWorkbook
c = 0

ChDir ActiveWorkbook.Path
For Each sht In src.Worksheets
    sht.Copy
    ActiveWorkbook.Close True, Format(c, "000_") & sht.Name & ".xls"
    c = c + 1
Next

End Sub

シートたくさん、サイズいっぱいな Workbook を開いているのはなんとなく嫌なので、そういうブックは分割してまえ、と書いた VBA 。スーパーpre記法のテストがてらに貼ってみる。

なぜテストがてらかと言うと。たぶん、次回またこのコードが欲しくなったときには、探すより先に書いてしまう気がするから。そっちの方が速そうだ。