A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
ファイル名を保存日時にしてしまうっていうのはどうでしょうか?
Sub Macro1()
Dim フォルダー As String, 年 As Integer, 月 As String, 日 As String
Dim 時 As String, 分 As String, ファイル名 As String
フォルダー = Application.DefaultFilePath
年 = Mid(Year(Now()), 1, 4)
月 = Month(Now())
日 = Day(Now())
時 = Hour(Now())
分 = Minute(Now())
ファイル名 = 年 & "年" & 月 & "月" & 日 & "日" & 時 & "_" & 分
ActiveWorkbook.SaveAs FileName:=フォルダー & "\" & ファイル名
MsgBox "ファイル名を最終更新日 " & ファイル名 & " で保存しました。"
End Sub
No.1
- 回答日時:
>EXCELにて、保存した日時を自動的に表示させるには?
の意味は、あるExcel Bookを開いていて、そのBookを保存した日時を、そのシート上に表示するという意味ですよね?
最初は、
= FileDateTime(ThisWorkbook.Path & "\" & ThisWorkbook.Name)
で簡単に出ると思ったのですが、Book自身のFileDateTimeを見に行くとそれを呼び出した時刻が帰ってくるようです。
他のファイルなら保存した時刻なんですが・・・・・???
そこで、次のようにしてみました。
Auto_Openにしているのは、Application.Volatileが効かないみたいで再計算してくれないからです。
ユーザー定義関数ではThisWorkbookの組込プロパティーを使っています。『Last save time』の番号が分からない(決まってる?)ので回りくどいですが、照合しています。
例としてセルA1に表示します。開いている時に保存したら、ファンクションキーF9で再計算させます。
他の回答を見たいですね・・・・・・
標準モジュールに貼り付けます。
Sub Auto_Open()
Range("A1").Formula = "= GetHozonYMD()"
End Sub
Public Function GetHozonYMD()
Dim idx
Dim ThisWkBookYMD As String
Application.Volatile
With ThisWorkbook.BuiltinDocumentProperties
For idx = 1 To .Count
With .Item(idx)
If .Name = "Last save time" Then
ThisWkBookYMD = .Value
End If
End With
Next
End With
GetHozonYMD = Format(ThisWkBookYMD, "yyyy/mm/dd h:mm:ss")
End Function
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
microsoft print to pdf 保存先
-
gif形式の動く画像の保存方法
-
iPadのWordで作成したものを画...
-
保存フォルダが指定できません...
-
右クリックで保存できない
-
Snipping Toolの保存名自動変更...
-
マウスは動くがクリックできない
-
キャンセル処理の方法が分かり...
-
ホームページが丸ごと保存でき...
-
GOMプレイヤーで画面のキャプチ...
-
壁紙の保存について
-
「実行」または「保存」どちら...
-
google driveでプレビューでき...
-
無修正を見るだけで違法なので...
-
JPEG PNG サポートされていない...
-
Macで複数のmp3を結合する方法...
-
OpenOfficeで開かないようにす...
-
請求書のpdfってギガファイル便...
-
ファイルの探し方 教えてください
-
Terapadで該当ファイルが開けない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
microsoft print to pdf 保存先
-
gif形式の動く画像の保存方法
-
iPadのWordで作成したものを画...
-
Snipping Toolの保存名自動変更...
-
「名前を付けて画像を保存」先...
-
googleフォトからPCへ保存
-
デフラグが遅い
-
保存フォルダが指定できません...
-
Facebook Messengerで、相手が...
-
壁紙フォルダが表示されない
-
PrintScreenを押したときの画像...
-
ダウンローダーで曲が保存出来...
-
ダイレクトにデスクトップに落...
-
CSVが保存ダイアログでHTMLになる
-
インターネットで見つけた料理...
-
保存していないメモ帳のありか
-
Windowsデスクトップガジェット...
-
キャンセル処理の方法が分かり...
-
ホームページが丸ごと保存でき...
-
vistaで「画像を保存」にしても...
おすすめ情報