下記のマクロを実行すると
ダイアログが表示されて、保存先フォルダを指定し、指定セル値をファイル名として作業ブックを保存、
元の作業ブックはそのままで削除されません。
このマクロを
ダイヤログが表示されないで、作業フォルダ内に保存できるように変更する方法を教えてください。
現状のマクロ
Sub 業者用日付を更新して保存()
On Error Resume Next
Application.DisplayAlerts = False
Const folder As String = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\"
Dim newName As Variant
Dim initName As String
initName = folder & Range("W2").Value
newName = Application.GetSaveAsFilename(InitialFileName:=initName, FileFilter:="Excel マクロ有効ブック(*.xlsm), *.xlsm")
If newName = False Then Exit Sub
Dim ws As Worksheet
Dim TargetCheck As String
Dim List As Variant
Dim i As Long
Dim Chk As Boolean
If ws.Visible = False Then
For i = 0 To UBound(List)
If ws.Name = List(i) Then
Chk = True
Exit For
End If
Next i
If Chk = False Then
TargetCheck = TargetCheck & ws.Name & vbCrLf
Application.DisplayAlerts = False
ws.Delete
Application.DisplayAlerts = True
End If
End If
ThisWorkbook.SaveAs newName, xlOpenXMLWorkbookMacroEnabled
Application.ScreenUpdating = True
Application.Quit
With ThisWorkbook
.Saved = True
.Close False
End With
End Sub
以上となります。
よろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/11/08 10:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/03/26 18:09
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2024/03/27 14:27
- Visual Basic(VBA) Excelのマクロについて教えてください。 2 2024/11/21 10:13
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/20 16:59
- Visual Basic(VBA) Excelのマクロについて教えてください。 4 2024/06/21 09:31
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2024/07/04 08:52
- Visual Basic(VBA) Excelのマクロについて教えてください。 4 2025/02/17 13:02
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2024/01/16 10:30
このQ&Aを見た人はこんなQ&Aも見ています
-


Excelのマクロについて教えてください。
Visual Basic(VBA)
-


C言語 関数、変数の宣言について
C言語・C++・C#
-


VBAでFOR NEXT分を Application.OnTimeを使って
Visual Basic(VBA)
-
-
4

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
5

以下のプログラムの実行結果はどうなると思いますか? その理由も教えてください。
Visual Basic(VBA)
-
6

質問58753 このコードでうまく動作しません。どうしたら良いですか Private Sub Wor
Visual Basic(VBA)
-
7

VBAの質問(Msgboxについて)です
Visual Basic(VBA)
-
8

エクセル タブの下のメニューを選択 実行するコード
Visual Basic(VBA)
-
9

vbe でのソースコード参照(msgbox)について
Excel(エクセル)
-
10

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
11

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
12

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
13

エクセルVBAで特定のセルの値をコメントに置き換えることについて A1のセルに入っている値(文字)を
Visual Basic(VBA)
-
14

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
15

Excelのマクロについて教えてください。
Visual Basic(VBA)
-
16

C言語のことです。写真(見にくくてすいません)の下のプログラムを実行したいのですが四行目がおかしいと
C言語・C++・C#
-
17

VBAで特定の文字が入った行をコピーして貼り付けたい
Visual Basic(VBA)
-
18

VB.net 文字列から日付型へ変更したい
Visual Basic(VBA)
-
19

Vba エラーコード2147xxxxxxについて教えてください
Visual Basic(VBA)
-
20

C言語について(初心者)
C言語・C++・C#
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAでCOPYを繰り返すと、処理が...
-
【マクロ】並び替えの範囲が、...
-
【マクロ】オートフィルター を...
-
Vba Array関数について教えてく...
-
Vba 型が一致しません(エラー1...
-
【ExcelVBA】値を変更しながら...
-
vbsでのwebフォームへの入力制限?
-
エクセルのマクロについて教え...
-
【ExcelVBA】5万行以上のデー...
-
VBAでセルの書式を変えずに文字...
-
【マクロ】開いているブックの...
-
Vba セルの4辺について罫線が有...
-
vb.net(vs2022)のtextboxのデザ...
-
Excel VBA 選択範囲の罫線色の...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
エクセルの改行について
-
VBAで特定の文字が入った行をコ...
-
WindowsのOutlook を VBA から...
-
Excel 範囲指定スクショについ...
-
【マクロ】シートの変数へ入れ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Vba セルの4辺について罫線が有...
-
vbsでのwebフォームへの入力制限?
-
【ExcelVBA】5万行以上のデー...
-
【マクロ】売上一覧YYYYMMDDHHS...
-
【マクロ】開いているブックの...
-
【マクロ】並び替えの範囲が、...
-
エクセルの改行について
-
エクセルのマクロについて教え...
-
vb.net(vs2022)のtextboxのデザ...
-
VBAでCOPYを繰り返すと、処理が...
-
VBA ユーザーフォーム ボタンク...
-
エクセルのVBAコードと数式につ...
-
エクセルのVBAコードについて教...
-
[VB.net] ボタン(Flat)のEnable...
-
【マクロ】変数を使った、文字...
-
改行文字「vbCrLf」とは
-
質問58753 このコードでうまく...
-
【マクロ】シートの変数へ入れ...
-
ワードの図形にマクロを登録で...
-
算術演算子「¥」の意味について
おすすめ情報












コードの下記の部分を
Const folder As String = "\\nas-sp01\share\確認部\電子申請 関連\1.受付\1.確認申請\"
作業ブックが保存されているフォルダと同じフォルダ内に指定すれば良いと思うのですが。
どなたか教えて頂けませんか。
よろしくお願いいたします。