|
▼yui さん:
>ありがとうございます!!
>ちゃんと発動してくれました!!
>
>もう一つ‥保存先を指定したいのですが、どこを変更すればよいでしょうか‥??
それであれば、保存先を指定できるようにダイアログを出すことができます。
Sub Sample2()
Dim ws As Worksheet
Dim strPath As String
'保存先を選択するダイアログ
If Application.FileDialog(msoFileDialogFolderPicker).Show Then
strPath = Application.FileDialog(msoFileDialogFolderPicker).SelectedItems(1)
End If
For Each ws In ThisWorkbook.Sheets
If ws.Index > 3 Then
ws.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs strPath & "\" & ws.Name & Format(Now(), "(m月)") & ".xls", xlExcel8
ActiveWorkbook.Close
Application.DisplayAlerts = True
End If
Next ws
End Sub
|
|