Excel2000 VBA 日時ファイル名BOOK作成

Excel2000 VBA　日時ファイル名BOOK作成

Sub 日時ファイル名BOOK作成()
Dim newBook As Object
Dim myBook As String

myBook = Replace(Now, "/", "-")         '2011/05/28 9:00:00 → 2011-05-28 9:00:00
myBook = Replace(myBook, ":", "-")      '2011-05-28 9:00:00 → 2011-05-28 9-00-00 置換

Set newBook = Workbooks.Add
    With newBook
        .Title = myBook                     'プロパティ、ファイル概要のタイトル名
        .Subject = ""                       'サブタイトル
        .SaveAs Filename:=myBook & ".xls"   '2011-05-28 9-00-00.xls をカレントフォルダに作成
    End With
End Sub

 

タグ：Excel2000 VBA