Function ExcelLink(filepath,sheetname,x,y)
set objExcel=CreateObject("Excel.Application")
objExcel.Visible=False
set SrcSheet=objExcel.WorkBooks.Open(filepath)
set xsheel=SrcSheet.WorkSheets(sheetname)
xsheet.Activate
xsheet.Cells(x,y).Value="pass"
xsheet.Hyperlinks.Add xsheet.Cells(x,y),"http://baidu.com"
objExcel.DisplayAlerts=False
objExcel.ActivateWorkBook.SaveAS filepath
objExcel.quit
set objExcel=nothing
set SrcSheet=nothing
set xsheet=nothing
End Function