Xml To Pdf

[zamansal2]

Merhabalar
bana toplu olarak Xml formatındaki faturaları pdf çevirecek bir program arıyorum
bilgisi olan veya daha önce yapan varmı?

 

[catalinastrap]

Aşağıdaki kod işinize yaraya bilir
dosya yollarını kendinize göre uyarlayın .kalın harf ve altı çizili olarak işaretlediğim yerler

Sub ConvertXMLtoPDF()
Dim xmlFolderPath As String
Dim xmlFile As String
Dim wordApp As Object
Dim wordDoc As Object
Dim pdfFolderPath As String

' XML dosyalarının bulunduğu klasör yolu
xmlFolderPath = "C:\XMLFolderPath\" ' Buraya XML dosyalarının bulunduğu klasör yolunu yazın
pdfFolderPath = "C:\PDFFolderPath\" ' Buraya kaydedilecek PDF dosyalarının yolunu yazın


On Error Resume Next
Set wordApp = CreateObject("Word.Application")
On Error GoTo 0

If wordApp Is Nothing Then
MsgBox "Microsoft Word yüklenmemiş veya bulunamadı.", vbExclamation
Exit Sub
End If

wordApp.Visible = False

xmlFile = Dir(xmlFolderPath & "*.xml")

Do While xmlFile <> ""
Set wordDoc = wordApp.Documents.Open(xmlFolderPath & xmlFile)


Dim fileNameWithoutExt As String
fileNameWithoutExt = Left(xmlFile, InStr(xmlFile, ".") - 1)


wordDoc.ExportAsFixedFormat OutputFileName:=pdfFolderPath & fileNameWithoutExt & ".pdf", ExportFormat:=17


wordDoc.Close False
xmlFile = Dir
Loop


wordApp.Quit
Set wordDoc = Nothing
Set wordApp = Nothing

MsgBox "Tüm .xml dosyaları PDF'e dönüştürüldü.", vbInformation

End Sub