ブック名が「ひな形」
のファイル形式が「マクロ有効テンプレート」
に下記のコードが有ります。
Sub ブック保存()
Application.Dialogs(xlDialogSaveAs).Show Arg1:=Range("x1").Value
End Sub
マクロを実行しますと
ダイナログが開き、指定したフォルダー内に
セル値X1がファイル名として保存方式がマクロ有効ブックとして
保存されます。
このマクロが実行されたタイミングで
指定したフォルダー内に
セル値X1がファイル名として保存方式がマクロ有効ブックで保存されたファイルをクローズする方法を教えてください。
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは
Application.Dialogs(xlDialogSaveAs).Show は 自身を名前を付けて
保存する結果になりますので開いていたブック自体が名前と保存箇所が変わり開いている状態になると思います。
ですので
>セル値X1がファイル名として保存方式がマクロ有効ブックで保存されたファイルをクローズする方法を教えてください。
は、自身を閉じる事になります。
テンプレートブックをそのまま開いた状態で名前を付け保存する場合は
SaveCopyAs などになると思います。
方法は色々ありますが、Application.Dialogs(xlDialogSaveAs).Showは
使わない方が簡単です。
例を挙げると(FolderPicker)の例
Sub ブック保存()
Dim filePath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "保存先フォルダの選択"
.InitialFileName = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
If .Show = True Then
filePath = .SelectedItems(1)
End If
End With
If filePath <> "" Then
ActiveWorkbook.SaveCopyAs (filePath & "\" & Range("x1").Text & ".xlsm")
End If
End Sub
元々、保存するブックはコピーなので開かれていません。
ファイル保存で対策が必要なプロセス(同名ファイルの存在確認など)は割愛していますので組み込みをしてください。
出来れば、保存先を決めておいて(ファイル名と同様の方法で)Dialogなどを使わず ActiveWorkbook.SaveCopyAsする方が煩わしくないと思います。
これは別の話ですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) Excelのマクロコードについて教えてください。 1 2022/03/27 13:25
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
エクセルのvbaにて thisworkboo...
-
【Excel】マクロの保存先について
-
エクセルVBAで作成した別ブック...
-
ファイル名変更後も、マクロを...
-
複数のExcelファイルの印刷設定...
-
エクセル;相対パスを絶対パスへ...
-
個人用マクロブックが消えました
-
EXcelのマクロで相対パスでファ...
-
EXCELのボタンによるマクロの登...
-
【マクロ】マクロが保存されて...
-
マクロの保存先、開いてるすべ...
-
excelで直前に参照していたブッ...
-
ExcelVBAで困っています。
-
マクロ 自動でパスワード及び指...
-
Excelのマクロコードについて教...
-
複数のExcelブックから特定シー...
-
EXCELブックが勝手に開いて困っ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
エクセル;相対パスを絶対パスへ...
-
マクロの保存先、開いてるすべ...
-
【Excel】マクロの保存先について
-
excelで直前に参照していたブッ...
-
EXcelのマクロで相対パスでファ...
-
エクセルVBAで作成した別ブック...
-
複数のExcelファイルの印刷設定...
-
エクセルのvbaにて thisworkboo...
-
EXCELのボタンによるマクロの登...
-
エクセルVBA 個人用マクロブッ...
-
EXCELマクロで、開いてはいるが...
-
EXCELブックが勝手に開いて困っ...
-
エクセルで未保存に対するメッ...
-
[フィルターオプションの設定]...
-
【Excel】特定セルの内容をテキ...
-
ファイル名変更後も、マクロを...
-
名前の変わるブックをアクティ...
おすすめ情報