< návrat zpět

MS Excel


Téma: nepřímý odkaz na zavřený excel? rss

Zaslal/a 28.7.2015 15:36

zdravím použil jsem nepřímý odkaz a zjistil jsem že funguje jen když je excel otevřený, na zaveřný excel a to hází chybu nevím jak jinak to v excelu napsat

v bunce mam:
=NEPŘÍMÝ.ODKAZ("'C:\Users\Desktop\[ZAKAZKOVE_LISTY.xlsx]"&A12&"'!N6")

název listu je v bunce A12, potřebuju vymyslet jak na to, aby mi to fungovalo i při zavřeném excelu (na který se to odkazuje)

Zaslat odpověď >

#026003
elninoslov
Máte asi pravdu, INDIRECT nejde takto použiť. Napadlo ma ExecuteExcel4Macro, ale to sa mi rovnako nedarí sprevádzkovať vo funkcii ale iba v procedúre. Vy ale potrebujete funkciu volanú zo zošitu, čiže posledná možnosť čo ma napadá je ADODB použité v UDF:
Function GetCell(F As String, H As String, C As Range) As String
Dim cnStr As String, rs As ADODB.Recordset, query As String
cnStr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & F & ";Extended Properties=Excel 12.0"
query = "SELECT * FROM [" & H & "$" & C.Address(0, 0) & ":" & C.Address(0, 0) & "]"
Set rs = New ADODB.Recordset
rs.Open query, cnStr, adOpenUnspecified, adLockUnspecified
GetCell = rs.Fields(0).Name
rs.Close
End Function

Najskôr pridajte vo VBA v Tools - References - Microsoft ActiveX Data Objects 6.1.
Potom funkciu v zošite budete volať:
=GetCell("z:\Close\ZAKAZKOVE_LISTY.xlsx";$A$12;$N$6)

PS: A ešte ma napadlo použiť skrytý stĺpec/list, a vo funkcii vložiť vzorec s priamym odkazom a prečítať hodnotu, ale to sa mi rovnako vo funkcii nepodarilo, len v procedúre, viď vyššie...citovat

Uživatelské menu

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

Menu

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.

On-line nástroje