Musíš sešit ukládat s koncovkou xlsm místo xlsx, nebo použít koncovku pro starší verze xls.citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Excel 2010 a makra
Když sem psal, aby si vložil kód. Měl sem na mysli kód, kde se Ti makro zastaví (zůstane viset na té hlášce).
V tomto případě by bylo vhodné vložit celý sešit, jak poznamenal kolega výše.
Zkusím takový výstřel do tmy. Toto je část Tvého kódu:
Sub Ulozit_doklad()
'Doklad
Dim List_jmeno As String
List_jmeno = "Doklad"
Dim File_full_name As String
Dim File_name As String
Dim File_path As String
File_full_name = Plne_jmeno_souboru
File_name = Jmeno_souboru
File_path = Cesta_souboru
'
On Error GoTo Err_line
Sheets(List_jmeno).Select
Sheets(List_jmeno).Copy ' Copy Move
'ChDir "C:\Documents and Settings\Petr\Plocha"
ActiveWorkbook.SaveAs Filename:=File_full_name
'Sheets("List1").Select
'Sheets("List1").Name = "novy"
Info = "Zavírám uložený soubor" & vbCrLf & _
Chr(34) & File_name & Chr(34) & vbCrLf & vbCrLf & _
"Soubor byl uložen na adrese:" & vbCrLf & _
Chr(34) & File_path & Chr(34)
If frm_Navigace.chb_Info_Save_as = True Then
MsgBox Info, vbOKOnly + vbInformation, "Uložit soubor ..."
End If
ActiveWorkbook.Close
Exit Sub
Err_line:
Msg = "Chystáte se manipulovat listem " & vbCrLf & _
Chr(34) & List_jmeno & Chr(34) & vbCrLf & _
"tento list nebyl nalezen !!!"
If Err.Number = 9 Then
MsgBox Msg, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Msg2 = "Neplatný název souboru !!!" & vbCrLf & "(Délka názvu souboru nebo cesty je " & _
Len(File_full_name) & " znaku)" & vbCrLf & _
Chr(34) & File_full_name & Chr(34) & vbCrLf & vbCrLf & _
Err.Description
If Err.Number = 1004 Then
MsgBox Msg2, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Err.Clear
End Sub
Tučně vyznačenou část nahraď tímto:
ActiveWorkbook.SaveAs Filename:=File_full_name, FileFormat:=xlNormal
citovat
MS Excel
Téma: Excel 2010 a makra 
Zaslal/a olda3 15.7.2012 20:00
Mám problém při práci se souborem vytvořený v Excelu 2003, který obsahuje makra. Ve staré verzi je makro normálně funkční, pokud pracuji ve verzi 2010 po spuštění mi píše hlášku, - následující funkce nelze uložit v sešitech bez maker - . Co dělám špatně, že mi makro v této verzi nefunguje. Excel 2010 mám nově nainstalovaný, bez jakýchkoliv úprav zabezpečení.
To bych rád udělal, ale po té hlášce co jsem uváděl už to makro dál nepracuje. To makro právě vytváří nové soubory, provádí výpočet a ukládá. Takže pokud ho nějak nepřepíšu a nevím jak, tak je nefunkční.Pravděpodobně bych do něj musel zakomponovat nějaký příkaz. Už jsem z toho na prášky. Asi se budu muset vrátit ke staré verzi.citovat
V excel 2010 si otvor ten súbor.xls. Potom ho ulož ako typ súboru excel 2010 so zapnutými makrami.
A môžeš pracovať. Samozrejme musíš mať povolené makrá.citovat
A môžeš pracovať. Samozrejme musíš mať povolené makrá.citovat
Kód přikládám, jestli to bude něco platné.
Příloha: 
9021_microsoft-visual-basic-for-applications.zip (44kB, staženo 23x)
citovat9021_microsoft-visual-basic-for-applications.zip (44kB, staženo 23x)Máš pravdu. Toto je k ničomu.
A ten súbor v exceli nemôžeš priložiť?citovat
A ten súbor v exceli nemôžeš priložiť?citovat
Když sem psal, aby si vložil kód. Měl sem na mysli kód, kde se Ti makro zastaví (zůstane viset na té hlášce).V tomto případě by bylo vhodné vložit celý sešit, jak poznamenal kolega výše.
Zkusím takový výstřel do tmy. Toto je část Tvého kódu:
Sub Ulozit_doklad()
'Doklad
Dim List_jmeno As String
List_jmeno = "Doklad"
Dim File_full_name As String
Dim File_name As String
Dim File_path As String
File_full_name = Plne_jmeno_souboru
File_name = Jmeno_souboru
File_path = Cesta_souboru
'
On Error GoTo Err_line
Sheets(List_jmeno).Select
Sheets(List_jmeno).Copy ' Copy Move
'ChDir "C:\Documents and Settings\Petr\Plocha"
ActiveWorkbook.SaveAs Filename:=File_full_name
'Sheets("List1").Select
'Sheets("List1").Name = "novy"
Info = "Zavírám uložený soubor" & vbCrLf & _
Chr(34) & File_name & Chr(34) & vbCrLf & vbCrLf & _
"Soubor byl uložen na adrese:" & vbCrLf & _
Chr(34) & File_path & Chr(34)
If frm_Navigace.chb_Info_Save_as = True Then
MsgBox Info, vbOKOnly + vbInformation, "Uložit soubor ..."
End If
ActiveWorkbook.Close
Exit Sub
Err_line:
Msg = "Chystáte se manipulovat listem " & vbCrLf & _
Chr(34) & List_jmeno & Chr(34) & vbCrLf & _
"tento list nebyl nalezen !!!"
If Err.Number = 9 Then
MsgBox Msg, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Msg2 = "Neplatný název souboru !!!" & vbCrLf & "(Délka názvu souboru nebo cesty je " & _
Len(File_full_name) & " znaku)" & vbCrLf & _
Chr(34) & File_full_name & Chr(34) & vbCrLf & vbCrLf & _
Err.Description
If Err.Number = 1004 Then
MsgBox Msg2, vbOKOnly + vbCritical, "Uložit soubor ..."
End If
Err.Clear
End Sub
Tučně vyznačenou část nahraď tímto:
ActiveWorkbook.SaveAs Filename:=File_full_name, FileFormat:=xlNormal
citovat
Částečně problem vyřešen. Makro doběhne, ale ....... neprovede výpočet a nezaktualizuje číselnou řadu.
Příloha: 9031_fa_xx.zip (51kB, staženo 21x)
citovat9031_fa_xx.zip (51kB, staženo 21x)"Makro doběhne, ale ....... neprovede výpočet"
A v excelu 2003 Ti to funguje?
Protože jestli sem to pochopil správně, výpočet probíhá na listu "Vystup", kde se nacházejí vzorce.
Jako viníky bych viděl vzorce v buňkách C37 a C38. Konkrétně nějakou pitomost v kritériu např
=SUMIF($G$14:$G$34;"=0,09";$I$14:$I$34)
když podivné kritérium nahradím adresou buňky A37
=SUMIF($G$14:$G$34;A37;$I$14:$I$34)
dojde k výpočtu ceny.citovat
A v excelu 2003 Ti to funguje?
Protože jestli sem to pochopil správně, výpočet probíhá na listu "Vystup", kde se nacházejí vzorce.
Jako viníky bych viděl vzorce v buňkách C37 a C38. Konkrétně nějakou pitomost v kritériu např
=SUMIF($G$14:$G$34;"=0,09";$I$14:$I$34)
když podivné kritérium nahradím adresou buňky A37
=SUMIF($G$14:$G$34;A37;$I$14:$I$34)
dojde k výpočtu ceny.citovat
Moc děkuji za trpělivost. Ten vzorec na DPH byla hloupost, ale problém výpočtu a ukládání řady dokladů nevyřešila.Už se v tom ztrácím.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články