Příspěvky uživatele
< návrat zpět
to znie ako domaca uloha :)
tak tymto vam nikto neporadi a to z dovodu toho ze nevedia co je to za tabulku v pdf.
ked to je obrazok tak mozno by sa to dalo OCR macro urobit ale to funguje velice zle resp. neodporucam s tym ani zacinat (uz som skusal)
ked to je tabulka tak ta ma presne definovane zaciatok riadku zaciatok columu a to z toho obrazku nevylusti ani genius.
takze bez zdroja to ani nepojde urobit ale skuste to PDF otvorit v worde ci to nepojde a ked ano tak si spravte mapovanie na word to uz je jednoduchsie
ano moze byt aj ten problem ale k tomu sa to makro este nedostalo problem ma uz pri samotnom nacitani dat z DB :) je dost mozne ze ked tuto hlsku opravite tak vam vyskoci ta na PQ
este ma napadla jedna vec skuste zmenit referenciu na kniznicu adodb. Mala by sa volat:
Microsoft ActiveX Data Objects x.xx Library
x.xx bude najvacsie cislo v zozname.
no toto bude tazke vysvetlit :)
1. ked sa jedna o makro tak to bude cez alt + f11 a tam v kode to pozriet
2. ked to bude len connection tak potom Data\Queries & connection .... a tam to opravit
tak teraz uz budem len hadat skuste zmenit v makre provider-a v connection tak ako ho mate nastaveny v conection.
umna by to bolo:
Provider = "Microsoft.ACE.OLEDB.12.0"
a viete kde sa ta databaza nachadza?
skuste najprv skusit pripojenie na DB od toho uzivatela
podla hlasky je asi chyba uplne inde ako si myslite.
Podla mna uzivatel nema pristup na sietovy disk kde sa nachadza databaza alebo samotna cesta je v tom exceli zle nestavena.
keby bol v ODBC chyba tak ta hlaska by vypada inak.
no ked microsoft povedal ze to opravi alebo to uz opravil tak musel uviest aj kniznicu kde je to opravene. Potom staci si len tuto kniznicu aktualizovat a pojde vam to.
mal som tiez taky problem musel som volat na nase IT oddelenie a poziadat o aktualizaciu jednej kniznice.
1. kedze ste nedal excel tak nevieme ako to tam mate pripravene.
2. makro ktore ste dali bere presne pomenovane subory a jedine co menite je INDEX. (ked sa vam taky subor v adresary nenachadza tak pravdepodobne makro spadne). su aj funkcie ktore prechadzaju vsetky subory v adresary napr.:
Dim StrFile As String
StrFile = Dir("c:\testfolder\*test*")
Do While Len(StrFile) > 0
Debug.Print StrFile
StrFile = Dir
Loop
takze dodajte excel kde bude mozno stpec zoznam suborou a stlpec ako sa maju pomenovat.
dobry den,
asi nikto tu nema 2 a viac monitorov a ani ja nemam takze som nemohol tieto kody co som nasiel u seba odskusat takze skuste tieto dva kody u seba.
1. je na hybanie s oknom mozno ked nastavite spravnu poziciu tak vam to dobre zobrazi: (mozno pri zmene rozlisenia to nebude dobre fungovat ... nemam odskusane)
https://www.thespreadsheetguru.com/the-code-vault/launch-vba-userforms-in-correct-window-with-dual-monitors
2. je uz presne zadefinovanie screenu:
https://stackoverflow.com/questions/31592823/move-form-if-second-monitor-screen-exists
vyskusajte mozno pomoze.
pekny novy rok
akoze nechapu co je tak zlozite si do google napisat Removing the password from a VBA project a hned prve vyhladane forum je funkcne
tu este dam link (funguje to cez HexEditor):
https://stackoverflow.com/questions/272503/removing-the-password-from-a-vba-project
to ze excel ma dost trapne zaheslovane svoje projekty je podla mna trapne ze to tu riesite a ked uz chcete robit nejake vacsie vaci ako Add-ins tak to mozte robit napr. cez visual studio a tam si svoj projekt mozte licencovat.
ono to funguje len musite spravne definovat cuplik z HTML kodu. Najprv musite setnut INPUT a az potom ho mozte clicknut. Kedze ste neudali stranku tak ani neviem povedat v com je presne chyba.
z toho vaseho textu je dost nejasne o co vam ide ale tu mate kod nato aby ste mohli vymazat vsetky kodt vo vsetkych aktivnych workbook-ov. Hadam vam to pomoze. (samozrejme ked bude mazat sam seba tak to zbugne :)).
Sub test()
Dim aVBComponent As Object
Dim aWorkbook As Workbook
For Each aWorkbook In Workbooks
For Each aVBComponent In aWorkbook.VBProject.VBComponents
aVBComponent.CodeModule.DeleteLines 1, aVBComponent.CodeModule.CountOfLines
Next
Next
End Sub
ta priloha je len nejaka tabulka.
- mne to makro z toho fora fungovalo.
este ma napadlo ci tato funkcia nenajde ten vas druhy excel:
Sub aTest()
Dim aWin As Window
Dim aApp As Excel.Application
Dim aSheet As Excel.Worksheet
For Each aWin In Windows
Set aApp = aWin.Application
Set aSheet = aApp.ActiveSheet
Next
End Sub
Uživatelské menu
\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