また質問に来ちゃいました。
VBAを使って自動保存にしたいんです。
同じタイトルになる場合上書きのアラートが出ると思うのですが、アラートを出さずに上書きをせず「タイトル_○○」というようなタイトルで保存はできるのでしょうか?
教えてください。
意味が解らないかもしれませんがこれが精一杯です;
ちなみに上書き処理をしないようにした場合
--------------------------------------
name = Format(Date, "ggge年m月分") & ".xls" '処理をした日の月で保存
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:= _
"C:\Documents and Settings\PC Users\デスクトップ\研修課題\" & name, FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
CreateBackup:=False
Application.DisplayAlerts = True
-----------------------------------------------------------
上のは給料明細を作成したときのものですが・・・
このときは上書き保存のアラートも出さず上書きもしないで保存されていたら処理終了にしたんです。
くどいようですが、アラートを出さずに上書きでもなく同じタイトルでも中身が違うという想定で「タイトル_○○」というような形にして別途保存したいです。
タイトルは処理した日の日付です。
本日であれば20081014という保存が最初にできると思いますが、保存した日に再度処理を行ったときに「20081014_2」とか「20081024_2」というようなタイトルにして保存をしたいんです。
意味が解らないかもしれませんがご指導のほどよろしくお願いします。
No.3ベストアンサー
- 回答日時:
ファイル名が重複しないようにという解釈でテストしました。
適宜修正願います。
Sub test()
Dim Fname As String
Dim i As Integer
Fname = "R:\" & Format(Date, "ggge年m月分") & ".xls"
i = 1
Do
If Dir(Fname) = "" Then
ActiveWorkbook.SaveAs Filename:=Fname
Exit Do
Else
i = i + 1
Fname = "R:\" & Format(Date, "ggge年m月分") & "_" & i & ".xls"
End If
Loop
End Sub
iってことは重複しないようにするための_○○の部分にあたりますよね?
解り安く試してみたいと思います。
もしバグったときは新しくスレ建てるのでそのときはよろしくお願いします。
No.2
- 回答日時:
年月日をファイル名に使っていますが、いっそのこと時分秒までファイル名に使えば、重複は無くなりますよ。
さすがに1秒以内に2回保存するようなことは無いですよね。
ありがとうございます。
その手があったんですね・・・
全く思いつかず・・・
確かに2回やるということはないですね。
ありがとうございました。
No.1
- 回答日時:
こんにちは。
参考にしてください。
Sub test()
Name = Format(Date, "ggge年m月分") & ".xls" '処理をした日の月で保存
If Dir(Name) <> "" Then
'存在の場合は、ファイル名に_○○を付ける
Name = Left(Name, Len(Name) - 4) & "_○○.xls"
End If
ActiveWorkbook.SaveAs Filename:="C:\Documents and Settings\PC Users\デスクトップ\研修課題\" & Flnm
End Sub
Sub 名前を付けて保存()
Flnm = "C:\TEST"
Flnm = Application.GetSaveAsFilename(InitialFileName:=Flnm, _
filefilter:="Excel ファイル (*.xls), *.xls", Title:="名前を付けて保存")
If Flnm <> "False" Then
ExitFlg = True
End If
If Dir(Flnm) <> "" Then
Flnm = Left(Flnm, Len(Flnm) - 4) & Format(Now(), "_yymmdd hhmmss") & ".xls"
End If
ActiveWorkbook.SaveAs Filename:=Flnm
End Sub
参考にさせていただきます!!
わかりづらい説明をしてしまったかと指摘されるのではないかとひやひやしましたが丁寧に教えてくださってありがとうございます。
ためさせていただきます。
またなにかありましたらご指導ください!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Excel(エクセル) エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし 4 2023/06/06 21:00
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/06 13:01
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/06/01 14:45
- Visual Basic(VBA) 【前回の続き続きです、ご教示ください】VBAの記述方法がわかりません。 2 2022/08/24 20:49
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel VBAでほかのアプリケーシ...
-
エクセルで「名前を付けて保存...
-
コマンドプロンプトでデスクト...
-
【Excel VBA】自動的にバックア...
-
読み取り専用ファイルを上書き...
-
エクセルでファイルの最終更新...
-
エクセルマクロ PDF出力、CSV出力
-
Excel VBAで作成したマクロをxl...
-
FileSearchが使えなくなり困っ...
-
Pivot table で集計されたデー...
-
onedriveで同期解除をしたら、...
-
teratarmでコマンド入力すると...
-
vlan internal allocation poli...
-
YAHAMA RTXシリーズのコマンド...
-
TXTファイルを上書き保存する前...
-
沢山のフォルダにあるファイル...
-
マイドキュメントのフォルダの...
-
Deleteキーでファイルを削除し...
-
パワーポイントのデータを誤っ...
-
ls であるファイル以外を表示し...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
コマンドプロンプトでデスクト...
-
Excel VBAで作成したマクロをxl...
-
vbaでIEの名前を付けて保存(A)...
-
エクセルVBAについて
-
VBAで、強制保存してブックを閉...
-
ExcelVBAでデスクトップのPATH...
-
エクセルで「名前を付けて保存...
-
VBA メモ帳の上書き保存がしたい
-
VBScriptで日本語が変です
-
タイトルバーやメニューバーの...
-
Pivot table で集計されたデー...
-
エクセルマクロ PDF出力、CSV出力
-
VBSでHPを保存するにはど...
-
AccessVBAでレポートをPDFで出力
-
htmlから取り込んだ を消...
-
ASPでファイルを保存するダイア...
-
VBScriptでのSaveAsについて
-
CFileDialogで保存したい
おすすめ情報