oHL = oExcel.ActiveSheet.Range("O141").Hyperlinks oHL.should now show the properties.
>CLEAR >LOCAL oExcel as Excel.Application && to make intellisense happy > >oExcel=CREATEOBJECT("Excel.Application") >oExcel.visible= .F. >oExcel.DisplayAlerts = .F. >lcFileName=[c:\vApps\vCMC\Imports\MasterList.xls] >oW=oExcel.Workbooks.Open(lcFileName) > >?oExcel.ActiveSheet.Range("O141").Hyperlinks <<<---- returns an object but adding a dot shows no Intellisense > >?oExcel.ActiveSheet.Range("O141").Hyperlinks.Item(1) <<< --- ole eror code 0x8002000b invalid index > > >>
>>? oSheet.Range("O141").Hyperlinks.Item(1).Address >>If it doesn't work, use Intellisense to pinpointe where it brakes.