2016-08-23 13 views
0

私はMacroに私のマスターワークブックをとります&は異なるラベルの束をたくさん保存します。 1つのワークブックのためのセクションのExcelマクロSave.As日付

例:

Range("E1:G1").Select 
    ActiveCell.FormulaR1C1 = "099 Commercial" 
    ChDir "T:\Accounting\Aspen Pre-Payroll (Shared)\_Payroll Emails" 
    ActiveWindow.View = xlNormalView 
    ActiveWindow.Zoom = 50 
    ActiveWorkbook.SaveAs Filename:= _ 
     "T:\Accounting\Aspen Pre-Payroll (Shared)\_Payroll Emails\099 Payroll Bundle CREW & EXP.xlsx" _ 
     , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 

ので、マクロが保存した後、ラベルはそれが099 Payroll Bundle CREW & EXP のように見えます。しかし、私はそれが2016年8月23日は、日付されて099 Payroll Bundle 08-23-2016 CREW & EXP ようになりたいです特定のセルにある=RC[-1] しかし、通常は" & Format(Date, "MM-DD-YYYY") & " & " & Format(Now(), "MM-DD-YYYY") & "は動作しません&コンパイルエラーのポップアップが表示されます。

マクロについての私の知識は限られているので、どんな助力にも感謝します!

EDIT: ERROR it gives when I try to run macro

+0

は '小文字してみてください」とフォーマット(NOW()、 "MM-DD-YYYY" )& "とエラーを与えるコードを投稿してください – Slai

+0

私はそれを投稿することはできませんでしたので、私は編集として私の元の投稿の末尾にそれを追加しなければならなかった – SWinchester

+0

ああ私は参照してください..それは' &VBA.Format(Now()、 "mm-dd-yyyy")& " – Slai

答えて

0

は(あなたの日付と ')(現在は' 交換)Application.Textを使用してみてください

ActiveWorkbook.SaveAs Filename:= _ 
     "T:\Accounting\Aspen Pre-Payroll (Shared)\_Payroll Emails\099 Payroll Bundle" & Application.Text(Now(), "MM-DD-YYYY") & " CREW & EXP.xlsx" _ 
     , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 
+0

私はこれを使用しています:ActiveWorkbook.SaveAsファイル名:= _ "T:\ Accounting \ Aspen前払い(共有)\ _給与メール\ 098給与バンドル"&Application.Text(= RC [-1]、 "MM- "DD-YYYY")& "CREW&EXP.xlsx" _ 、FileFormat:= xlOpenXMLWorkbook、CreateBackup:=誤って構文エラーが発生し、テキストのその部分が赤くなります – SWinchester

+0

= RCを解釈することはできません[-1]。範囲が動的か、 'sheetname.range(" A1 ")'と指定できますか? – Rory

+0

あるいは、日付を変数として格納し、それを 'Application.Text(yourDate、" MM-DD-YYYY ")' – Rory