【やりたい事2つ】
以下のマクロは、原本ファイルを開き、別名で保存するものです
保存をする際に、既に同じ名前があれば
●●●メッセージ(同じ名前のファイルがあります) を表示させたいです●●●
また
その後
上書き
上書きしない
を選択しますが
上書きしないを選択すると
wb.SaveAs fileName がデバックとなります
●●●これをデバックとならずに、上書きせずに、終了となるようにしたいです●●●
【条件】
A7セルには あいうえお と入力しています
既にあるファイルは あいうえお.xlsx です
●●●最後に、以下のコードで必要のないコードや、省略可できる所があったら教えて下さい●●●
【コード。動きます】
Sub 原本ファイルより名前を変更()
Dim wb As Workbook
fileName = "C:\Users\2020\OneDrive\マクロ\" & Worksheets("転記元").Range("A7") & ".xlsx"
Workbooks.Open "C:\Users\2020\OneDrive\マクロ\原本ファイル\原本ファイル.xlsx"
Set wb = Workbooks("原本ファイル.xlsx")
wb.SaveAs fileName
wb.Close saveChanges:=False
End Sub
No.3ベストアンサー
- 回答日時:
No2です。
単純にファイルをコピーするだけなので、以下の方法でも可能です。
Sub 原本ファイルより名前を変更2()
Dim FSO As Object
Dim Filename As String
Dim BaseFile As String
Filename = "C:\Users\2020\OneDrive\マクロ\" & Worksheets("転記元").Range("A7") & ".xlsx"
If Dir(Filename) <> "" Then
resp = MsgBox("この場所に'" & Filename & "'という名前のファイルが既にあります。置き換えますか?", vbYesNo)
If resp = vbNo Then Exit Sub
End If
Set FSO = CreateObject("Scripting.FileSystemObject")
BaseFile = "C:\Users\2020\OneDrive\マクロ\原本ファイル\原本ファイル.xlsx"
FSO.copyfile BaseFile, Filename
End Sub
No.2
- 回答日時:
以下のようにしてください。
Sub 原本ファイルより名前を変更()
Dim wb As Workbook
Filename = "C:\Users\2020\OneDrive\マクロ\" & Worksheets("転記元").Range("A7") & ".xlsx"
If Dir(Filename) <> "" Then
resp = MsgBox("この場所に'" & Filename & "'という名前のファイルが既にあります。置き換えますか?", vbYesNo)
If resp = vbNo Then Exit Sub
End If
Workbooks.Open "C:\Users\2020\OneDrive\マクロ\原本ファイル\原本ファイル.xlsx"
Set wb = Workbooks("原本ファイル.xlsx")
Application.DisplayAlerts = False
wb.SaveAs Filename
wb.Close saveChanges:=False
Application.DisplayAlerts = True
End Sub
No.1
- 回答日時:
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
歩いた自慢大会
「めちゃくちゃ歩いたエピソード」を教えてください。 長時間でも長距離でも結構です。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
エクセルの神よ、ご回答を! エクセルのコメント欄について質問2点。
Excel(エクセル)
-
-
4
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
5
VBAについての質問です
Excel(エクセル)
-
6
Excelはなんで先頭の0を消すんですか?しかもCSVとかもなんでそもそも勝手に元のデータ変えるのに
Excel(エクセル)
-
7
関数の説明
Excel(エクセル)
-
8
Excelについて教えてください
Excel(エクセル)
-
9
エクセル vbaについて教えてください。
Excel(エクセル)
-
10
Excel 1の位の数字で処理を分岐させたい
Excel(エクセル)
-
11
再質問です。マクロの修正箇所を教えてください。
Excel(エクセル)
-
12
エクセルの表の参照値から円を取って数字で扱えるようにしたい
Excel(エクセル)
-
13
エクセルのハイパーリンクがうまく機能しない
Excel(エクセル)
-
14
Excelの入力方法について
Excel(エクセル)
-
15
一つのセルに(例えばA1)入力された3桁・4桁の数字を並べ替えて同一行のセルに表示させる。
Excel(エクセル)
-
16
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
17
エクセル共有したが、アクセスできなくかった
Excel(エクセル)
-
18
【マクロ】VLOOKUPにて参照元にデータが無い場合【該当なし】と表示したい
Excel(エクセル)
-
19
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
20
【関数】先頭だけにある、半角スペースを、とりのぞく事はできますか?
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルマクロで不特定なファ...
-
EXCEL VBA 指定したファイルが...
-
ファイルを開かずにマクロを実行
-
VLookupで参照する範囲を変数で...
-
エクセルのxls形式からxlsx形式...
-
エクセルマクロ 異なるファイ...
-
accessフォルダを移動したらフ...
-
【マクロ】名前を保存する際に...
-
エクセル 複数ファイルの一括...
-
ファイル名を変更するマクロ
-
vlookup関数の引数を変数で指定...
-
フォルダ内のexcelファイルを順...
-
フォルダ内のブック全部にパス...
-
ハイパーリンクの使用方法
-
エクセルVBA 上書き保存禁止と...
-
ISOファイルとMDSファイル
-
差し込み印刷の元データファイ...
-
エクセルでのアクセス履歴をと...
-
access2021 強制終了してしまう
-
共有フォルダの最終アクセス者...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
エクセルマクロで不特定なファ...
-
フォルダ内のexcelファイルを順...
-
ファイルを開かずにマクロを実行
-
エクセル(マクロ)のファイル...
-
エクセル 複数ファイルの一括...
-
フォルダ内のブック全部にパス...
-
ファイルの保存場所を変えたら...
-
VBAでワークブックの名前を変数...
-
【Excel VBA】ファイル名が一...
-
accessフォルダを移動したらフ...
-
エクセルのシートの数を数えた...
-
【マクロ】名前を保存する際に...
-
エクセルのxls形式からxlsx形式...
-
リンク切れチェックを行うマクロ
-
データ参照先が別ファイルの場...
-
Accessのaccdbファイルを起動で...
-
vlookup関数の引数を変数で指定...
-
VBAでフォルダ内の全てのcsv...
-
LTSpiceにLMV358-Nのモデルを入...
おすすめ情報