Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Get Filename without the extension
I have a macro that saves a workbook in .xlsm format and then as a .pdf in
the same folder. My problem is the file name for the .pdf file. If the excel file is named abc.xlsm, then the pdf file is saved as abc.xlsm.pdf. I need to get just "abc" for the filename for the pdf. Below is my code. I know that specifying the Filename as ActiveWorkbook.Name is my problem, i just don't know how to fix it. Sub SaveAsPDFandXLS(control As IRibbonControl) ans = Application.GetSaveAsFilename _ ("S:\Shared\CORRESPONDENCE\" & ActiveWorkbook.Name, _ fileFilter:="Excel Macro-Enabled Workbook (*.xlsm), *.xlsm") ActiveWorkbook.SaveAs ans ActiveSheet.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=ActiveWorkbook.Name, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub Thanks, Larry |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how to insert filename in header without file extension | Excel Discussion (Misc queries) | |||
SaveAs Filename:=filename, FileFormat:=xlCSV | Excel Programming | |||
Converting a Variable Filename to a Constant Filename | Excel Programming | |||
Getting only the filename with no extension | Excel Worksheet Functions | |||
Transformation d'images avec une extension .jpg ou .jpeg en images avec extension .bmp ou .ico | Excel Discussion (Misc queries) |