Save to specific location as cell name

**Jabba** · 10-14-2009, 11:53 AM

Hi all,

I've been searching for ages trying to work out how to do this but have so far only managed to confuse myself.
I have office 2007 and I have found some code to convert an excel sheet to PDF, however I need it to saveas the contents of cell (e6) and save to a location on our network drives (C:\TEMP\).

Code:

Sub Macro1()
'
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+Shift+L
'
Sheets(Array("Report")).Select
Sheets("Report").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\TEMP\Book1.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

Your help will be most appreciated.

**sweep** · 10-14-2009, 12:03 PM

Hi,

Try this:

Code:

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\temp\" & Range("E6").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=True

**Jabba** · 10-15-2009, 07:05 AM

Thanks Dave, that worked perfectly.

**avoird000** · 06-19-2010, 06:22 PM

Sub pdfsave()

pdfname = Range("P4").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub

**avoird000** · 06-19-2010, 06:26 PM

I am looking for a macro to saved to a specific folder on my computer as a PDF file (c:\My Documents/PDF) and automatically named based on cell content. Excel 2007

This coding below works, but I want to add that it automatically saves to a specific folder on my computer.

Is it possible to save to PDF and .xls in the same macro?

Sub pdfsave()

pdfname = Range("P4").Value

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdfname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub