EXCEL VBAで名前をつけて保存

質問

EXCEL2003でVBAを作成しています。

INPUTBOXに入力した名前でファイルを保存するVBAを
作成したのですが、
同じファイル名が既に存在していたときに、
エラーのメッセージを出すようなVBAはありますか？

回答No.2

kozo_k · ベストアンサー

下のようなＶＢＡでファイルの有り無しを判断したらどうですか？

Sub arinasi()
　　Dim buf As String
　　buf = Dir("c:\My Documents\test.txt")
　　If buf = "" Then
　　　MsgBox "ファイルはありません"
　　Else
　　　MsgBox buf & "はすでにあります"
　　End If
End Sub

("c:\My Documents\test.txt")の部分はインプットボックスで取得したファイル名になります。

お礼

ご回答ありがとうございます。
これで試してみようと思います。

回答No.3

papayuka

普通に SaveAs で聞いてきませんか？
こちらで試したのはExcel97だけど、、、

Sub Test()
Dim fName
　fName = Application.GetSaveAsFilename( _
　　　　　fileFilter:="ExcelFile (*.xls), *.xls")
　If fName <> False Then
　　　On Error Resume Next
　　　ActiveWorkbook.SaveAs fName
　End If
End Sub

お礼

ご回答ありがとうございます。
これで試してみようと思います。

回答No.1

palmmy

＞エラーのメッセージを出すようなVBAはありますか？

保存するまえに、ファイルの有無をチェックすればよいかと思います。

FileLen("ファイル名")
でファイルサイズを調べて、ERRORだったらファイルが無いと判定すればよいかと思います。

ファイルがあれば、エラーメッセージ
ファイルが無ければ、保存する。

お礼

ご回答ありがとうございます。
具体的なモジュールの書き方が知りたかったので・・・。