![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
マクロを実行して、マクロ有効形式と一般のExcel形式の2つのファイルが作業フォルダ内に保存されます。
2つのファイルの内、マクロ有効形式の保存先をダイナログが表示され、保存先のフォルダを選択出来、
一般のExcel形式のファイルはそのまま作業フォルダ内に自動で保存出来る方法を教えてください。
マクロ
Sub 電子提出()
Dim myFull As String
myFull = ThisWorkbook.FullName
Application.DisplayAlerts = False
On Error Resume Next
Worksheets(Array("記載方法")).Delete
Worksheets(Array("提出図書(参考)")).Delete
Worksheets(Array("Web申請手順(参考)")).Delete
Worksheets(Array("申請種別")).Delete
Worksheets("提出シート").Activate
Dim rng As Range
Set rng = Selection.Cells
Range("B1", "H47").Select
mybook = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & "(提出用).xlsx", FileFormat:=xlOpenXMLWorkbook
rng.Select
Sheets("提出シート").Range("D3,D4,D5,D7").ClearContents
Range("D7").Select
Sheets("提出シート").Shapes("担当者").Visible = False '
ActiveWorkbook.SaveAs Filename:=mybook & "\" & Range("P1").Value & ".xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.Quit
Sheets("提出シート").Shapes("新築FD").Visible = False '
Sheets("提出シート").Shapes("計変FD").Visible = False '
Sheets("提出シート").Shapes("増築FD").Visible = False '
Sheets("提出シート").Shapes("担当者").Visible = False '
Range("D7").Select
Kill myFull
End Sub
が有ります。このマクロを実行すると作業フォルダ内にマクロ有効形式「〇〇 様邸【担当】.xlsm」と一般のExcel形式「〇〇 様邸【担当】(提出用).xlsxが自動で保存されます。
上記のファイルの内、マクロ有効形式「〇〇 様邸【担当】.xlsm」のファイルを保存する際に
ダイナログが表示され、保存先のフォルダを選択出出来るようにして
一般のExcel形式「〇〇 様邸【担当】(提出用).xlsxは今まで通り、自動で作業フォルダ内に保存。
が出来る方法を教えてください。
よろしくお願いします。
No.2ベストアンサー
- 回答日時:
直接の回答ではなく、先日気付いて伝え忘れた件を。
>Worksheets(Array("記載方法")).Delete
Array関数を用いていても中身の値が1つしかないなら、
Worksheets("記載方法").Delete
Worksheets("提出図書(参考)").Delete
Worksheets("Web申請手順(参考)").Delete
Worksheets("申請種別").Delete
これでも宜しいのではないかと。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/03/02 08:40
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/12 10:10
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Excel(エクセル) ワードのマクロについて教えてください。 1 2023/03/11 13:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/11 12:55
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/02/07 09:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
IF関数を使ってマクロを実行さ...
-
Excel VBAからAccessマクロを実...
-
エクセルのマクロについて教え...
-
エクセルで特定の列が0表示の場...
-
メッセージボックスのOKボタ...
-
マクロで空白セルを詰めて別シ...
-
マクロ実行時、ユーザーフォー...
-
Excel マクロ VBA プロシー...
-
特定のPCだけ動作しないVBAマク...
-
特定文字のある行の前に空白行...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
ExcelVBAでPDFを閉じるソース
-
エクセルのマクロについて教え...
-
インプットボックスでの入力候...
-
ソース内の行末に\\
-
エクセルVBAで保護したシー...
-
Excel マクロでShearePoint先の...
-
ワードで算用数字を漢数字に変...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報
何とか解決したいので
ご親切な方よろしくお願いします
回答ありがとうございました
申し訳ありません
貴者が教えて頂けた
コードを私のコードにどのように変更
すれば良いかがわかりません
詳しく教えてください
よろしくお願いします