Problém s ActiveX v Excelu
Dobrý den,
stáhl jsem si ze školní stránky virtuální laboratoř vytvořenou v programu EXCEL. Když ji zapnu tak se mi zobrazí viz obr.1
Když tedy povolím obsah tak mi ale naskočí hláška viz obr.2 (Run-time error "1004" Application-defined or object-defined erero)
no a po odklepnutí mi chybí část dokumentu viz obr.3
Prosím o radu jak mám tento problém vyřešit. Dík
stáhl jsem si ze školní stránky virtuální laboratoř vytvořenou v programu EXCEL. Když ji zapnu tak se mi zobrazí viz obr.1
Když tedy povolím obsah tak mi ale naskočí hláška viz obr.2 (Run-time error "1004" Application-defined or object-defined erero)
no a po odklepnutí mi chybí část dokumentu viz obr.3
Prosím o radu jak mám tento problém vyřešit. Dík
A nemůže bejt problém se zabezpečením v makrech ? Že je na úrovni vysoké ? Nevím je to jen nápad:notsure
Očividně je tam v makru použitá nějaká featura, kterou vaše verze excelu nepodporuje. Nezbývá než to za a) spouštět ve verzi kde to funguje nebo za b) podívat se do kódu, kde to dělá problémy a opravit to. Tolik má domněnka.
do kodu se nedá dostat -je zaheslovaný ale mám tu dokumentů více a do jiných se dostat dá ale zase nevím co mám upravit:
třeba tato chyba: Cant find project or library:
On Error Resume Next
While t < konec
u1 = Um1 * Sin(2 * Pi * f1 * t + Psi1 * Pi / 180)
uk = Umk * Sin(2 * k * Pi * f1 * t + Psik * Pi / 180)
u = u1 + uk
tu = t * 360 / Tper
Pozice = "A" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = t * 1000
Pozice = "B" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = tu
Pozice = "C" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = u1
Pozice = "D" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = uk
Pozice = "E" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = u
třeba tato chyba: Cant find project or library:
On Error Resume Next
While t < konec
u1 = Um1 * Sin(2 * Pi * f1 * t + Psi1 * Pi / 180)
uk = Umk * Sin(2 * k * Pi * f1 * t + Psik * Pi / 180)
u = u1 + uk
tu = t * 360 / Tper
Pozice = "A" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = t * 1000
Pozice = "B" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = tu
Pozice = "C" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = u1
Pozice = "D" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = uk
Pozice = "E" + Trim(Str(rdk))
Worksheets(JmTab).Range(Pozice).Value = u