http://oshiete.goo.ne.jp/qa/2568740.html
上記と同じ質問です。
例えば、「あああ.xlsx」で作業していて、一旦別のファイル名、
例えば「いいい.xlsx」として保存した後に、ファイル「あああ」に戻りたい時があります。
ところが、「いいい」で保存してしまうと、
開いているファイルが「いいい」になってしまうため、
「あああ」に戻るには、「いいい」を閉じてから「あああ」を再度開かなければならず、
とても煩わしいです。これをVBAで解決する方法はありますでしょうか。
以下コードを作成しましたが、当然というか、自分では上の問題を解決できませんでした。
(ただ普通に保存しただけ・・)
解決方法について、どなたかご教示頂ければ幸いです。
Sub ファイル保存()
Dim myFile As String
Dim Syori As VbMsgBoxResult
myFile = ActiveSheet.Range("A1").Value & ".xlsm"
Syori = MsgBox("指定した名前のファイル名で保存します。" & vbCrLf & "よろしいですか?", vbYesNo, Title:="確認")
If Syori = vbYes Then
ThisWorkbook.SaveAs fileName:=myFile
MsgBox "保存しました。"
Else
MsgBox "中止しました。"
End If
End Sub
なお、使用環境はexcel2007です。
よろしくお願いいたします。
No.3ベストアンサー
- 回答日時:
"SaveAs"を使わないで"SaveCopyAs"を使ってみては。
[名前を付けて保存]にこだわらないで、[コピーして名前を付けて保存]
なら現在のブックはマクロ実行後も残りますので。
http://www.excel-excel.com/tips/vba_177.html
ご回答ありがとうございました。
>"SaveAs"を使わないで"SaveCopyAs"を使ってみては。
アドバイスにしたがって試してみました。
なんと、既存のファイルを残したまま、別のファイルを保存することができました。
ソースコードの"SaveAs"を、"SaveCopyAs"に変えただけです。
助かりました。本当にどうもありがとうございます!
No.2
- 回答日時:
保存したファイル名を編集中になる仕様って事なら、
・「いいい.xlsx」を保存
・「あああ.xlsx」を保存
とかすれば、望みの状況になるのでは。
あるいは、
「あああ.xlsx」を一旦保存。
Shell関数なんかで「あああ.xlsx」を別のファイル名(「いいい.xlsx」)にコピー。
とか。
ご回答ありがとうございました。
>・「いいい.xlsx」を保存
>・「あああ.xlsx」を保存
>とかすれば、望みの状況になるのでは。
たしかにそうですね。それが現実的でしょうか。
ただ、今はファイル名をセルから自動取得するようにしているので、
元のファイル名を別登録する手間が必要で、ちょっとだけ面倒が。。。
何か考えてみます。
No.1
- 回答日時:
開いているいる最中のファイル名を変えることはできませんから、
「ファイルが開いている」という状態に拘るなら無理でしょう。
質問文にある、ファイル名を指定して保存しか手はないと思います。
ご回答いただきありがとうございました。
>開いているいる最中のファイル名を変えることはできませんから、
>「ファイルが開いている」という状態に拘るなら無理でしょう。
そうなのですか(というか、そうなんですね)。
大した手間ではないのですが、場合によっては、別名で保存する回数が10回以上に及ぶので、
簡略化できればと思いましたが、仕様では仕方がないですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
excelで直前に参照していたブックに戻るマクロは作れますか?
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
【ExcelVBA】指定の書式で、マクロなしブックとしてAlertなしで別名保存する方法
Visual Basic(VBA)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
マクロの「SaveAs」でエラーが出るのを解消したいです(再)
Visual Basic(VBA)
-
7
開いているファイルを削除し、別名で保存する方法
Visual Basic(VBA)
-
8
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
9
VBAで別ブックのシートを指定して削除したい。
Visual Basic(VBA)
-
10
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
11
エクセル「名前を付けて保存」の素朴な疑問です
その他(OS)
-
12
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
13
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
14
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
15
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
16
VBAでブックを非表示で開いて処理して閉じる方法
Excel(エクセル)
-
17
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
18
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
19
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
20
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
ダウンロードしたexe ファイル...
-
Power DVDを日本語化したい
-
PDF "最小サイズ"で保存するマクロ
-
Mozilla Thunderbirdの添付ファ...
-
プリントスクリーンを押し、グ...
-
Auto-CAD 複数ファイルを一度に...
-
ホームページビルダー 21 sp で...
-
スマホで見たpdfの保存先を教え...
-
photoshopのブラシの保存場所や...
-
PDFをコンビニで印刷
-
ファイルをダウンロードした時...
-
autucad2014LT を使用中エラー...
-
PC ソフト Fy Memoのクラウドを...
-
Irvine でフォルダごとにダウン...
-
exeファイルの中身を見ることは...
-
フォルダは残してファイルだけ...
-
MacのExcleですが ”Excelのオプ...
-
圧縮ファイル 解凍すると中身が...
-
右クリックから切り取り、コピ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
ダウンロードしたexe ファイル...
-
PDF "最小サイズ"で保存するマクロ
-
ホームページビルダー 21 sp で...
-
ファイルをダウンロードした時...
-
irvineで
-
PDFファイルの保存日時の変...
-
Mozilla Thunderbirdの添付ファ...
-
プリントスクリーンを押し、グ...
-
クリップボックスで動画を保存...
-
写真など画像ファイルにWINDOWS...
-
Auto-CAD 複数ファイルを一度に...
-
イラストレータの別名保存アク...
-
mp4ファイルの保存方法
-
PowerDVDでキャプチャした静止...
-
ラベル屋さんの文字化けunicode
-
セルの値を使ってファイルを保存
-
聞々ハヤえもんというサイトが...
-
Photoshopのバッチ処理で保存ダ...
-
Power DVDを日本語化したい
おすすめ情報