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で質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/03 09:11
- Visual Basic(VBA) 【前回の続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/16 16:44
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Visual Basic(VBA) Excel-VBAでのファイルの開き方 4 2023/02/14 11:01
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) VBAが止まります。 2 2022/09/02 14:02
このQ&Aを見た人はこんなQ&Aも見ています
-
カンパ〜イ!←最初の1杯目、なに頼む?
飲み会で最初に頼む1杯、自由に頼むとしたら何を頼みますか? 最初はビールという縛りは無しにして、好きなものを飲むとしたら何を飲みたいですか。
-
家・車以外で、人生で一番奮発した買い物
どんなものにお金をかけるかは人それぞれの価値観ですが、 誰もが一度は清水の舞台から飛び降りる覚悟で、ちょっと贅沢な買い物をしたことがあるはず。
-
ホテルを選ぶとき、これだけは譲れない条件TOP3は?
ホテルを探す時、予約サイトで希望条件の絞り込みができる便利な世の中。 あなたは宿泊先を決めるとき「これだけは譲れない」と思う条件TOP3を教えてください。
-
【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
【お題】 ・買ったばかりの自転車を分解してひと言
-
好きな和訳タイトルを教えてください
洋書・洋画の素敵な和訳タイトルをたくさん知りたいです!【例】 『Wuthering Heights』→『嵐が丘』
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
excelで直前に参照していたブックに戻るマクロは作れますか?
Excel(エクセル)
-
【ExcelVBA】指定の書式で、マクロなしブックとしてAlertなしで別名保存する方法
Visual Basic(VBA)
-
-
4
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
5
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
6
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
7
VBAで別ブックのシートを指定して削除したい。
Visual Basic(VBA)
-
8
エクセル「名前を付けて保存」の素朴な疑問です
その他(OS)
-
9
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
10
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
11
開いているファイルを削除し、別名で保存する方法
Visual Basic(VBA)
-
12
【VBA】マクロの入ったファイルと同じフォルダに,出力したファイルを保存するコードについて
Visual Basic(VBA)
-
13
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
14
【ExcelVBA】全シートのセルの数式を値に変換する事は可能でしょうか?
Visual Basic(VBA)
-
15
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
16
EXCELのVBAでシートコピーをしたとき元のマクロを削除するには?
Excel(エクセル)
-
17
UserForm1.Showでエラーになります。
工学
-
18
SaveAsの保存先について
Visual Basic(VBA)
-
19
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
20
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・プリン+醤油=ウニみたいな組み合わせメニューを教えて!
- ・タイムマシーンがあったら、過去と未来どちらに行く?
- ・遅刻の「言い訳」選手権
- ・【大喜利】【投稿~11/12】 急に朝起こしてきた母親に言われた一言とは?
- ・好きな和訳タイトルを教えてください
- ・うちのカレーにはこれが入ってる!って食材ありますか?
- ・好きな「お肉」は?
- ・あなたは何にトキメキますか?
- ・おすすめのモーニング・朝食メニューを教えて!
- ・「覚え間違い」を教えてください!
- ・とっておきの手土産を教えて
- ・「平成」を感じるもの
- ・秘密基地、どこに作った?
- ・【お題】NEW演歌
- ・カンパ〜イ!←最初の1杯目、なに頼む?
- ・一回も披露したことのない豆知識
- ・これ何て呼びますか
- ・初めて自分の家と他人の家が違う、と意識した時
- ・「これはヤバかったな」という遅刻エピソード
- ・これ何て呼びますか Part2
- ・許せない心理テスト
- ・この人頭いいなと思ったエピソード
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・ハマっている「お菓子」を教えて!
- ・【大喜利】【投稿~11/1】 存在しそうで存在しないモノマネ芸人の名前を教えてください
- ・好きなおでんの具材ドラフト会議しましょう
- ・餃子を食べるとき、何をつけますか?
- ・あなたの「必」の書き順を教えてください
- ・ギリギリ行けるお一人様のライン
- ・10代と話して驚いたこと
- ・つい集めてしまうものはなんですか?
- ・自分のセンスや笑いの好みに影響を受けた作品を教えて
- ・【お題】引っかけ問題(締め切り10月27日(日)23時)
- ・大人になっても苦手な食べ物、ありますか?
- ・14歳の自分に衝撃の事実を告げてください
- ・【大喜利】【投稿~10/21(月)】買ったばかりの自転車を分解してひと言
- ・ホテルを選ぶとき、これだけは譲れない条件TOP3は?
- ・家・車以外で、人生で一番奮発した買い物
- ・人生最悪の忘れ物
- ・【コナン30周年】嘘でしょ!?と思った○○周年を教えて【ハルヒ20周年】
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
ダウンロードしたexe ファイル...
-
PDF "最小サイズ"で保存するマクロ
-
autucad2014LT を使用中エラー...
-
Irvine でフォルダごとにダウン...
-
ラベル屋さんの文字化けunicode
-
イラストレータの別名保存アク...
-
ファイルをダウンロードした時...
-
聞々ハヤえもんというサイトが...
-
プリントスクリーンを押し、グ...
-
右クリックを押しても対象をフ...
-
Power DVDを日本語化したい
-
flashのWebページを丸ごと保存...
-
プリモPDFのファイル保存先で困...
-
写真など画像ファイルにWINDOWS...
-
irvineで
-
ダウンロードするファイルをプ...
-
JavaScriptが分からなくて困っ...
-
exeファイルの中身を見ることは...
-
フォルダは残してファイルだけ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
名前をつけて保存した後、元の...
-
ダウンロードしたexe ファイル...
-
PDF "最小サイズ"で保存するマクロ
-
ファイルをダウンロードした時...
-
ホームページビルダー 21 sp で...
-
写真など画像ファイルにWINDOWS...
-
Mozilla Thunderbirdの添付ファ...
-
irvineで
-
ラベル屋さんの文字化けunicode
-
イラストレータの別名保存アク...
-
Auto-CAD 複数ファイルを一度に...
-
クリップボックスで動画を保存...
-
プリモPDFのファイル保存先で困...
-
Irvine でフォルダごとにダウン...
-
PDFファイルの保存日時の変...
-
セルの値を使ってファイルを保存
-
e内容証明の書式について
-
外付けHDDなどのMP3を再生する...
-
photoshopのブラシの保存場所や...
-
Photoshopのバッチ処理で保存ダ...
おすすめ情報