3

私はVBに非常に慣れていないので、このサイトを見つけて感謝しています!

自分の質問に対して自動提案された同様の Q&A リンクをすべて検索して確認しましたが、探していたものを正確に見つけることができませんでした (おそらく、自分が見ているものを理解していなかったためです... ;-)。

Siddharth Routが回答した、別のユーザーの質問からこの Excel マクロを使用しました。

現在の日付を保存するマクロ

Sub Save()
    Dim FilePath As String
    Dim NewName As String

    FilePath = "X:\": NewName = FilePath & "file" & Format(Date, "MM-DD-YYYY") & ".xlsm"

    ActiveWorkbook.SaveAs Filename:=NewName, FileFormat _
    :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

ファイルに「ファイル」（または引用符に挿入したもの）という名前を付けたい場合、これは完全に機能します。

しかし、現在の日付がファイルの既存のパスとファイル名に追加されるように、開いているファイルで機能するようにこのマクロを編集するにはどうすればよいでしょうか?

よろしくお願いします。

アンディ

4

1 に答える 1

3 
dim last_dot as long
last_dot = InStrRev(ActiveWorkbook.FullName, ".")

dim NewName as string
NewName = Left$(ActiveWorkbook.FullName, last_dot - 1) & Format$(Date, "MM-DD-YYYY") & Mid$(ActiveWorkbook.FullName, last_dot)
于 2013-05-03T17:07:00.913 に答える