• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

Příspěvky uživatele

ked som to dobre pochopil tak:
- vstupne zariadenie je z MySQL, ktore mate prepojene zo vsetkym moznym :) (co nieje az tak podstatne)
- vystup by mali byt pivot tabulky

tak a teraz nechapem preco sa pripajate na MS Excel a nie rovno na MySQL? kde syntax je uplne rovnaky

tu som to doplnil do toho makra:

kedze nevidim co vytvara ten XML subor tak pracujem s tym vytvorenym XML suborom

treba spustit makto test, ktore robi:
1. otvorim ho
2. string prepisem znaky
3. savnem ho

pozeral som ten subor ale ved tam to mate uz spravene

v com je problem?

este by som do toho makra doplnil:

Sub řádky()
Application.EnableEvents = False
...
Application.EnableEvents = True
End Sub

akoze stanzil som sa to nejak pochopit ale nepodarilo sato :))

vprincipe potrebujete nieco co by po 1s aktualizovalo data z ineho dokumentu

takze moja rada:
- urobte si makto v simulator na OnTime
- potom si tam dorobte otvaranie suboru v pozadi tj. Zdroj
- a nakoniec do toho makra dopiste to co presne potrebujete aktualizovat ... a to uz som nepochiopil co presne potrebujete

vypadalo by to asi takto:
Private xl As Excel.Application
Private W As Workbook

Sub Timer()
Set xl = CreateObject("Excel.Application")
Set W = xl.Workbooks.Open(Application.ThisWorkbook.Path & "\zdroj.xlsm")

cells(1,1) = w.cells(1,1)

W.Close False
Set xl = Nothing
Application.OnTime Now() + TimeValue("00:00:01"), "Timer"
End Sub

pre efektivnost by bolo lepsie to otvaranie dokumentu vyhodit z cyklu a otvorit a zatvorit ho len raz

ja toto dost casto pouzivam a ked mam poradit tak ked je mozne tak DATA prehodte do MS Access z dovodu toho aby ste predosli problemom vznikajucim pri insertovani/updatovani alebo syntaxickym zapisom .... ten ado pre MS Excel je dobry ale nieje zatial uplne dokonaly

a len vystup zapisujte do MS excel

ok tak na konci toho procesu zadata len to co uz som tu pisal: ... kazdu bunku ktoru budete posielat najprv prebehnete cez funkciu ZamenData

sub aa
.... ZamenData(aText) ....
end sub

private function ZamenData(byval aString as string) as string
aString = Replace(aString ,"&lt","<")
aString = Replace(aString ,"&gt",">")
ZamenData = aString
end function

hej trochu som to zle napisal .)

- tak ako je to v prilohe
- zabarvit uz pri additems
- ale kludne hoci kedy .) kedze ja ho ani zafarbit nedokazem

.... ale listview je asi 2x lepsi ako listbox ... takze som spokojny :)

ok tak potrebujem to inak vediet:

1. co je vstupny udaj?
2. co ma urobit s vstupom?
3. co ma byt vystupny udaj?

lebo xml,php,html je stale len txt subor

tak nasiel som to staci doplnit do additional controls: Microsoft ListView Control 6.0 (SP6)

funguje pod office 2010

co je natomto objecte dobre ze tam ide aj scrollovat myskou hore dole :)

vzorka:

Ahojte,

mam problem zafarbit riadok ked je v riadku viac stlpcov vie niekto ako nato?

takto sa tvori listbox:
With Me.lstbox
Me.lstbox.ColumnCount = 2
Me.lstbox.ColumnWidths = "60;60"
.AddItem
.List(0, 0) = Company_ID
.List(0, 1) = Company_name
end with

tak spravite presne opacne ten znak sa zamenuje za char(nejakeCislo) a to replace za <

dajte stringovu vzorku ... ja uz som to kedysi robil ale uz si to velmo nepamatam

1. ok co si predstavujete pod pojmom pretahovat:
ze ich tam zapise a v "kosi" ich vymaze?
alebo len zapis do "Import"?

2. dalsia vec tie stlpce vzdy budu mat taketo poradie? nebuda sa ich poradie menit? resp. identifikovanie stlpca nieje nutne?

tych sposobou na spracovavanie je fakt vela posielam jeden co nieje uplne idealne ale podla mna je najuniverzalnejsi

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje