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