VFP如何读取EXCEL里的超链接地址

FOR EACH url IN oExcel.ActiveSheet.Hyperlinks
    ? url.Address
ENDFOR

给你做了一个函数，把它拷贝到模块中去,取地址的时候就直接 =GetNameHyperlinks(A1) 就OK了
Function GetNameHyperlinks(rng As Range)
    With rng.Hyperlinks(1)
        GetNameHyperlinks = IIf(.Address = "", .SubAddress, .Address)
    End With
End Function

一贴学到二招，谢谢！

学习啦，谢谢！