DataStr= Environment("RCCZHT")&"\RCCZ.xls"
''定义并获取环境变量中的参数，以及excel数据文件''
Set ExlObj=CreateObject("Excel.Application")
ExlObj.Visible = True
ExlObj.DisplayAlerts = FALSE
Set book=ExlObj.Workbooks.Open(DataStr)
Set sheet=book.Worksheets("CXDLD")
For i=2 to sheet.usedrange.rows.count
 phone=ExlObj.WorkSheets("CXDLD").Cells(i,1)
 Browser("##").Page("##").Frame("Frame").WebEdit("mobile").Set phone
    
Next
ExlObj.Quit
Set ExlObj = nothing