Функция из файла-примера пост #5, см. выше (в OpenOffice - не работает, в LibreOffice - работает отлично).
Привожу для наглядности, и для тех, у кого злые админы и блокируют ссылки на скачиваение (у меня - такие).
Function URLfromLink(nRow As Long, nColumn As Long) As String
Dim oSheet As Variant
Dim oCellByPosition As Variant
Dim oTextFields As Variant
Dim sURL As String
sURL = ""
On Error GoTo noResult
oSheet = ThisComponent.getCurrentController().getActiveSheet()
oCellByPosition = oSheet.getCellByPosition(nColumn-1, nRow-1)
oTextFields = oCellByPosition.getTextFields()
If oTextFields.getCount()>0 Then sURL = oTextFields.getByIndex(0).URL
noResult:
URLfromLink = sURL
End Function
