2016-08-23 4 views
0

내 마스터 통합 문서를 가져 오는 Macro이 있습니다 &은 다른 복사본으로 여러 복사본을 저장합니다. 하나의 통합 문서에 대한 부분의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") & "은 작동하지 않습니다 &는 나에게 컴파일 오류 팝업을 제공합니다.

매크로에 대한 지식이 제한되어 있으므로 도움을 받으실 수 있습니다!

편집 : ERROR it gives when I try to run macro

+0

는'소문자 시도 (날짜와 함께 '지금()'로 대체)을 사용하십시오 "& 이제 형식 ((),"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 Filename : = _ "T : \ Accounting \ Aspen 선금 (공유) \ _ Payroll 전자 메일 \ 098 급여 번들"& Application.Text (= RC [-1], "MM- DD 형식 : YYYY ") &"CREW & EXP.xlsx "_ , FileFormat : = xlOpenXMLWorkbook, CreateBackup : = False 그냥 구문 오류를 표시하고 텍스트의 해당 부분을 빨간색으로 바꿉니다. – SWinchester

+0

= RC를 해석 할 수 없습니다 [-1]. 동적 범위입니까, 아니면'sheetname.range ("A1")'으로 지정할 수 있습니까? – Rory

+0

또는 다른 방법으로 날짜를 변수로 저장하고이를 'Application.Text (yourDate, "MM-DD-YYYY")' – Rory