Save to specific location as cell name

[Jabba]

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\).

Please Login or Register  to view this content.

Your help will be most appreciated.

[sweep]

Hi,

Try this:

Please Login or Register  to view this content.

[Jabba]

Thanks Dave, that worked perfectly.

[avoird000]

Sub pdfsave()

pdfname = Range("P4").Value

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

[avoird000]

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

[richard brown]

Sub Button_click()
'
' Button_click Macro
'

'
ChDir "c:\My Documents"
ActiveWorkbook.SaveAs Filename:=Range("A1").Value, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
ChDir "c:\My Documents"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("A1").Value, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
End Sub