No.1ベストアンサー
- 回答日時:
マクロではなく、VBAになりますが、
例えば、2005年5月1日だったら、「20050501.xls」という、ファイル名にして保存することでよろしければ、次のようにすれば出来ます。
Sub 日付のファイル名()
Dim a, b, c As String
a = Application.WorksheetFunction.Text(Date, "yyyymmdd")
b = "C:$"
c = b & a & ".xls"
ThisWorkbook.SaveAs (b)
End Sub
b は、実際に保存しようとする、フォルダー名を入れて下さい。
もし、2005年5月1日を「050501.xls」と、する場合は、 (Date, "yyyymmdd")を (Date, "yymmdd") とすれば、出来ます。
No.4
- 回答日時:
私は、サブルーチンも置かずに、一本で書いてしまったので、本当に汚いコードで自信がないけれど、1つの例として出しておきますね。
これは、できれば、Personal.xls の標準モジュールで、ツールボタン登録がよいのではないかなって思いました。Sub SaveWithTimeStamp()
Dim fName As String
Dim dFilePath As String
Dim myPath As String
Dim ans As Integer, rtn As String
dFilePath = Application.DefaultFilePath & "\"
fName = Format$(Date, "yymmdd")
myPath = dFilePath & fName & ".xls"
If Dir(myPath) = "" Then
ActiveWorkbook.SaveAs fName
Else
ans = MsgBox(fName & " と同名のファイルがすでにあります." & Chr(13) & _
"上書きしますか?", vbYesNoCancel)
If ans = vbYes Then
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs myPath
Application.DisplayAlerts = True
ElseIf ans = vbNo Then
fName = Application.InputBox("名前を変更してください." & Chr(13) _
& fName & ".xls", , fName, , , , , 2)
If rtn <> "False" Then
If InStr(fName, ".xls") = 0 Then fName = fName & ".xls"
myPath = dFilePath & fName
If Dir(myPath) = "" Then
ActiveWorkbook.SaveAs myPath
Else
MsgBox fName & "が、同じフォルダにありますので、1度フォルダを調べてください.", 64
Exit Sub
End If
Else
Exit Sub
End If
Else
Exit Sub
End If
End If
End Sub
No.2
- 回答日時:
マクロで
ActiveWorkbook.SaveAs Filename:="C:\My Documents\a.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
"C:\My Documents\a.xls”のところに所要のパスとファイル名を入れれば
okです。
通常の操作で出きることであれば、マクロ記録の機能を使うと、
わざわざ解りにくい解説書を読まなくてもマクロはつくれますよ。
逆に、マクロ記録で作っておいて後で解説書を見ながら蛇足な部分を削除する。
という方法を私は実行していますが...(参考までに)
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 3 2023/02/22 08:53
- PowerPoint(パワーポイント) エクセルのマクロについて教えてください。 1 2022/03/25 17:03
- Excel(エクセル) Excelのマクロについてご教授ください 2 2023/02/25 09:43
- Visual Basic(VBA) エクセルのマクロについて教えてください。 7 2023/07/04 09:18
- Excel(エクセル) Excelのマクロコードについて教えてください。 1 2022/03/27 10:47
- Excel(エクセル) PDFファイルに日付を名前にして保存したい。 エクセル2019でワークシートに請求書のフォームを作り 2 2023/05/27 11:13
- Excel(エクセル) エクセルのマクロについて教えてください。 1 2023/02/03 13:18
- Excel(エクセル) 【VBAファイル移動】2つのマクロを順に実行。1つ目のマクロが実行不可⇒2つ目が実行不可となる件 2 2022/07/29 12:17
- Word(ワード) office 2021へ自分用のクイックアクセスとマクロをコピーしたい 2 2023/03/11 21:15
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/07/10 09:06
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
日付を入力したセルをファイル名にして保存するには
Excel(エクセル)
-
エクセルファイル名に更新日時を入れたいです。
Excel(エクセル)
-
ファイル名を今日の日付、時刻で保存する
Visual Basic(VBA)
-
-
4
エクセル マクロ 名前を付けて保存 PDF保存先指定 ファイル名任意+日付
Excel(エクセル)
-
5
エクセルをPDFで保存し、ファイル名はA1セルを参照するVBAの記述を教えてください。
Excel(エクセル)
-
6
Excel にて条件付き書式の色にさらに上塗りをしたいです。
Excel(エクセル)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
VBscriptが起動しない?
Microsoft ASP
-
9
セルの値を使ってファイルを保存
Excel(エクセル)
-
10
名前をつけて保存した後、元のファイルに戻るには
その他(コンピューター・テクノロジー)
-
11
マクロボタンを押すと、ファイル名を“日付(年月日)_文字.xlsx”にして指定ファイルに保存したいの
Excel(エクセル)
-
12
エクセルのVBAで日付を検索し転機したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
excelファイルに使われているVB...
-
マクロエクセルのブロック解除
-
Excelが勝手にシート移動してし...
-
EXCEL マクロ クリップボードク...
-
秀丸で保存時のフォルダを固定...
-
エクセル終了時の保存確認メッ...
-
エクセルファイルを自身のファ...
-
VBA マクロ実行時エラー’1004Ra...
-
Excelマクロ ファイル名が変わ...
-
マクロでマクロを削除する
-
コピーしたファイルのマクロを...
-
別のパソコンでエクセルのマク...
-
EXCEL VBAで声を出すマクロ
-
Excel2010 PERSONAL.xlsbの挙動...
-
アクセスでファイルを開いたと...
-
VBAを一度起動するとずっと出て...
-
エクセルでマクロを別のPCで利...
-
excelのマクロ実行でブロックさ...
-
エクセル2013vbaで、見えない名...
-
excelでpersonal.xlsを常に開く...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセル終了時の保存確認メッ...
-
excelファイルに使われているVB...
-
VBA マクロ実行時エラー’1004Ra...
-
コピーしたファイルのマクロを...
-
昨日まで動いていたエクセルの...
-
別のパソコンでエクセルのマク...
-
VBAを一度起動するとずっと出て...
-
マクロを消すマクロは不可能?
-
エクセルファイルを自身のファ...
-
アクセスでファイルを開いたと...
-
EXCEL マクロ クリップボードク...
-
Excelが勝手にシート移動してし...
-
Excelマクロ ファイル名が変わ...
-
excelが別プロセスで起動してし...
-
Excel2010 PERSONAL.xlsbの挙動...
-
エクセルマクロを有効にしない...
-
エクセル2013vbaで、見えない名...
-
エクセルマクロにてパワーポイ...
-
【マクロ】アクティブセルの行...
-
excelのマクロ実行でブロックさ...
おすすめ情報