VBA, чтобы открыть файл экспортированный файл Excel в PDF XChange Viewer

Question

Привет, ребята, я новичок в кодировании, но мне как-то (хаха) удалось экспортировать свой Excel в PDF. Теперь у меня возникают трудности при попытке автоматически открыть PDF в PDF XChange Viewer вместо Adobe Reader.

Вот мои коды:

Sub Export()
Dim wsA As Worksheet
Dim wsB As Workbook
Dim strPath As String
Dim myFile As Variant

Set wbA = ActiveWorkbook
Set wsA = ActiveWorksheey

strPath = wbA.Path
If strPath = "" Then
strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"

myFile = Application.GetSaveAsFilename _
(FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Select Folder and FileName to save")

If myFile <> "False" Then
wsa.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard,_
IncludeDocProperties:=True,_
IgnorePrintAreas:=False,_
OpenAfterPublish:=True

End If
End Sub

Отказ от ответственности Я скопировал коды откуда-то в Интернете, потому что я хотел, чтобы пользователи могли дать имя файлу, выбрать, где они сохранят его.

Что я должен сделать, чтобы открыть PDF в PDFXChange Viewer. Каталог: C: \ Program Files \ Программное обеспечение для отслеживания \ PDF Viewer

Answer 1

Открыть PDF в PDFXCview

Ниже приведен пример вызова приложения с использованием Shell. Вам нужно будет указать путь / имя файла вашего PDF, и вам может потребоваться подтвердить местоположение PDFXCview.exe на вашем компьютере.

Sub OpenPDF_test()
    Const XCviewPath = "C:\Program Files\Tracker Software\PDF Editor\PDFXCview.exe"
    Const pdfFileName = "C:\myPath\myPDFfileName.pdf"
    Debug.Print XCviewPath & " """ & pdfFileName & """"
End Sub

---

PDFXCview.exe Параметры командной строки

Вы также можете добавить параметры командной строки, если хотите автоматизировать более сложные задачи.

Например, , вы можете получить это:

• автоматически распечатывает и затем закрывает файл,
• скрыть пользовательский интерфейс,
• импорт сохраненных настроек,
• или даже запустить пользовательский JavaScript .

---

Переключатели командной строки

/A "param=value [&param2=value [&...]"
/close[:save|discard|ask]
/print[:[default=yes|no][&showui=yes|no][&printer=<printername>][&pages=<pagesrange>]]
/printto[:[default=yes|no][&showui=yes|no][&pages=<pagesrange>]] <printername>
/exportp <setting_file_name>
/importp <setting_file_name>
/RegServer
/UnregServer
/usep <setting_file_name>

Дополнительная информация Здесь .

Answer 2

Как вы уже упоминали, вам уже удалось экспортировать в PDF, поэтому попробуйте следующий код, чтобы открыть файл PDF в Adobe Reader. В случае PDF XChange Viewer укажите XChange Viewer путь к файлу exe в коде.

Sub OpenPDFbyAdobeReader()
    Dim exePath, filePath As String
    Dim OpenFile

    exePath = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"
    filePath = "E:\CyberArk\DNA_Datasheet.pdf"
    openPath = exePath & " " & filePath

    OpenFile = Shell(openPath, vbNormalFocus)
End Sub

Редактировать

Sub для сохранения в формате pdf, затем открыть в программе.

Sub Export()
Dim wsA As Worksheet
Dim wsB As Workbook
Dim strPath As String
Dim myFile As Variant
Dim appPath As String
Dim OpenFile

    Set wbA = ActiveWorkbook
    Set wsA = ActiveWorkbook.ActiveSheet

    appPath = "C:\Program Files (x86)\Adobe\Reader 11.0\Reader\AcroRd32.exe"

    strPath = wbA.Path
    If strPath = "" Then
        strPath = Application.DefaultFilePath
    End If
        strPath = strPath & "\"

        myFile = Application.GetSaveAsFilename _
        (FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")

        If myFile <> "False" Then
            wsA.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=myFile, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

            OpenFile = Shell(appPath & " " & myFile, vbNormalFocus)
        End If
End Sub

Вы должны заменить appPath на путь просмотра XChange.