|
シート名は "Sheetあ" などでなく、"あ"だけだったのでしょーか ?
そういうところは、誰にでもはっきり分かるように書いて下さい。
で、コードを修正すると
Sub Sheet名で保存()
Dim Ary As Variant
Dim i As Integer
Dim Fname As String
Const Fol As String = "D:\見込み\集計DB\国内\DB\"
Ary = Array("あ", "か", "さ", "た", "な", "は")
Application.ScreenUpdating = False
On Error Resume Next
For i = 0 To 5
Fname = Fol & "Sheet" & Ary(i)
If Dir(Fname) <> "" Then Kill Fname
Sheets(Ary(i)).Copy
ActiveWorkbook.Close True, Fname
If Err.Number <> 0 Then Err.Clear
Next i
On Error GoTo 0
Application.ScreenUpdating = True
MsgBox "ファイル作成を終了しました", 64
End Sub
ということになります。
作成するブック名の方は "Sheetあ.xls" と、なります。
|
|