テンプレートを使用して作成した文書を保存する際に
保存先を自動で指定できる方法を探しています。
たとえば
(1)デスクトップに”売上フォルダ”を作成
(2)”売上フォルダ”の中に、
売上表を入力できるテンプレートを保存
(3)そのテンプレートを使用して
1月分の売上を入力→保存する
この(3)の作業のときに、手動で保存先を指定するのではなく、
自動的に”売上フォルダ”に保存できるようにしたいのですが
方法が分かりません。
カレントフォルダの保存先を変更してしまうと
他にもエクセルを使用することがあるので、
全てのエクセルデータの保存先が
”売上フォルダ”になってしまうと困ります。
例えで言うと(2)の文書を
テンプレートとして保存せずに、通常のファイルとして保存し、
それを上書き保存せずに、
”名前をつけて保存”をする場合は、
自動的に”売上フォルダ”に保存されるので、
それと同じ様にしたいのですが、
方法はありますでしょうか?
1週間ほど、検索して調べていましたが、さっぱりわかりません。
どなたか分かる方がいらっしゃったら
教えていただけないでしょうか?
宜しくお願いいたします。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
Wendy02さん ご回答ありがとうございました。
ユーザーネームが違っていますが、上記質問をした者です。
少し訳があり、一度退会してしまいましたが、
今回お礼を述べたく、再度登録したため、ユーザーネームが違っています。
無知な故、
簡単な方法で保存する方法があるものだと
思っていました。
回答もなく、
方法があるのか、ないのか、ということも
よく分からなかったのでとても助かりました。
本当にありがとうございました。
No.1
- 回答日時:
誰も回答していないようですね。
最近は、ちょっと変形した質問が出ると、回答する人がいないようです。ただ、こういう時は、Windows などのOSとExcelのVersion を書いていただいたほうが良いですね。ただ、思った以上に難しいですね。
>保存先を自動で指定できる方法を探しています。
保存先が自動的に変えられるのは、マクロ以外には思いつきません。
テンプレートですと、Excel2003以下ですと、マクロが、保存の際に、新しいブックにも残りますが、それでもよろしいのですか?
新規ブックのみ、規定のフォルダに、デフォルトフォルダが決まるはずです。
'----
'//ThisWorkbook に登録
Dim OrgFolder As String
Private Sub Workbook_Open()
Dim myDesktop As String
Const myFOLDER As String = "売上フォルダ" 'デスクトップのフォルダ
OrgFolder = Application.DefaultFilePath
myDesktop = CreateObject("WScript.Shell").SpecialFolders("DESKTOP")
If Dir(myDesktop & "\" & myFOLDER, vbDirectory) <> "" Then
Application.DefaultFilePath = myDesktop & "\" & myFOLDER
Else
MsgBox "標準フォルダの変更に失敗しました。", vbCritical
End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If OrgFolder <> "" Then
Application.DefaultFilePath = OrgFolder
End If
End Sub
'------
ただ、通常、ファイルは、開いたところのフォルダに保存されるはずです。問題点は、売上データを開いていると、新規のファイルは、同じ「売上フォルダ」に保存されてしまいます。他にも方法はあると思いますが、一長一短の問題は残るはずです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Wordで作成したものをUSBに保存...
-
エクセル マクロを使って同じ...
-
エクセルで「ページレイアウト...
-
Excel に貼り付けた図形が、保...
-
エクセルが勝手に開く
-
アクセスVBAで既に開いているエ...
-
ロータス1-2-3のファイルをエ...
-
Outlookでメールが送信できない。
-
ExcelでVBA実行後×(閉じる)ボタ...
-
outlookの分類項目に【R-mail】...
-
至急!教えてください!!「Mic...
-
pcゲームのセットアップが出来...
-
メールでCADデータが送られまし...
-
jtrim 1.53cが正常な動きをし...
-
EXCELを起動したとき120%の表...
-
VBA 新規ファイルを元ファイル...
-
複数のエクセルファイルを一つ...
-
It works! が表示されるという...
-
CADソフト ユニドラフ(Unidraf...
-
ID Manager の操作...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで「ページレイアウト...
-
Wordで作成したものをUSBに保存...
-
エクセルで「名前を付けて保存...
-
ACCESSからexcelブックを開いて...
-
EXCELで保存する際に、必ず別名...
-
エクセル マクロを使って同じ...
-
共有フォルダで上書き保存できない
-
パワーポイントの上書き保存が...
-
エクセル「名前を付けて保存」...
-
一太郎での上書き保存について
-
Excelで書式やページ設定の既定...
-
エクセルのワークシート上書き...
-
マイクロソフトのOffice Delve...
-
Excel起動時に漢字かなモードを...
-
過去に掲載されていたのですが
-
HPからWord文書が開けない
-
2003の表が2007で書き込み後保...
-
Excel 2019 での上書き保存につ...
-
ワードで保存先を指定する
-
excel2010のファイル保存エラー...
おすすめ情報