|
|
| Excel VBA Macro ・ ブックシート ・ FAQ |
|
保存するファイル名が既存の場合に再入力できるようにするには？
|
|
|
|
Question 84.5 |
Excel VBA Borad （掲示板）より |
 |
 |
|
|
加工した後のファイルを名前を付けて保存したいのですが、同名のファイルが存在するとき 「同じファイル名が既にあります。置き換えますか」 というメッセージが出て、「いいえ」を選ぶとエラーとなってしまいます。（当然ですが）
このとき再度ファイル名を入れ直せるように、ファイル名の入力に戻りたいのですが、どうすればよいのでしょうか。
良い方法を教えてください。
ファイル名 = InputBox("ファイル名入力", "保存先")
ファイル名 = パス & ファイル名 & ".xls"
ActiveWorkbook.SaveAs Filename:=ファイル名
|
|
|
とりあえず、「キャンセル」（エラー）の場合、保存ダイアログを表示して、再度保存するサンプルです。(^-^)
Sub test()
Dim strFileName As String
On Error Resume Next
ActiveWorkbook.SaveAs "保存ファイル名"
If Err.Number <> 0 Then
' エラーの場合、Saveダイアログ表示
strFileName = Application.GetSaveAsFilename(fileFilter:="Excel (*.xls), *.xls")
If strFileName <> False Then
' 再度、保存処理
ActiveWorkbook.SaveAs strFileName
End If
End If
On Error GoTo 0
End Sub
|
|
|
|
| |
|
|
