Set objExcel = CreateObject(”Excel.Application”)
Set objWorkbook = objExcel.WorkBooks.Open(”c:\Execution_Result_3_2_2011_7_41_41.xls”)
Set objDriverSheet = objWorkbook.Worksheets(”Global”)
objExcel.Visible=True
RowNumber=4
C = “N” & RowNumber
objExcel.ActiveSheet.range(C).Select
objDriverSheet.Hyperlinks.Add objExcel.Selection, “C:\2_3_2011 7_44 16 AM.jpg”
objDriverSheet.Range(C).WrapText = True
Set objWorkbook = objExcel.WorkBooks.Open(”c:\Execution_Result_3_2_2011_7_41_41.xls”)
Set objDriverSheet = objWorkbook.Worksheets(”Global”)
objExcel.Visible=True
RowNumber=4
C = “N” & RowNumber
objExcel.ActiveSheet.range(C).Select
objDriverSheet.Hyperlinks.Add objExcel.Selection, “C:\2_3_2011 7_44 16 AM.jpg”
objDriverSheet.Range(C).WrapText = True
No comments:
Post a Comment