EXCELで以下のように記述したところ、
「ファイルを置き換えますか」のメッセージの後に
「いいえ」か「キャンセル」を選択すると
「400」というエラーメッセージが表示されます。
「いいえ」か「キャンセル」を選択した場合は、
エラーメッセージを表示させずに、
特定のシートのセルA1にカーソルを移動させたいのですが、可能でしょうか?
ご指導よろしくお願いします。
________________________
FileA = Application.GetSaveAsFilename( _
InitialFilename:="C:\test.xls", _
fileFilter:="XLSファイル (*.xls), *.xls")
ActiveWorkbook.SaveAs Filename:=FileA
________________________
No.4ベストアンサー
- 回答日時:
こんにちは。
#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
- 回答日時:
失礼しました、
>「ファイルを置き換えますか」のメッセージの後に
でしたね。ご質問をよく読んでいませんでした、すみません。
ちなみに、エラー番号は1004でした。
No.2
- 回答日時:
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
- 回答日時:
こちらでテストしてみましたが 400 ではなく 1004 なら出ました。
まぁ、エラーメッセージの種類はいいとして。
ちょっと現象が違うらしいので、よくわかりませんが
On Error を入れて、エラーが出たときの対処をしてみたらどうでしょう?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) 入力ボックスが繰り返しポップアップして止まらない。 下記コードでファイル名の変更をしたいのですが、変 1 2022/09/08 11:27
- Visual Basic(VBA) ファイル名の右側を変更したい ファイル名:「1001日別売上」の左側へ「2022」を追加し、「202 6 2022/10/14 10:03
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- その他(Microsoft Office) office2010とoffice365の共存でoffice365を優先で起草させたい 3 2023/01/24 10:47
- Visual Basic(VBA) 動かなくなってしまった古いVBAを動くようにしたい 8 2022/09/20 13:57
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
- Access(アクセス) Access2016のExcelインポートの機能のことで教えてください 1 2022/09/11 14:58
- Visual Basic(VBA) マクロVBA 1シートをまとめる 閉じ方 初心者 SOS! 1 2022/06/17 14:54
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESS VBAでのインポート
-
アクセスでイベントのロジック...
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
「パス名が無効です」の発生原因
-
Returnに対するGoSubがありません
-
「複数の選択範囲に対して実行...
-
エクセルマクロでエラーの原因...
-
エラー:インクルードファイル ...
-
VBから参照できないCのDLLを使...
-
FTPの送信結果を検知したい
-
EXCELのVBAでの保存方法
-
ワークブックに名前をつけて保...
-
VB:「実行時エラー53 実行ファ...
-
PowerShellを使って関連付けら...
-
fgets関数のEOFの扱い方について
-
Excelファイルのマクロによる排...
-
VB6 Dir関数で52エラー発生
-
access テキストボックスの値取得
-
fileのリスト作成のマクロ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBでファイルが開かれているか...
-
batファイルでレジストリキーの...
-
Returnに対するGoSubがありません
-
VBから参照できないCのDLLを使...
-
「パス名が無効です」の発生原因
-
access テキストボックスの値取得
-
アクセスのクエリでコンパイル...
-
PowerShellを使って関連付けら...
-
freadでデータがない場合の読込...
-
【COBOL】read文でエラー
-
gccを行ってもexeファイルが生...
-
ファイルクローズ(fclose)でエ...
-
VB6 Dir関数で52エラー発生
-
ACCESS VBAでのインポート
-
NAS上のファイルの使用中が解除...
-
FTPの送信結果を検知したい
-
エクセルマクロでエラーの原因...
-
Access2013にてドラッグ&ドロ...
-
EXCELのVBAでWORDが開いてある...
-
fcloseで発生するエラーについて。
おすすめ情報