excel_makro

From: Ján Bystrianský (JBystriansky@seznam.cz)
Date: 04. 02. 2000, 09:56 CET


Ahojte,
potreboval by som poradit s excel makrom. Toto makro aktualizuje query
tabulku, ale potrebujem kazdy mesiac zmenit hranice datumu
     od(2000-02-01) do(2000-02-29)
na od(2000-03-01) do (2000-03-31),
da sa to samozrejme spravit cez CRTL_H a vymenit tieto hranice pred samotným
behom makra, ale chcel by som to elegantnejsie cez rozbalovacie pole zo
zoznamom (aby si uzivatel len vybral (od-do) a spustil aktualizaciu tabulky.
Rozbalovaci zoznam by som aj vedel spravit cez /vlozit userForm, ale ako
potom dalej?,
ako udaje z robalovacieho formulara vlozit do tela kodu makra ?


toto je ciastkovy vypis kodu makra, kde sa ten datum nachadza:

With Selection.QueryTable
        .Connection = _"ODBC;DSN=MSS-Fourth
Shift;UID=***;PWD=****;DBQ=e:\moje dokumenty;CODEPAGE=1250;"
        .Sql = Array( _
        "SELECT ITEM_HISTORY.ITEM, ITEM_HISTORY.TRANS_ID, ITEM_HISTORY.DATE,
ITEM_HISTORY.BODY1" & Chr(13)         & "" & Chr(10) & "FROM ITEM_HISTORY
ITEM_HISTORY" & Chr(13) & "" & Chr(10) & "WHERE
(ITEM_HISTORY.TRANS_ID='IMTR') AND (ITEM_HISTORY.DATE>={d '2000-02-01'} An"
_
        , _"d ITEM_HISTORY.DATE<={d '2000-02-29'}) AND (ITEM_HISTORY.BODY1
Like '%~SC~0000%')" _ )
         .Refresh False


Jan Bystriansky
JBystriansky@seznam.cz
JBystriansky@post.sk



-- http://email.seznam.cz 
-- email zdarma na cely zivot



This archive was generated by hypermail 2.1.2 : 03. 09. 2001, 22:42 CEST