strpath

Hi All, I'm using this sub to create a PDF from an Excel's worksheet. It works really great! Now, after careful review of my posted code below, is it possible to create a DOCX in lieu of the PDF? I've tried to rearrange, modify, adjust, change this code to fit this DOCX creation, but I...

Hi All, I am having runtime error 2046 The Command or action RunSQL isn't available on the line with red font. Thanks for any help and insight. Sub UploadRelevantColumns() 'The path to create the new access database Dim StrPath As String 'An Access object Dim ObjAccess As Object...

Hi All, I am having runtime error 2046 The Command or action RunSQL isn't available on the line with red font. Thanks for any help and insight. Sub UploadRelevantColumns() 'The path to create the new access database Dim StrPath As String 'An Access object Dim ObjAccess As Object StrPath =...

Hi, I am trying to create pdf from excel workbook.but pdf will save with their own name..i have multiple sheet in a single workbook Example: sheet1-Jan sheet2-feb sheet3-march I wana to save all .pdf in same directory. jan.pdf feb.pdf march.pdf I am using this VBA code : Option Explicit Sub...

. Posted here as well : https://chandoo.org/forum/threads/folder-files-delete.39877/ I have a VBA email macro that first produce a PDF of a worksheet, creates a folder on the desktop named PDFs and saves the pdf of the worksheet there. After sending the email, with the pdf attachment, the code...

Dim wkbDest As Workbook Dim wkbSource As Workbook Set wkbDest = ThisWorkbook Dim LastRow As Long Dim strPath As String strPath = Range("G30").Value ChDir strPath Dim strExtension As String strExtension = ("*.xlsx") Do While strExtension <> "" Set...

Hi if some one could please help me add a signature or image to this code i would be very grateful. Sub twosaves() Sheets("Quote").Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _ filename:="C:\Users\James\Documents\Excel Test Folder\Quotes PDFs Test\" & _...

Hi everyone, i have created an email quote template, however i would like to add my business signature, or a picture of the signature to the end of the body of text. If anyone has any suggestions please assist. Thank you . Sub Send_RangeI() Dim strPath As String, strFName As String...

Afternoon all, I am running code that exports various tables and the like to a new word document. I then need to give the user the option to save this word file just like using the 'save-as' function in word. I have this up and running fine however I have two issues. Firstly if a file with the...

Hello dears i have an issue witch is i am using code to SaveAs a specific Cell Range to Specific Folder and it works good, but i need to save direct to the folder without SaveAs method please see the code below, thanks in advance 'DAIPHRAM SHEET PDFSub PDFActiveSheet() Dim wsA As Worksheet...

Hello I've been using the below the code to import numerous excel spreadsheets from a specific folder into an access table, however the spreadsheets are all now protected with the same password. Does any one know how I can define the password in this code, preferably without opening and...

Hi! I want to know if it is possible to password protect a pdf after converting from Excel based on the output of a cell. For example, cell B3 (with formula) is equal to Bar732, this value would be the password of the converted pdf. Right now i have the code below: Sub PDFActiveSheet()...

Hi All, Thanks for taking the time to look at my post! I am attempting to copy and paste data one by one from the range A4:A150 to cell M5. After each copy and paste, i would like the macro to save to PDF and then loop to the next cell from the range. At the moment my code works for the...

Hi All, Thanks in advance for your help. I am trying to copy cells from a data set in rows A4:A150 into cell M5 on a different sheet. After each copy, i want the code to print to PDF and save this as is. When this is complete, i am trying to get the code to loop down to the next cell (so...

Hi, I am using the following code to save the current worksheet as a PDF in the same folder as the spreadsheet is saved, with the filename according to cell B2. It works perfectly on my windows computer. I am wondering if someone could show me how to alter the code so that it would work on a...

Hi All, I am trying to export my charts from 1 sheet to pdf. I have a piece of code that does this well but only one chart at a time. Im looking to do Chart 41 and 42 all in the one document. Many thanks for the help in advance and here is the code i have so far. Sub PDFExport() Dim wsA As...

The attached a VBA code runs fine creates PDf, Clears sheet but at the end the Error Handler comes up "Could not Create PDF file" even though it has created one. When I close he Error window the Work sheet is not Protected. What can I do to fix This? Sub PDFActiveSheet() 'unprotect all sheets...

Hi All, I'm trying to add to this code below, where the code prompts the display: AND . Sub CreateWklyPDF() Dim wsA As Worksheet Dim wbA As Workbook Dim strTime As String Dim strName As String Dim strPath As String Dim strFile As String Dim strPathFile As String Dim myFile As Variant On...

Hi I am trying to write a macro to save selected worksheets from the workbook to individual pdfs. but I only got the macro to work to print all the worksheets from the workbook including summary tab and notes tab. I only want to print the tabs that are employee statements. Each individual tab...

Hello, I have 2 goals. 1) One macro to copy the most recent .xlsx files (based on saved date) from one directory to another, where I state the specific source and target paths 2) One macro that is similar to the one above, but allows me to state a saved date range in the code, find ALL .xlsx...