マクロを実行したの保存先フォルダを変更する方法を教えてください。
マクロがあるファイルを作業後下記のマクロを実行すると
Sub マクロ保存()
Const fol As String = "\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\"
Dim fname As String, fPath As String
Dim exte As String
fname = Worksheets("休日").Range("R2").Text
exte = ".xltm"
fPath = fol & fname & exte
ThisWorkbook.SaveAs Filename:=fPath, FileFormat:=xlOpenXMLTemplateMacroEnabled
If Workbooks.Count > 1 Then
ThisWorkbook.Close SaveChanges:=False
Else
Application.Quit
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
指定フォルダ「"\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\"」に指定セル値名でマクロ有効テンプレート形式で保存されます。
このマクロを、指定フォルダ「"\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\"」ではなく
マクロがある同じフォルダ内に保存する方法を教えてください。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
1個ミスがありました。
これは原因では有りません。folの後ろに¥を付けて下さい。
fPath = fol & "\" & fname & exte です。
原因はエクセルブックの開き方です。
フォルダから直に開くのでは無く、一度エクセルを開いてファイル(F)の「開く」から目的のブックを開きます。
直接にブックを開いて作業するのであれば
folをフルパスで自分で、マクロがあるフォルダを指定するしか有りません。
fol="C:\Users\user\Documents\○○○○\△△△\
の様に、です。
No.1
- 回答日時:
Const fol As Stringで初期値をいれないで
Const fol As Stringのみとして
fPath = fol & fname & exteの1行上に、
fol = ActiveWorkbook.Path
を入れれば良いのでは?
Const fol As Stringをそのままにして置いても、上書きされるので、そこはそのままでも良いです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 13:29
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 09:50
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/05/24 08:33
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/01/12 16:58
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/01/27 13:15
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/20 16:37
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/01/26 12:00
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/20 14:46
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/21 13:29
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/17 11:59
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
Excelが勝手にシート移動してし...
-
VBA マクロ実行時エラー’1004Ra...
-
EXCEL マクロ クリップボードク...
-
Excelマクロ ファイル名が変わ...
-
マクロエクセルのブロック解除
-
アクセスでファイルを開いたと...
-
エクセル2013vbaで、見えない名...
-
昨日まで動いていたエクセルの...
-
VBAを一度起動するとずっと出て...
-
エクセルマクロを有効にしない...
-
excelのマクロ実行でブロックさ...
-
Excel2010 PERSONAL.xlsbの挙動...
-
秀丸で保存時のフォルダを固定...
-
コピーしたファイルのマクロを...
-
【マクロ】マクロが保存されて...
-
エクセルファイルを自身のファ...
-
【マクロ】エラーが発生⇒実行時...
-
excelファイルに使われているVB...
-
マクロでマクロを削除する
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
excelファイルに使われているVB...
-
VBA マクロ実行時エラー’1004Ra...
-
コピーしたファイルのマクロを...
-
昨日まで動いていたエクセルの...
-
別のパソコンでエクセルのマク...
-
VBAを一度起動するとずっと出て...
-
マクロを消すマクロは不可能?
-
エクセルファイルを自身のファ...
-
アクセスでファイルを開いたと...
-
EXCEL マクロ クリップボードク...
-
Excelが勝手にシート移動してし...
-
Excelマクロ ファイル名が変わ...
-
excelが別プロセスで起動してし...
-
Excel2010 PERSONAL.xlsbの挙動...
-
エクセルマクロを有効にしない...
-
エクセル2013vbaで、見えない名...
-
エクセルマクロにてパワーポイ...
-
【マクロ】アクティブセルの行...
-
excelのマクロ実行でブロックさ...
おすすめ情報
回答ありがとうございます。
下記の設定を行いましたが
Sub マクロ保存()
Dim fname As String, fPath As String
Dim exte As String
fname = Worksheets("休日").Range("R2").Text
exte = ".xltm"
fol = ActiveWorkbook.Path
fPath = fol & fname & exte
ThisWorkbook.SaveAs Filename:=fPath, FileFormat:=xlOpenXMLTemplateMacroEnabled
If Workbooks.Count > 1 Then
ThisWorkbook.Close SaveChanges:=False
Else
Application.Quit
ThisWorkbook.Close SaveChanges:=False
End If
End Sub
作業ブックと同じフォルダ内では無く
ディスクトップ上に保存されてしまします。
申し訳ありません、解決方法を教えてください。