VBA makro: ulož jako PDF Vyřešeno

[Majkie79]

Zdravím Vás,

už nějakou chvíli bojuju s možností uložit pomocí makra některé z listů mého pracovního sešitu do souboru PDF se specifickým názvem. Nyní jsem schopen uložit listy do jediného souboru PDF a do umístění, kde potřebuji, ale potřeboval bych, aby se soubor zároveň pojmenoval po obsahu buňky např. E2 na jednom z listů pracovního sešitu, napr. Fakturace.

Kód nyní vypadá takto:
PDF_Save_All Makro
'
'
Sheets(Array("FAV", "DL", "Výdejka")).Select
Sheets("FAV").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\Dokumenty\Pracovní\DUAVE\Dropbox\Faktury a dodací listy vydané\2012\FAP a DL PDF 2012\FAP\FA2012_ .pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("Fakturace").Select
Range("E3").Select
End Sub

Tučně jsem vyznačil název souboru, který je nyní pevně daný - potřeboval bych jej relativní a to dle proměnného obsahu buňky E2 na listu Fakturace. Snažil jsem se různě vyčíst na netu určité možnosti, ale něco jako Range("E2").Value nejsem díky své neznalosti správně zakomponovat, aby to chodilo.

Věřím, že to možné je.. budu moc rád za pomoc a předem díky za jakýkoli koment.

[Reklama]

[d1amond]

Vítej na PC-HELP

Kód: Vybrat vše

PDF_Save_All Makro
dim path as string
dim nazev as string
path = "D:\Dokumenty\Pracovní\DUAVE\Dropbox\Faktury a dodací listy vydané\2012\FAP a DL PDF 2012\FAP\"
nazev = Trim(Worksheets("Fakturace").Range("E2").Value)
'
'
Sheets(Array("FAV", "DL", "Výdejka")).Select
Sheets("FAV").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= path&nazev _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("Fakturace").Select
Range("E3").Select
End Sub

//přidána path

[Majkie79]

Zdravím,

moc díky za pomoc a rychlou odpověď. Při pokusu o zprovoznění se však v řádku

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= path&nazev _

podbarví slovo "název" a vyskočí okno s hláškou:

"Compile error: Expected: End of Statement"

Celý odstaveček

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= path&nazev _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True

zčervená.

Netušíš odkud by mohl vítr vát??

Každopádně moc díky za pomoc.

Michal

Editováno:

Už to chodí, stačilo vložit mezery: Filename:= path & nazev _

Velký dík za veškerou pomoc!!!