Change Excel text cells in hyperlinks

[bubke]

Hi,

Is there someone who could help me with converting Excel text cells in cells with hyperlinks? I've many hyperlinks in Excel in a column, but they are in text format.

What I want is that the links are clickable, so that they open in a browser. I don't have many experience with Office in combination with autoit. Maybe there is someone who has an example script. Any help is very welcome!

Thank you

[water]

Please hava a look at the Excel UDF function _ExcelHyperlinkInsert: Inserts a hyperlink into the active page.

[JoHanatCent]

Maybe there is someone who has an example script. Any help is very welcome!

This is just that. An Example. Please test before using it.

#include <Excel.au3>
$Count = 0
$oExcel = _ExcelBookOpen(@DesktopDir & "\Book.xls", 0);0 = file not visible
$Count = $oExcel.Worksheets(1).Usedrange.Rows.Count
For $i = 1 To $Count
    $sCellValue = _ExcelReadCell($oExcel, $i, 2);row = $i number, col = 2 (B)
    _ExcelHyperlinkInsert($oExcel, $sCellValue, $sCellValue, $sCellValue, $i, 2)
    ;Correct use:
    ;_ExcelHyperlinkInsert($oExcel, $sLinkText, $sAddress, $sScreenTip, $sRangeOrRow [, $iColumn = 1])
Next
_ExcelBookClose($oExcel)
$oExcel = _ExcelBookOpen(@DesktopDir & "\Book.xls", 1);1 = file is visible

Edited December 1, 2010 by JoHanatCent

[bubke]

This is just that. An Example. Please test before using it.

#include <Excel.au3>
$Count = 0
$oExcel = _ExcelBookOpen(@DesktopDir & "\Book.xls", 0);0 = file not visible
$Count = $oExcel.Worksheets(1).Usedrange.Rows.Count
For $i = 1 To $Count
    $sCellValue = _ExcelReadCell($oExcel, $i, 2);row = $i number, col = 2 (B)
    _ExcelHyperlinkInsert($oExcel, $sCellValue, $sCellValue, $sCellValue, $i, 2)
    ;Correct use:
    ;_ExcelHyperlinkInsert($oExcel, $sLinkText, $sAddress, $sScreenTip, $sRangeOrRow [, $iColumn = 1])
Next
_ExcelBookClose($oExcel)
$oExcel = _ExcelBookOpen(@DesktopDir & "\Book.xls", 1);1 = file is visible

Thank you for your help, you set me on the right path!

[PsaltyDS]

For a particular Excel hyperlink, you can set the property directly:

$oExcel.ActiveSheet.Hyperlinks(1).TextToDisplay = "Link text here"