No.2ベストアンサー
- 回答日時:
連番でも良いですが、桁数の心配が不要で何かと便利だと思うので、日付をファイル名にしてはどうでしょうか。
ツール→マクロ→Visual Basic Editorで、記憶させたマクロを見てください。
たぶん、自動記録の場合は、ファイル保存の部分が以下のようになっていると思います。
ActiveWorkbook.SaveAs Filename:="~デスクトップ\新しいフォルダ\Book1.xls", FileFormat~
これを、以下のように
ActiveWorkbook.SaveAs Filename:="~デスクトップ\新しいフォルダ\" & Format(Date, "Long Date") & ".xls", FileFormat~
もし一日に何度も使う用なら、日付+時間でもいいですね。
No.3
- 回答日時:
こんにちは。
「新しいフィオルダ」って「新しいフォルダ」のことかもしれませんが、一応、ご質問文のままにしました。
基調となるファイル名 は、 "Test" にしましたので、Test の後に、ファイルの数が連番でついていきます。これは、Sheet2 のみが保存されます。
Sub TestSample()
Dim myDeskTop As String, BaseName As String, myDir As String
Dim f As String, i As Long
myDeskTop = CreateObject("WScript.Shell").SpecialFolders(1)
BaseName = "Test" '基調となるファイル名
myDir = myDeskTop & "\新しいフィオルダ\" 'デスクトップフォルダ
f = Dir(myDir & BaseName & "*.xls")
Do While f <> ""
i = i + 1
f = Dir
Loop
Sheets("Sheet2").Copy
With ActiveWorkbook
.SaveAs myDir & BaseName & i + 1 & ".xls"
.Close False
End With
End Sub
早急な御回答ありがとうございます!
そうです、間違えてしまってますね^^;新しいフォルダです。
早速やってみます。ありがとうございます。
No.1
- 回答日時:
>連番
そういう方法もありますが、端末の日付を変えることがないPCでしたら、タイムスタンプをファイル名に付加する方法もあると思いますよ。
連番管理するならば、手で抹消されたファイルも考慮し、連番管理ファイルか何かを用意しなければなりそうなので。。。
タイムスタンプでのサンプルです。
VisualBasicEditorで、雛形のThisWorkBookに以下を張ってみてください。
シート2をアクティブとかのカスタマイズは、そちらでしてください。
Option Explicit
Private Const DEF_FILE_PATH As String = "C:\保存先\" ← 予め、このフォルダを作成かパスを変更してください
Private Const DEF_FILE_NAME As String = "ぶっく"
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim strFineName As String
'変更が無いときは、未処理
If ThisWorkbook.Saved Then
Exit Sub
End If
'保存先を作成
strFineName = DEF_FILE_PATH & DEF_FILE_NAME & "_" & Format(Now, "yyyymmddhhnnss") & ".xls"
'名前を付けて保存
ThisWorkbook.SaveAs strFineName
'保存通知
Call MsgBox(strFineName & vbCrLf & "として、保存しました", vbInformation)
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 2 2023/03/02 18:54
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/21 09:28
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Excel(エクセル) エクセルVBA、間違っているコード内容を正して頂けませんか? エクセルワークシートに納品書を作ったの 2 2023/08/02 21:13
- 失恋・別れ 恋愛の仕方において、女性は上書き保存、男性は名前をつけて保存とか言いますがどういう意味ですか? 女性 3 2022/11/06 21:52
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/11 11:05
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/02/21 11:19
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
マクロ VBA ファイル名を連番でつけたいのですが
Access(アクセス)
-
ファイル名が同じ場合自動的に番号を付ける方法ありますか?
その他(データベース)
-
エクセル2019でPDFファイル名に枝番号をつけたい。 アクティブワークシートを印刷した後の処理とし
Excel(エクセル)
-
-
4
ファイル名を今日の日付、時刻で保存する
Visual Basic(VBA)
-
5
Excel VBAで条件ごとの自動採番について
Excel(エクセル)
-
6
マクロ、PDFを任意のフォルダへ保存
Excel(エクセル)
-
7
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
8
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
9
Excelの表に自動でナンバリングしたいです。
Excel(エクセル)
-
10
エクセルVBAを使ってセルに日付+通し番号を入力したい
Excel(エクセル)
-
11
フォルダ名に番号を連番でつけたい
その他(プログラミング・Web制作)
-
12
VBAで「致命的なエラー」が出ました。どのくらい致命的なんでしょうか?
Access(アクセス)
-
13
Excel VBA シート名変更時、重複していたら連番を付けたい
その他(Microsoft Office)
-
14
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
15
【マクロ】エラーが発生⇒実行時エラー58既に同名のファイルが存在
Excel(エクセル)
-
16
【VBA】PDF出力に任意のファイル名前を付ける方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Corel Digital Studioの動画をS...
-
コマンドプロンプトでデスクト...
-
webページの特定の部分だけ消し...
-
読み取り専用ファイルを上書き...
-
Excel VBAで作成したマクロをxl...
-
VBAで、強制保存してブックを閉...
-
vb.net webからダウンロードで...
-
EXCEL VBAでカンマ区切りCSVフ...
-
【Excel VBA】自動的にバックア...
-
irvineを利用してVBAからダウン...
-
Excel VBAでほかのアプリケーシ...
-
htmlから取り込んだ を消...
-
MATLABのtxtファイル等の読み込...
-
VBScriptでのSaveAsについて
-
印刷と保存の仕方をVBAマクロの...
-
パワーポイントの自動再生はで...
-
VBA メモ帳の上書き保存がしたい
-
ExcelVBAでデスクトップのPATH...
-
html 保存できない
-
onedriveで同期解除をしたら、...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
読み取り専用ファイルを上書き...
-
Excel VBAでほかのアプリケーシ...
-
VBAで、強制保存してブックを閉...
-
Excel VBAで作成したマクロをxl...
-
Corel Digital Studioの動画をS...
-
エクセルで「名前を付けて保存...
-
VBA メモ帳の上書き保存がしたい
-
コマンドプロンプトでデスクト...
-
vbaでIEの名前を付けて保存(A)...
-
VB.NETでEXCELファイルを開き、...
-
VBScriptでのSaveAsについて
-
エクセル:マクロ:保存時に連...
-
Pivot table で集計されたデー...
-
AccessVBAでレポートをPDFで出力
-
VBScriptで日本語が変です
-
ExcelVBAでデスクトップのPATH...
-
htmlから取り込んだ を消...
-
EXCEL/VBA:WORDファイルの上書...
-
AccessVBAでIEを操作、ページ内...
-
webページの特定の部分だけ消し...
おすすめ情報