|
シートをそれぞれブックにして保存したく、以下のマクロを記述したところ
Excel 2007がインストールされている環境では拡張子をxlsとしてファイルを保存しても、従来の形式で保存してくれないため「FileFormat:=xlExcel8」を追記したところ、
保存していく過程(ActiveWorkbook.SaveAs path & st.Name & ".xls", FileFormat:=xlExcel8)でランダムに「1004 実行時エラー」が出るようになってしまいました。出ないときもあるのですが、出る時もあったりと原因がわかりません。
エラーが出ないようにする対応策を教えていただけないでしょうか。
Sub splitBook店毎()
Const path As String = "\\●●\"
Dim bk As Workbook
Set bk = ActiveWorkbook
Dim w As Worksheet
Dim st As Worksheet
Application.DisplayAlerts = False
For Each st In bk.Sheets
If Left(st.Name, 2) <> "対応" Then
Workbooks.Add
st.Copy Before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Sheets(2).Delete
ActiveWorkbook.SaveAs path & st.Name & ".xls", FileFormat:=xlExcel8
ActiveWorkbook.Close
End If
If st.Index = bk.Sheets.Count Then Exit For
Next
Application.DisplayAlerts = True
End Sub
|
|