编程论坛 → VFP论坛

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

hysoft88 发布于 2022-06-27 21:50， 1209 次点击

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

4 回复

吹水佬2022-06-28 07:56

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

sych2022-06-28 08:43

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

wengjl2022-06-28 08:46

一贴学到二招，谢谢！

schtg2022-06-29 05:08

学习啦，谢谢！