|
suchan さん、おはようございます
>>SAVEASを使いたい理由は何ですか?
>ファイルの保存場所をユーザが選択できるようになればと思って、、
ファイル保存場所の選択はGetSaveAsFilenameを使います。
Sub test()
Dim Ofile As String
Ofile = Application.GetSaveAsFilename(fileFilter:="TextFile (*.txt), *.txt")
'
If Ofile <> "False" Then
If Dir(Ofile) <> "" Then
If MsgBox(Ofile, vbExclamation + vbYesNo, "上書きしますか?") = vbYes Then
Kill Ofile '削除後保存
ActiveWorkbook.SaveAs Filename:=Ofile, FileFormat:=xlText
Else
MsgBox "保存をキャンセル", vbExclamation
End If
Else
'保存
ActiveWorkbook.SaveAs Filename:=Ofile, FileFormat:=xlText
End If
Else
MsgBox "ファイル選択をキャンセル", vbExclamation
End If
End Sub
|
|