Solved

In VBA, create workbook name with ".pdf" as a default name

Posted on 2014-10-01
2
202 Views
Last Modified: 2014-10-01
I'm using the following codes to create a pdf file from xlsm file, but I got this shown up in the default name window - "CNS WC KE Tool Updated 9-29-14.xlsm20141001_1026.pdf".  How can I remove ".xlsm" from the default name window?  Thanks.

strFile = Replace(Replace(ws.Name, " ", ""), ".", "_") _
            & "_" _
            & ActiveWorkbook.FullName _
            & Format(Now(), "yyyymmdd\_hhmm") _
            & ".pdf"
   
FolderName = "C:\Users\" & User_Name & "\Desktop\"
strFile = FolderName & strFile

myFile = Application.GetSaveAsFilename _
    (InitialFileName:=strFile, _
        FileFilter:="PDF Files (*.pdf), *.pdf", _
        Title:="Select Folder and FileName to save")
0
Comment
Question by:jjxia2001
2 Comments
 
LVL 24

Accepted Solution

by:
Phillip Burton earned 500 total points
ID: 40354869
Change the third line, ActiveWorkbook.FullName, to

Replace(ActiveWorkbook.FullName,".xlsm","") 

Open in new window

0
 

Author Closing Comment

by:jjxia2001
ID: 40354928
Thanks!
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
Excel Formula 5 45
Excel - Data Validation 3 28
Excel Cell Total 3 20
how to import result to CVS from sql server management studio without comma 2 18
INDEX and MATCH can be used to great effect to replace HLOOKUP and VLOOKUP as it does not have the limitation of needing the data to be sorted so that the reference value is in the first column or row. It also has the ability to perform a bi-directi…
Introduction This Article briefly covers methods of calculating the NPV and IRR variants in Excel as well as the limitations in calculating and interpreting IRR results. Paraphrasing Richard Shockley, author of my favourite finance reference tex…
This Micro Tutorial demonstrates how to create Excel charts: column, area, line, bar, and scatter charts. Formatting tips are provided as well.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

773 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question