Вызов Workbook.Path для сохранения PDF - PullRequest
Новая
       11

Вызов Workbook.Path для сохранения PDF

0 голосов
/ 20 апреля 2020

Я установил Dim NewPDFFile в качестве строки, однако он не выводит pu sh и вызывает путь «NewPDFFile», который необходимо вставить в диалоговое окно перед сохранением.

Sub FillWorkshopPDFForm () Dim PDFTemplateFile As String, NewPDFFile As String, SavePDFFolder As String, StudentName As String Dim Subj As String, Mesg As String, EmailAdd As String Dim StudentRow As Long, LastRow As Long Dim OutApp As Object, OutMail As Object

If Sheet1 .Range ("E5"). Значение = пусто, затем MsgBox ". Выберите шаблон PDF для использования" SetPDFTemplate, если Sheet1.Range ("E5"). Значение = пусто, затем выйдите из вспомогательного конца, если PDFTemplateFile = Sheet1.Range ("E5" ) .Value 'Имя файла шаблона 

With Sheet2
LastRow = .Range("A9999").End(xlUp).Row  'Last Student Row
ThisWorkbook.FollowHyperlink PDFTemplateFile
Application.Wait Now + 0.00002

For StudentRow = 3 To LastRow
    If .Range("H" & StudentRow).Value = Empty Then
        StudentName = .Range("A" & StudentRow).Value  'Student Name
        EmailAdd = .Range("F" & StudentRow).Value 'Email Address
        Subj = Replace(Sheet1.Range("E7").Value, "#Name#", StudentName) 'Email Subject
        Mesg = Replace(Sheet1.Range("E9").Value, "#Name#", StudentName) 'Email Message
        NewPDFFile = ThisWorkbook.Path & "\" & StudentName & "_Enrollment.pdf" 'New File Name
        If Dir(NewPDFFile, vbDirectory) <> "" Then Kill (NewPDFFile) 'Deleted File if exists

        'Clear Form
        Application.Wait Now + 0.00001
        Application.SendKeys "%"
        Application.Wait Now + 0.00001
        Application.SendKeys "M"
        Application.Wait Now + 0.00001
        Application.SendKeys "F"
        Application.Wait Now + 0.00001

        'Add fields
        Application.SendKeys "{Tab}", True
        Application.SendKeys StudentName, True
        Application.Wait Now + 0.00001
        Application.SendKeys "{Tab}", True
        Application.SendKeys EmailAdd, True
        Application.Wait Now + 0.00001
        Application.SendKeys "{Tab}", True
        Application.SendKeys Format(.Range("G" & StudentRow).Value, "###-###-####"), True 'Phone #
        Application.Wait Now + 0.00001
        Application.SendKeys "+^(s)", True
        Application.Wait Now + 0.00001
        Application.SendKeys "^~", True
        Application.Wait Now + 0.00001


        Application.SendKeys NewPDFFile, True
        Application.Wait Now + 0.00002

enter image description here

...