webdevqa.jp.net

ExcelでVBAを使用してファイル名に日付と時刻を追加する方法

この投稿 のSiddharth Routに感謝します。私は、シートを新しいワークシートに保存する方法を学びました。今私の質問は、次のようにファイル作成の日付と時刻を追加する方法です。

TestSheet_25May2013_5pm.xls

Sub SaveSheet()
    Dim FName As String

    ActiveSheet.Copy
    With ActiveSheet.UsedRange
        .Copy
        .PasteSpecial xlValues
        .PasteSpecial xlFormats
    End With
    Application.CutCopyMode = False


    FName = "C:\Users\somebody\Documents\TestSheet" & Format(Range("E19"), "mmm-d-yyyy") & ".xlsm"
    ActiveWorkbook.SaveAs Filename:=FName, _
                          FileFormat:=xlOpenXMLWorkbookMacroEnabled



End Sub

これを行う方法を教えていただけますか?

3
Behseini

私は以下がうまく機能していますが、順序を逆にしたいです。最初にファイル名、次に日付と時刻。これまでのところ、方法を見つけていません。

Sub SaveToLocations()
' Saves active file to current plus two other backup locations, appends system date and time in front of file name in backup locations.

    Dim datim As String
    datim = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss_")

    ActiveWorkbook.SaveCopyAs "I:\FilesBackup\" & datim & ActiveWorkbook.Name
    ActiveWorkbook.SaveCopyAs "E:\CS Docs\FilesBackupCS\" & datim & ActiveWorkbook.Name
    ActiveWorkbook.Save
End Sub
1
Mike