|
いつも活用させていただいております。
私も「名前をつけて保存」ダイアログを出してブックの保存処理で困っています。
--------------------------------------------------------------------------
Private Sub 保存ボタン_Click()
On Error GoTo ErrorHandler
Dim path As String
path = Application.GetSaveAsFilename( _
InitialFileName:="エクセル.xls", _
FileFilter:="Excelファイル (*.xls), *.xls,すべてのファイル(*.*),*.*")
If path <> "False" Then
ActiveWorkbook.SaveAs Filename:=path
End If
Exit Sub
ErrorHandler:
End Sub
-------------------------------------------------------------------------
上記のようにコードを書いてるのですが、
ダイアログ表示→「保存」を選択→「上書きするか」メッセージ
→「いいえ」を選択
で「SaveASメソッドは失敗しました」のエラーがでます。
エラー処理もいれてみたのですが、キャッチしてくれません。
どこを直したらよいのでしょうか。
>ダイアログを表示してキャンセルボタンを押したら
>
>SaveASメソッドは失敗しました。Workbookオブジェクトとエラーを出ました。
>
>これはどこか悪いですか?
>
> Sub 名前をつけて保存ダイアログボックスを表示してファイル名を取得する()
>Dim パス As Variant
>Dim a As Range, b As Range, c As Range, d As Range
>
>Set a = Worksheets("顧客データ").Range("A2")
>Set b = Worksheets("顧客データ").Range("E2")
>Set c = Worksheets("顧客データ").Range("F2")
>Set d = Worksheets("顧客データ").Range("G2")
>If a = "" Then Sheets("顧客データ").Activate
>
> パス = Application.GetSaveAsFilename( _
> InitialFileName:=a & b & "-" & c & "-" & d & ".xls", _
> FileFilter:="Excelファイル (*.xls), *.xls,すべてのファイル (*.*),*.*") _
>
> ActiveWorkbook.SaveAs Filename:=パス
>
>
> If パス <> False Then
> MsgBox "保存するファイル:" & パス
> End If
>End Sub
|
|