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で質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル マクロを使って同じ...
-
ドキュメントの回復について
-
Wordで作成したものをUSBに保存...
-
Excel に貼り付けた図形が、保...
-
パソコン買い換えたいのですが...
-
ロータス1-2-3のファイルをエ...
-
jtrim 1.53cが正常な動きをし...
-
BIOSの更新方法について
-
アクセスVBAで既に開いているエ...
-
Macで作成したファイル(Word)を...
-
EXCELので作成した表をビルダー...
-
エクセルが勝手に開く
-
Windows PE (BOOTディスク)...
-
pcゲームのセットアップが出来...
-
至急!教えてください!!「Mic...
-
エクセル 自分しか使ってない...
-
XP エクセル2007を優先的に起...
-
文字の書き出しについて
-
CADソフト ユニドラフ(Unidraf...
-
宛名職人2007の住所が消えます。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
HPからWord文書が開けない
-
エクセル マクロを使って同じ...
-
エクセルで「ページレイアウト...
-
ACCESSからexcelブックを開いて...
-
エクセルで「名前を付けて保存...
-
EXCELで保存する際に、必ず別名...
-
エクセル「名前を付けて保存」...
-
エクセルのワークシート上書き...
-
一太郎での上書き保存について
-
パワーポイントの上書き保存が...
-
フッター、ヘッター、印刷設定
-
Excel 2019 での上書き保存につ...
-
エクセル2003から2010 文字消え
-
excel2010のファイル保存エラー...
-
Excelテンプレートの保存先
-
EXCELのクリップボードの...
-
2003の表が2007で書き込み後保...
-
Photoshop CS3でファイル保存...
-
word excel 空白のファイルを新...
おすすめ情報