EXCELのVBAでの保存方法

質問

EXCELで以下のように記述したところ、

「ファイルを置き換えますか」のメッセージの後に
「いいえ」か「キャンセル」を選択すると
「400」というエラーメッセージが表示されます。

「いいえ」か「キャンセル」を選択した場合は、
エラーメッセージを表示させずに、
特定のシートのセルA1にカーソルを移動させたいのですが、可能でしょうか？

ご指導よろしくお願いします。

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
FileA = Application.GetSaveAsFilename( _
InitialFilename:="C:\test.xls", _
fileFilter:="XLSファイル (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=FileA
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

回答No.4

papayuka · ベストアンサー

こんにちは。

#1さん、#2さんを合せてエラー分岐させれば良いと思います。

Sub aa()
fileA = Application.GetSaveAsFilename( _
InitialFileName:="C:\test.xls", _
fileFilter:="XLSファイル (*.xls), *.xls")
On Error GoTo ERR:
If fileA <> False Then ActiveWorkbook.SaveAs FileName:=fileA
Exit Sub
ERR:
　Worksheets(1).Range("B5").Select
End Sub

強引なやり方で、有無を言わせず上書きさせるのもありなら、、、

Application.DisplayAlerts = False
If fileA <> False Then ActiveWorkbook.SaveAs FileName:=fileA
Application.DisplayAlerts = True

お礼

ありがとうございました。
エラーも表示されず、希望どおりのものが
できました★

回答No.3

sakenomo

失礼しました、

>「ファイルを置き換えますか」のメッセージの後に

でしたね。ご質問をよく読んでいませんでした、すみません。

ちなみに、エラー番号は1004でした。

回答No.2

sakenomo

GetSaveAsFilenameは、入力が取り消されるとFalseが返されます。（ヘルプに書いてあります）

ので、こんな感じでどうでしょうか。

fileA = Application.GetSaveAsFilename( _
InitialFileName:="C:\test.xls", _
fileFilter:="XLSファイル (*.xls), *.xls")
If fileA <> False Then
　ActiveWorkbook.SaveAs Filename:=fileA
Else
　'特定のシートのセルA1にカーソルを移動
End If

補足

ご回答ありがとうございました。

試してみましたところ、
「いいえ」と「キャンセル」を選択すると
「400」のエラーが表示されました。
　やはり無理でしょうか？

回答No.1

noname#11856

こちらでテストしてみましたが 400 ではなく 1004 なら出ました。
まぁ、エラーメッセージの種類はいいとして。

ちょっと現象が違うらしいので、よくわかりませんが
On Error を入れて、エラーが出たときの対処をしてみたらどうでしょう？