마지막 단계에서 멈춤 (Sendkeys를 사용하여 파일로 자동 저장) msExcel 2003

Question

PDF 파일을 자동으로 만들려고합니다 (엑셀 파일 내의 버튼을 클릭하는 것 외에는 사용자 인터페이스없이) . 나는 아래 코드를 사용하여 모든 것을 올바르게 얻었지만 자동 생성 된 이름으로 파일을 저장할 때 코드가 사용자를 멈춘 것처럼 보이고 코드에서 자동으로 파일을 가져 오는 대신 파일 이름을 입력하라는 메시지를 표시합니다.). 나는 sendkeys가 나를 위해 운동하지 않는다는 느낌이 들었다. 누구든지 빨리 살펴볼 수 있습니까?

감사 macutan

Sub PrinttoPDFTest()

ActiveSheet.PageSetup.PrintArea = "$A$1:$F$17" 
With ActiveSheet.PageSetup 
    .PrintTitleRows = "" 
    .PrintTitleColumns = "" 
End With 
ActiveSheet.PageSetup.PrintArea = "$A$1:$F$17" 
With ActiveSheet.PageSetup 
    .Orientation = xlLandscape 
    .FitToPagesWide = 1 
    .FitToPagesTall = 1 
End With 

ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:="Adobe PDF on Ne04:", Collate:=True 

newHour = Hour(Now()) 
newMinute = Minute(Now()) 
newSecond = Second(Now()) + 5 
waitTime = TimeSerial(newHour, newMinute, newSecond) 
Application.Wait waitTime 

Filename = "C:\Temp\PDF\" & ActiveSheet.Range("DateSerial").Value & ".pdf" 

SendKeys Filename & "{Enter}", False 

End Sub 

Answer 1

여기 찾아 보게한다 : Ozgrid Print to PDF

Answer 2

오히려 .PrintOut보다 .ExportAsFixedFormat를 사용하는 간단하고, 당신의 요청을 쌓을 것을 (지연 코드가 필요하지 않습니다) :

Sub ExporttoPDF() 

    Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, "C:\Folder\Filename1.pdf" 
    Sheets("Sheet2").ExportAsFixedFormat xlTypePDF, "C:\Folder\Filename2.pdf" 

End Sub 

대상 및 파일 이름을 바꿔서이 대구 전자는 잘 작동해야합니다.

Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, "C:\Folder\" & Range("P10").Value & ".pdf" 

을 또는 변수에 파일 이름을 저장하고이 방법을 수행합니다 : 당신은 파일 이름의 한 부분으로 시트의 값을 사용하려는 경우, 당신은 다음과 같이 (&)를 연결할 수 있습니다

dim filename as string 

filename = Range("P10").Value 

Sheets("Sheet1").ExportAsFixedFormat xlTypePDF, filename 

을

그리고 그것은 계속적으로 간다 ...