Salvare file di testo in PDF

[thunderPartecipante thunder]

Ciao,

 

ho dei normalissimi file di testo (.txt)dentro una cartella. Vorrei creare una  macro che mi permetta di salvare questi file in formato pdf possibilmente decidendone il formato (ad esempio A0).

[patelModeratore patel Karma: 51 pts]

Perché utilizzare excel per questo lavoro ? basta stampare i file su stampante virttuale pdf

[thunderPartecipante thunder]

devo fare poi altre operazioni da excel...vorrei evitare se possibile, di eseguire il comando  in manuale..

[patelModeratore patel Karma: 51 pts]

solo a titolo di test, così andrebbe bene ?

Sub LeggiTextFileStampa()
folderPath = "F:\Download\"
FileName = "prima.txt"
    sn = Split(CreateObject("scripting.filesystemobject").opentextfile(folderPath & FileName).readall, vbCrLf)
    For j = 0 To UBound(sn)
        sp = Split(sn(j), vbCrLf)
        u = UBound(sp)
        If u < = 0 Then u = 0
        Cells(j + 1, 1).Resize(u + 1) = sp
    Next
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
    "F:\download\copia.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    True
End Sub

[thunderPartecipante thunder]

Ciao!

 

Si funziona! se non ho compreso  male il codice apre il file di testo sul foglio attivo e poi salva quest'ultimo in pdf. Ottima idea, grazie

[patelModeratore patel Karma: 51 pts]

per processare tutti i file

Sub LeggiTextFileStampa()
folderPath = "F:\Download\"
Filename = Dir(folderPath & "*.txt")
Do While Filename <> ""
    Cells.ClearContents
    sn = Split(CreateObject("scripting.filesystemobject").opentextfile(folderPath & Filename).readall, vbCrLf)
    For j = 0 To UBound(sn)
        sp = Split(sn(j), vbCrLf)
        u = UBound(sp)
        If u < = 0 Then u = 0
        Cells(j + 1, 1).Resize(u + 1) = sp
    Next
    pdffile = folderPath & Filename & ".pdf"
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    pdffile, Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
    False
    Filename = Dir
Loop
   
End Sub

[Autore]

Articoli