MS Excel

Téma: VBA Excel 2010 vs 2007

Zaslal/a Michal-D 22.7.2015 14:09

Zdravím,
mám dokument vytvořený v MS Excel 2007, po reinstalu PC a přechodu na Excel 2010 však některá makra (psaná ve VBA) nechodí.

Makro např. vypadá takto:
' UlozPLdoPDF Makro
Dim path As String
Dim nazev As String
path = "D:\SkyDrive\Horňas\Pracovní listy\"
nazev = Trim((Worksheets("DATA").Range("O15").Value))
'
'
Sheets(Array("Pracovní list")).Select
Sheets("Pracovní list").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=path & nazev _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=True
Sheets("Fakturace").Select

End Sub

Nějaký nápad?

Moc díky předem.

Michal

Zaslat odpověď >

Pavlus(22.7.2015 21:37)#025947

A co přesně to hází za chybu?
Řekl bych, že problémem nebude přechod z verze 2007 na 2010, ale to, že se něco změnilo po přeinstalaci v PC, a Vy nevíte, jak přesně makro funguje ;-).
Vsadil bych botky, že adresa "D:\SkyDrive\Horňas\Pracovní listy\" neexistuje, takže to pak hodí chybu, a makro nefunguje. Ale jenom hádám...
P.citovat

elninoslov(24.7.2015 18:41)#025982

Po preinštalovaní PC, často písmená diskov niesú tak ako predtým. Bude to asi v tej ceste, lebo to Vaše makro mi funguje aj na Office 2010 x86 aj na 2013 x64.
Celé Vám to zvládne aj jeden riadok:
Sub UlozPLdoPDF() ' UlozPLdoPDF Makro
Sheets("Pracovní list").ExportAsFixedFormat Type:=xlTypePDF, Filename:="D:\SkyDrive\Horňas\Pracovní listy\" & Trim((Worksheets("DATA").Range("O15").Value)), Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Sheets("Fakturace").Activate
End Sub
Ak sa prepínate z listu do listu len preto aby ste mohli exportovať aktívny list, tak to nemusíte. A ak voláte export z listu Fakturace, aj aktiváciu tohto listu zmažte.

PS: Do jedného riadku si dávam iba príkazy, ktoré mám overené že určite fungujú na 100%, a nepredpokladá sa ich prerábanie, v opačnom prípade sa zle čítajú.citovat

Téma: VBA Excel 2010 vs 2007

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje