Private Sub Merge_PDFs(PDFfolder As String)ĭim inputPDFs As String, outputPDF As String Wbk.ExportAsFixedFormat Type:=xlTypePDF, Filename:=destPath & PDFfile Set Wbk = Workbooks.Open(Filename:=sourcePath & file) Set FD = Application.FileDialog(msoFileDialogFolderPicker) XWbk.ExportAsFixedFormat Type:=xlTypePDF, FileName:=xRPath & xbwname & ".pdf"ĭim sourcePath As String, destPath As String Xbwname = Replace(xStrFile1, ".xlsm", "_pdf") Xbwname = Replace(xStrFile1, ".xlsx", "_pdf") Xbwname = Replace(xStrFile1, ".XLS", "_pdf") Xbwname = Replace(xStrFile1, ".xls", "_pdf") Set xWbk = Workbooks.Open(FileName:=StrPath & xStrFile1) Title = "Please select a destination folder to save the converted files:" Set xRFD = Application.FileDialog(msoFileDialogFolderPicker)
#Pdftk combine pdfs pdf#
Title = "Please select the folder contains the Excel files you want to convert:" 1) Split the pages of each pdf back into seperate files for each page such that one folder contains all odd pages as seperated files and a different folder contains all even pages. Set xSFD = Application.FileDialog(msoFileDialogFolderPicker)
#Pdftk combine pdfs code#
The code I'm using to export excel files as pdf: MsgBox "PDF files merged to folder: " & r If Dir "" Then 'at least 2 pdfs files exist 'Need 2 pdfs to merge or pdfill slows and may error 'Merge pdfs in subfolders, save merged file in r folder with subfolder's name.pdf. Set fso = CreateObject("Scripting.FileSystemObject")į = Split(CreateObject("Wscript.Shell").Exec("cmd /c dir " & _ 'Make a new folder in p2 to store this run's merged pdf files. If Dir(p2, vbDirectory) = "" Then MkDir p2 'Folder to copy merged pdfs in subfolders to, p2 initional, and r actual. P = "C:\Users\lenovo1\Dropbox\_Excel\pdf\Acrobat\" For example: pdftk file1.pdf file2.pdf cat output mergedfile. To use the command line, you must add cat output among the original PDFs, and the filename for the new PDF file merged. I think this could work just like I need if I input path2 inside pdftkMergeĭim p2 As String, r As String, fso As Object PDFtk: Merge PDF Files The PDF Tool kit has graphical and paid options, but you can do merge without any problem. I have a main routine that makes individual pdf files out of multiple excel files, into a subfolder. How can i use this routine, but calling it inside another routine (let's say main routine) and imputing the folder path, where the pdfs are, from the main routine. I've been searching for something like this, but just for one subfolder. Pdftk is a simple tool for doing everyday things with PDF documents. I 'm trying to create something like this thread Append to pdf VBA I know little of this, wondering if someone could help me.
0 kommentar(er)
