No.3ベストアンサー
- 回答日時:
こんな感じでしょうか。
コントロールツールボックスのコマンドボタンを使っています。他Bookの関係が分からないのでExcelの終了はしていません。
終了ボタンのあるシートのコードウインドウに貼り付けます。ご参考に。(Excel2000です。97も問題ないと思います)
Private Sub CommandButton1_Click()
Const userPath = "D:\0001\・・・・・" '*** ここでドライブとフォルダを指定する ***
Dim myFileName As Variant '保存するファイル名
ChDrive userPath 'ドライブ変更
ChDir userPath 'フォルダの変更
With Application
'ファイル名を入力
myFileName = .GetSaveAsFilename(ActiveWorkbook.Name, "excel(*.xls),*.xls")
'キャンセルでなかったら
If myFileName <> False Then
'上書き確認
If Dir(myFileName) <> vbNullString Then
If MsgBox("既に同名ファイルが存在します。上書きしますか?", vbOKCancel, "上書確認") = vbCancel Then
Exit Sub '上書きの中止を選択
End If
End If
.DisplayAlerts = False 'メッセージを出さないようにする
ActiveWorkbook.SaveAs myFileName '指定ファイル名で保存する
.DisplayAlerts = True 'メッセージ表示を元に戻す
End If
End With
End Sub
No.4
- 回答日時:
今ファイルのある場所がCドライブで、保存先の初期値をDドライブのtamagawaという設定で・・・
Sub 保存()
Dim FN As Variant
ChDrive "D"
ChDir "D:\tamagawa"
FN = Application.GetSaveAsFilename(ActiveWorkbook.Name, "Microsoft Excel ブック(*.xls),*.xls")
If FN <> False Then
ActiveWorkbook.SaveAs FN
End If
End Sub
ということで、#3のnishi6さんの回答でできていると思うのですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 参照先で選んだファイルをコピーし、出力先に別名で保存したい 8 2022/05/13 20:37
- Visual Basic(VBA) Excel VBA 同じ名前のフォルダがあれば作成したブックを格納するマクロをつくりたい 2 2023/01/16 16:19
- Visual Basic(VBA) エクセル VBAについて教えてください 2 2023/04/26 13:25
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- その他(プログラミング・Web制作) フォルダを一括で作成する方法 0 2022/07/27 19:19
- その他(プログラミング・Web制作) セレクトボックスで選択された値をコントローラーで使用したい 2 2022/07/26 16:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) VBA active sheetをPDF化して指定フォルダに保存 1 2022/07/07 11:27
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
エクセルで「名前を付けて保存...
-
パワーポイントの上書き保存が...
-
エクセル マクロを使って同じ...
-
ACCESSからexcelブックを開いて...
-
Excel に貼り付けた図形が、保...
-
エクセルが勝手に開く
-
アクセスVBAで既に開いているエ...
-
Macで作成したファイル(Word)を...
-
It works! が表示されるという...
-
ロータス1-2-3のファイルをエ...
-
至急!教えてください!!「Mic...
-
EXCELを起動したとき120%の表...
-
jtrim 1.53cが正常な動きをし...
-
Outlookでメールが送信できない。
-
DBANをCD-Rに書きましたがブー...
-
メールソフトThunderbirdに関して
-
メールでCADデータが送られまし...
-
何も表示されないPowerPointフ...
-
[大至急!]ExcelSheetFreeの使...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel 2019 での上書き保存につ...
-
Wordで作成したものをUSBに保存...
-
エクセルで「名前を付けて保存...
-
エクセル マクロを使って同じ...
-
ACCESSからexcelブックを開いて...
-
エクセルのワークシート上書き...
-
エクセル「名前を付けて保存」...
-
コマンドボタンで保存先のフォ...
-
EXCELで保存する際に、必ず別名...
-
一太郎での上書き保存について
-
wordが保存できない
-
パワーポイントの上書き保存が...
-
シートの復活ってできます?
-
HPからWord文書が開けない
-
ドキュメントの回復について
-
共有フォルダで上書き保存できない
-
ワード・エクセル保存について
-
Excelテンプレートの保存先
-
マイクロソフトのOffice Delve...
-
PDFでアンケート用紙の作成
おすすめ情報