|
画面で指定したファイル名で保存したいのですが
下記の記述でうまく行かない為、教えて下さい
'●ファイルオープン処理
OpenFileName = Application.GetOpenFilename("xlsファイル,*.xls" _
, , "ファイルを選択してください")
'●キャンセルボタンが押された場合
If OpenFileName = False Then
MsgBox "処理がキャンセルされました"
Exit Sub
Else
' MsgBox "ファイル名 : " & Dir(OpenFileName)
Workbooks.Open Filename:=OpenFileName
Set wb = Workbooks.Open(Filename:=OpenFileName)
End If
'●ファイル保存
ActiveWorkbook.SaveAs (Filename:=OpenFileName), FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
End Sub
|
|