|
質問(煮詰まった) さん、こんにちわ。
>画面で指定したファイル名で保存したいのですが
>下記の記述でうまく行かない為、教えて下さい
>'●ファイルオープン処理
>
>OpenFileName = Application.GetOpenFilename("xlsファイル,*.xls" _
>, , "ファイルを選択してください")
>
>'●キャンセルボタンが押された場合
>
> If OpenFileName = False Then
> MsgBox "処理がキャンセルされました"
> Exit Sub
> Else
> ' MsgBox "ファイル名 : " & Dir(OpenFileName)
↓ここで開いているので
> Workbooks.Open Filename:=OpenFileName
↓2重起動になる
> Set wb = Workbooks.Open(Filename:=OpenFileName)
> End If
>
>
> '●ファイル保存
↓上書き保存するなら、ActiveWorkbook.Saveでいいです
> ActiveWorkbook.SaveAs (Filename:=OpenFileName), FileFormat:=xlNormal, _
> Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
> CreateBackup:=False
>
>
>End Sub
|
|