作業ブックを
指定フォルダ内に指定シート名の指定セル値をファイル名として保存する方法を教えてください。
指定フォルダ「"\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\"」
指定シート名「300」
指定セル値「E34」
ファイル形式は「マクロ有効テンプレート」
以上です。
保存作業が完了しましたら、作業中及び保存ファイルをクローズしたいです。
先ほども同じような質問をしましたが、
自分で今まで教えて頂いたマクロで設定しましたが、上手く行きませんでした。
困っております。
よろしくお願いいたします。
No.2
- 回答日時:
>マクロを実行し、指定フォルダ内に保存された後に作業ブックを保存するか否かのダイナログは表示されますが、この表示を非表示にすることはできますが、又、作業中のブックをクローズしてもExcel自体が立ち上がったままなので、Excel全体をクローズしたいのですが。
保存処理などを行う場合の定番処理は、
>今まで教えて頂いたマクロ にありませんでしたか・・
(同名ファイルの存在対応、使用不可文字の検証、自ブックの処理、アプリケーションの処理、アラート処理など)
ご存知と思い割愛しましたが下記の項目も必要処理と思います
①についてはセルE34に入力段階で処理する方法も考えられます
数式などで値が決まっていて絶対にNG文字が入らない事が確定している場合は不要と思われるかもしれませんが
定数以外(セルから参照や数式の解を参照)をしている場合は必要だと思います
①ファイル名に使えない文字がWorksheets("300").Range("E34").Textに
あった場合
あ:問題をメッセージして処理を中止
い:NG文字を_(アンダーバー)などに置換処理して問題と結果を表示
う:UI(インプットボックス)を表示して訂正を促し処理待ち
②同名ファイルが存在する場合
あ:上書き処理
い:ファイル名を変更して処理
い1:自動で添え字(ファイル名_01+α)を付加して保存
い2:UI(インプットボックス)を表示して訂正を促す
ご質問の補足ケースのところだけは
作業ブック Excelアプリケーションの処理は下記で良いと思います
ThisWorkbook.Closeを下記に変更
If Workbooks.Count > 1 Then
ThisWorkbook.Close SaveChanges:=False
Else
Application.Quit
ThisWorkbook.Close SaveChanges:=False
End If
*.Close SaveChanges:=False 保存せずに閉じる( ".xltm" )
*作業用ブックを保存する場合は 名前を付けて保存する処理より
上流で上書き保存します
①②の処理がすぐに必要ない場合は、調べて追加するようにしてください
No.1ベストアンサー
- 回答日時:
\\nasで上手くいくかは分かりませんが
他の形式でも同じだと思いますが、
マクロ有効テンプレート拡張子を付けFileFormatを指定すれば出来ると思います
ファイル名は純粋にファイル名のみにしてください
処理は書いていませんがファイル名に使用出来ない文字列に注意・・
Const fol As String = "\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\"
Dim fname As String, fPath As String
Dim exte As String
fname = Worksheets("300").Range("E34").Text 'ファイル名
exte = ".xltm" '拡張子
fPath = fol & fname & exte
ThisWorkbook.SaveAs Filename:=fPath, FileFormat:=xlOpenXMLTemplateMacroEnabled
ThisWorkbook.Close
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) エクセルのマクロについて教えてください。 2 2023/02/03 16:07
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/20 16:37
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 10:00
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2022/08/04 13:56
- Visual Basic(VBA) エクセルのマクロコードの一部分を変更する方法について教えてください。 2 2023/02/17 08:40
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
マクロの保存先、開いてるすべ...
-
【Excel VBA】マクロでExcel自...
-
エクセル関数>参照ファイル名...
-
複数のExcelブックを1つ...
-
excel VBA シート保存について...
-
エクセル;相対パスを絶対パスへ...
-
ファイルごとにセルの移動方向...
-
【Excel】特定セルの内容をテキ...
-
エクセルVBAで作成した別ブック...
-
【Excel】マクロの保存先について
-
Excel VBAで他のブックを選択...
-
マクロ 自動でパスワード及び指...
-
エクセルでメッセージボックス...
-
エクセルで読み取り専用の時に...
-
ブックを開いたとき自動的にバ...
-
エクセルで複数のファイル(ブッ...
-
エクセル 半角カナを全角に、...
-
エクセルマクロで(セルの削除...
-
名前の変わるブックをアクティ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
-
【Excel VBA】マクロでExcel自...
-
エクセル;相対パスを絶対パスへ...
-
マクロの保存先、開いてるすべ...
-
【Excel】マクロの保存先について
-
excelで直前に参照していたブッ...
-
EXcelのマクロで相対パスでファ...
-
エクセルVBAで作成した別ブック...
-
複数のExcelファイルの印刷設定...
-
エクセルのvbaにて thisworkboo...
-
EXCELのボタンによるマクロの登...
-
エクセルVBA 個人用マクロブッ...
-
EXCELマクロで、開いてはいるが...
-
EXCELブックが勝手に開いて困っ...
-
エクセルで未保存に対するメッ...
-
[フィルターオプションの設定]...
-
【Excel】特定セルの内容をテキ...
-
ファイル名変更後も、マクロを...
-
名前の変わるブックをアクティ...
おすすめ情報
回答ありがとうございました。
連絡が遅くなり申し訳ありません。
上手くできました。
補足でお願いですが、
マクロを実行し、指定フォルダ内に保存された後に作業ブックを保存するか否かのダイナログは表示されますが、この表示を非表示にすることはできますが、
又、作業中のブックをクローズしても
Excel自体が立ち上がったままなので、Excel全体をクローズしたいのですが。
この補足はルール違反になりますでしょうか。
連絡をお待ちいたします。