|
▼こもれび さん:
レスありがとうございます。
>「 False 」というものはブール型変数の状態の一つです。
>ですから、
> If path <> "False" Then ではなく
>
> If path <> False then
>
>でなければなりません。
ご指摘のように直してみました。
------------------------------------------------------------------
Private Sub 保存ボタン_Click()
On Error GoTo ErrorHandler
Dim path As Variant
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メソッドは失敗しました」のエラーがでます。
これは別の方法を考えたほうがよいのでしょうか。
|
|