I have tried the below query but not working as expected
Code:
Sub TxtFileToPDF(txtPathFile AsString, pdfPathFile AsString)
Workbooks.OpenText txtPathFile,xlMSDOS,1, xlFixedWidth,,,,,,,,,Array(0,1)
ActiveSheet.ExportAsFixedFormat xlTypePDF, pdfPathFile
ActiveWorkbook.Close
End Sub
Last edited by a moderator: