| |
chandresh_s74
Posts: 1
Score: 0
Joined: 5/9/2008
Status: offline
|
Help please....
I am trying to retrieve the excel hyperlink how do i get the data which is already stored in the excel file.
I am using following file:
'Opening excel file.
Option Explicit
On Error Resume Next
Dim loopCount, directory, objExcel, workbook
Set objExcel = CreateObject("Excel.Application")
'Gets the directory where our script is running from
directory = CreateObject("Scripting.FileSystemObject").GetParentFolderName(Wscript.ScriptFullName)
'Open our XLS file
Set workbook = objExcel.Workbooks.Open(directory & "\temp.xls")
'We want to skip the header row, and then the blank row below
loopCount = 1
Do while not isempty(objExcel.Cells(loopCount, 1).Value)
Dim i 'For looping through the columns on each row
Dim value 'Value extracted from each cell
Dim value1 'hyperlink value from each cell.
For i = 1 To 1 'going for how many column in excel file.
value = objExcel.Cells(loopCount, i).Value
value1=objExcel.Cells(1, i).Hyperlink
'Do something with your value here!
MsgBox value
MsgBox value1
Next
loopCount = loopCount + 1
Loop
objExcel.Workbooks.Close
objExcel.quit
objExcel = Empty
workbook = Empty
_____________________________
chandresh
|
|
Printable Version
get excel hyprelink using vbscript - 
New Messages
No New Messages
Hot Topic w/ New Messages
Hot Topic w/o New Messages
Locked w/ New Messages
Locked w/o New Messages
Post New Thread