< návrat zpět

MS Excel

Téma: univerzalni cesta rss

Zaslal/a fuxa 8.7.2010 12:58

Dobre rano :)
poradil by nekdo prosim, jak se v da nahradit cela cesta C:\user\....\atd. (viz kousek kodiku dole) za nejakou univerzalni promennou? vsechno to bude vzdy v jednom xls v jednom adresari, ale kam si to uzivatel nakopiruje neznáju.
Diky F.

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=Soubory Excel;DBQ=C:\Users\Lub\Desktop\REKRE\rekreace.xls;DefaultDir=C:\Users\Lub\Desktop\REKRE;Dri" _
), Array("verId=790;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range( _
"A1"))
.CommandText = Array( _
"SELECT `vystup$`.oec, `vystup$`.jmeno, `vystup$`.prijmeni, `vystup$`.dodanit FROM `C:\Users\Lub\Desktop\REKRE\rekreace`.`vystup$` `vystup$` WHERE (`vystup$`.dodanit>0) ORDER BY `vystup$" _
, "`.oec")
.Name = "Dotaz z Soubory Excel_1"

Zaslat odpověď >
Jeza.m(8.7.2010 14:01)#001935
Jeza.m
thisworkbook.path
vrátí cestu k aktuálnímu otevřenému souboru.

M@citovat
fuxa(8.7.2010 14:31)#001936
avatar
danke moccitovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

Čas od do

lubo • 19.4. 16:30

Makro smyčka

MilanKop • 19.4. 10:46

Makro smyčka

elninoslov • 19.4. 9:02

Čas od do

elninoslov • 19.4. 8:46

Čas od do

jarek1111 • 18.4. 13:46

Čas od do

lubo • 18.4. 11:13

Čas od do

jarek1111 • 18.4. 8:32