Konvertieren von mehreren Visio-Datei in PDF durch Excel VBA

Question

Ich habe Probleme mit diesem Code. Ziel dieses Codes ist es, alle Visio-Datei in Ordner von EXCEL VBA-Makro in PDF zu konvertieren ...

Mit diesem Code kann ich Visio-Datei öffnen, aber nicht in PDF-Datei konvertieren .... es "Objekt erforderlich" Fehler zeigt ....

FName = myPath & myFile 
    Dim objDoc: Set objeDoc = VisioApp.documents.Open(FName) 
objDoc.ExportAsFixedFormat VisFixedFormatTypes = 1, FName, VisDocExIntent = 1, VisPrintOutRange = 0 

ich bin vor Problem mit obigen Zeilen

Sub LoopAllExcelFilesInFolder() 

Dim wb As Workbook 
Dim myPath As String 
Dim myFile As String 
Dim myExtension As String 
Dim FldrPicker As FileDialog 
Dim FName As String 

'Optimize Macro Speed 
    Application.ScreenUpdating = False 
    Application.EnableEvents = False 
    Application.Calculation = xlCalculationManual 
'Retrieve Target Folder Path From User 
    Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) 
    With FldrPicker 
     .Title = "Select A Target Folder" 
     .AllowMultiSelect = False 
     If .Show <> -1 Then GoTo NextCode 
     myPath = .SelectedItems(1) & "\" 
    End With 
'In Case of Cancel 
NextCode: 
    myPath = myPath 
    If myPath = "" Then GoTo ResetSettings 
'Target File Extension (must include wildcard "*") 
    myExtension = "*.vsd" 
'Target Path with Ending Extention 
    myFile = Dir(myPath & myExtension) 
'Loop through each Excel file in folder 

    Do While myFile <> "" 


    Set VisioApp = CreateObject("Visio.Application") 
    FName = myPath & myFile 
    Dim objDoc: Set objeDoc = VisioApp.documents.Open(FName) 

    'Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "C:\Users\20098323\Desktop\BHAVIK\VAC-30001.pdf", visDocExIntentPrint, visPrintAll, 1, 53, False, True, True, True, False 
objDoc.ExportAsFixedFormat VisFixedFormatTypes = 1, FName, VisDocExIntent = 1, VisPrintOutRange = 0 
     myFile = Dir 
    Loop 
'Message Box when tasks are completed 
    MsgBox "Task Complete!" 
ResetSettings: 
    'Reset Macro Optimization Settings 
    Application.EnableEvents = True 
    Application.Calculation = xlCalculationAutomatic 
    Application.ScreenUpdating = True 
End Sub 

Answer 1

Set VisioApp = CreateObject("Visio.Application") 
FName = myPath & myFile 
VisioApp.documents.Open FName 
Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, _ 
      FName, visDocExIntentPrint, visPrintAll, _ 
      1, 53, False, True, True, True, False 

Hier erstellen Sie eine Instanz von Visio VisioApp, aber in der letzten Zeile verwenden Sie Application - dies bezieht sich standardmäßig auf Excel, wo der Code ausgeführt wird, nicht auf Visio. Sie müssen das durch VisioApp ersetzen.

Sie verwenden auch bestimmte Konstanten, die von der Visio-Objektbibliothek definiert sind (visFixedformatPDF usw.). Excel VBA kennt nicht die Werte dieser Konstanten, so können Sie eine tun:

1. einen Verweis hinzufügen in Ihrem Excel VBProject auf die Visio-Objektbibliothek
2. Ersetzen Sie die Konstanten mit ihren numerischen Werten (die Sie (können Sie im Visio VBE-Objektbrowser nachsehen)

3. Definieren Sie die Konstanten und deren Werte oben in Ihrem Excel VBA-Code. ZB:

   Konst visFixedFormatPDF = 1