![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
【やりたい事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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 【マクロ】毎回、ファイル名が変わるファイルへの 文字列の転記 2 2024/05/02 14:17
- Excel(エクセル) 【マクロ】読取専用のファイルの名前を変更して、別フォルダへ名前を付けて保存するためには 1 2024/05/11 10:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/05/23 15:54
- Excel(エクセル) 1つのファイルを3つのフォルダにファイル名を【明日の日付】にして、コピーをしたい 2 2022/12/21 17:43
- Excel(エクセル) 【マクロ】その時、その時で変わる範囲を、フォルダの違う別ブックへ転記する為には ※参考画像あり 3 2024/05/11 10:33
- Excel(エクセル) 【マクロ】シート名を取得する為には 2 2024/05/02 07:40
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) 【マクロ】ファイル名の変更について 5 2024/05/04 07:59
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセル関数に詳しい方教えてください
Excel(エクセル)
-
Excelにてある膨大なデータを管理しています。 そこで、特定の市町村にのみ色を付けたいです。 Ex
Excel(エクセル)
-
エクセルの神よ、ご回答を! エクセルのコメント欄について質問2点。
Excel(エクセル)
-
-
4
【マクロ】顧客番号にて一致させ、情報を表へ上書きする為には
Excel(エクセル)
-
5
VBAについての質問です
Excel(エクセル)
-
6
Excelはなんで先頭の0を消すんですか?しかもCSVとかもなんでそもそも勝手に元のデータ変えるのに
Excel(エクセル)
-
7
Excelについて教えてください
Excel(エクセル)
-
8
エクセル vbaについて教えてください。
Excel(エクセル)
-
9
関数の説明
Excel(エクセル)
-
10
エクセルの表の参照値から円を取って数字で扱えるようにしたい
Excel(エクセル)
-
11
エクセルのハイパーリンクがうまく機能しない
Excel(エクセル)
-
12
Excelの入力方法について
Excel(エクセル)
-
13
エクセルでチェックボックスを一列にたくさんつくり、各行にリンク先のセルを設定する場合、どのようにした
Excel(エクセル)
-
14
【関数】スペースがいくつ入った後の文字列を取り出したい
Excel(エクセル)
-
15
【関数】先頭だけにある、半角スペースを、とりのぞく事はできますか?
Excel(エクセル)
-
16
一つのセルに(例えばA1)入力された3桁・4桁の数字を並べ替えて同一行のセルに表示させる。
Excel(エクセル)
-
17
エクセル共有したが、アクセスできなくかった
Excel(エクセル)
-
18
【関数】適切な文字数の数字を取り出したい
Excel(エクセル)
-
19
エクセルの計算
Excel(エクセル)
-
20
Excelの関数について教えてください
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
フォルダ内のexcelファイルを順...
-
エクセルVBA 上書き保存禁止と...
-
VBAでワークブックの名前を変数...
-
フォルダ内のブック全部にパス...
-
LTSpiceにLMV358-Nのモデルを入...
-
新規 xlsmファイルにする方法...
-
エクセル 複数ファイルの一括...
-
データ参照先が別ファイルの場...
-
【Excel VBA】ファイル名が一...
-
エクセル(マクロ)のファイル...
-
vlookup関数の引数を変数で指定...
-
エクセルマクロで不特定なファ...
-
Excel VBA でファイルが開かれ...
-
excel2007のファイルを一気に97...
-
リンク切れチェックを行うマクロ
-
【マクロ】名前を保存する際に...
-
エクセルのシートの数を数えた...
-
VBA 新規にエクセルを開き既存...
-
Accessのaccdbファイルを起動で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 指定したファイルが...
-
【マクロ】名前を保存する際に...
-
VBAでワークブックの名前を変数...
-
エクセルマクロで不特定なファ...
-
【マクロ】読取専用のファイル...
-
エクセルのxls形式からxlsx形式...
-
エクセルのシートの数を数えた...
-
フォルダ内のexcelファイルを順...
-
エクセル(マクロ)のファイル...
-
vlookup関数の引数を変数で指定...
-
エクセル 複数ファイルの一括...
-
ファイルを開かずにマクロを実行
-
フォルダ内のブック全部にパス...
-
【Excel VBA】ファイル名が一...
-
ファイルの保存場所を変えたら...
-
vba初心者です。 質問です。 毎...
-
Accessのaccdbファイルを起動で...
-
リンク切れチェックを行うマクロ
-
Excel VBA でファイルが開かれ...
-
エクセルマクロ 異なるファイ...
おすすめ情報