Ｐａｇｅ 432 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼名前を付けて保存でキャンセルをすると 山さん 02/12/4(水) 19:53 ┗Re:名前を付けて保存でキャンセルをすると ichinose 02/12/5(木) 7:44 ─────────────────────────────────────── ■題名 ： 名前を付けて保存でキャンセルをすると ■名前 ： 山さん ■日付 ： 02/12/4(水) 19:53 -------------------------------------------------------------------------
| みなさま、初歩的な質問があります。 SaveAsメソッド（名前を付けて保存）を用いてマクロを作りました。 で、実際何度か動かしてみると「・・・という名前のファイルが既に あります。置き換えますか？」と聞いてきます。 そこで「はい」を押すを問題ないのですが、「いいえ」「キャンセル」 を押すと −−−−−−−−−−−−−−−−−−−−−−−−−− 実行時エラー'1004' 'SaveAs'メソッドは失敗しました。'Workbook'オブジェクト −−−−−−−−−−−−−−−−−−−−−−−−−− と出てきます。 「いいえ」「キャンセル」を押したら次の命令に行ってほしいのですが どうすればよろしいでしょうか？ 宜しくお願いします。 |
| ▼山さん さん： おはようございます。 >みなさま、初歩的な質問があります。 > >SaveAsメソッド（名前を付けて保存）を用いてマクロを作りました。 >で、実際何度か動かしてみると「・・・という名前のファイルが既に >あります。置き換えますか？」と聞いてきます。 >そこで「はい」を押すを問題ないのですが、「いいえ」「キャンセル」 >を押すと >−−−−−−−−−−−−−−−−−−−−−−−−−− >実行時エラー'1004' >'SaveAs'メソッドは失敗しました。'Workbook'オブジェクト >−−−−−−−−−−−−−−−−−−−−−−−−−− >と出てきます。 エラーが発生するなら、「on error 〜」ステートメントで判断する方法をはいかがですか？ '=========================================================== Sub test() Dim nm As String nm = "aaa" If savebk(ThisWorkbook, nm) = 0 Then MsgBox "保存されました" Else MsgBox "保存されませんでした" End If End Sub '=========================================================== Function savebk(svbk As Workbook, svnm As String) As Long 'input : svbk - 保存するブックオブジェクト ' svnm - 保存するフルパス名 'output: savebk- 0:保存成功 ' other:保存されてない On Error Resume Next svbk.SaveAs Filename:=svnm savebk = Err.Number On Error GoTo 0 End Function |