|
▼ichinose さん:
レスありがとうございます。
教えていただいたエラートラップでもやはりだめでした・・・
ので、もうひとつの方法のDir関数とmsgboxを使ってみたところ、
やっと自分の目指す形となりましたー!
初めてDir関数を使ったのですが、うまくいきました。
--------------------------------------------------------------------------
Private Sub 保存ボタン_Click()
Dim savPath As Variant
Dim fName As String
Dim a As Integer
Application.DisplayAlerts = False
Do
savPath = Application.GetSaveAsFilename( _
InitialFileName:="エクセル.xls", _
FileFilter:="Excelファイル (*.xls), *.xls,すべてのファイル(*.*),*.*")
If savPath <> False Then
fName = Dir(savPath)
If fName <> "" Then
a = MsgBox("同じ名前のファイルがあります。上書きしますか?", vbYesNoCancel)
Select Case a
Case 6 'OK
ActiveWorkbook.SaveAs Filename:=savPath
Unload Me
Exit Sub
Case 7 'NO
Case 2 'Cancel
Exit Sub
End Select
Else
ActiveWorkbook.SaveAs Filename:=savPath
Unload Me
Exit Sub
End If
Else
Exit Sub
End If
Loop
End Sub
--------------------------------------------------------------------------
ichinose さん、ありがとうございました。
こもれび さんも、ほんとうにありがとうございました。
|
|