ExcelInputBoxの文字をファイル名にする

質問

こんにちは。

Excel2007を使用しています。

マクロであらかじめ読み込んだファイルに、InputBoxに日付を入力して
"20120723_Summary.xlsx"のように名前をつけたいのですが、
InputBoxに入力した文字をActiveWorkbookに渡す部分が書けません

Dim NewName As String
NewName = InputBox("名前を入力","","_Summary")

'ここで20120723_Summaryと入力する

ChDir "C:\Documents and Settings\$user$\デスクトップ"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\$user$\デスクトップ\20120723_Summary.xlsx", FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

デスクトップに20120723_Summary.xlsxが作成される

この部分の書き方がおわかりの方お教えください。
よろしくお願いいたします。

回答No.1

watabe007 · ベストアンサー

こんにちは
Excel2007が手元に無いので確認はしていませんが参考に

Dim NewName As String
Dim myPath As String

myPath = CreateObject("WScript.Shell").SpecialFolders("Desktop") & "\"
NewName = InputBox("名前を入力", "", Format(Now, "yyyymmdd") & "_Summary")
If NewName = "" Then Exit Sub
ActiveWorkbook.SaveAs Filename:=myPath & NewName & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False

お礼

回答ありがとうございます。
NOW関数まで入れていただき手間が省けました。
またパスの書き方も参考になりました