Set excelObj=CreateObject("Excel.Application")
xlsUrl="C:\Documents and Settings\zhuy\桌面\QTP连接数据库\a.xls"
excelObj.workbooks.open(xlsUrl)
Set sheetNew=excelObj.sheets.item(1)
Set conn=CreateObject("ADODB.Connection")
Set rs=CreateObject("ADODB.Recordset")
conn.Open"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=123456;Initial Catalog=LMS2.0-2;Data Source=YANJIN"
rs.Open"select name from dbo.tbCompetencie",conn
Dim i
while not rs.EOF
CompetencieName=rs("name").value
sheetNew.cells(i+1,1).value=CompetencieName
i=i+1
rs.movenext
wend
excelObj.ActiveWorkbook.SaveAs xlsUrl
excelObj.quit
Set excelObj=nothing
rs.close
Set rs=nothing
conn.close
Set conn=nothing
Browser("Retech LMS2.0").Page("Retech LMS2.0").Link("资格模型管理").Click
Browser("Retech LMS2.0").Page("资格模型管理").Link("新增资格").Click
Set Excelobj=createobject("Excel.Application")
excelpath="C:\Documents and Settings\zhuy\桌面\QTP连接数据库\a.xls"
Excelobj.Workbooks.Open(excelpath)
Set newsheet=Excelobj.Sheets.Item(1)
rowcount=newsheet.UsedRange.Rows.Count
colcount=newsheet.UsedRange.Columns.Count
For i = 1 To rowcount
DataTable.GetSheet("Global").SetCurrentRow i
DataTable.value(1,"Global")=newsheet.Cells(i,1)
Compentencie=DataTable.Value(1,"Global")
Browser("Retech LMS2.0").Page("资格模型管理").WebEdit("ctl00$ContentPlaceHolder1$tbCo").Set DataTable("Competencie", dtGlobalSheet)
wait 3
Browser("Retech LMS2.0").Page("资格模型管理").WebEdit("ctl00$ContentPlaceHolder1$tbTa").Set "资格标签"
Browser("Retech LMS2.0").Page("资格模型管理").WebEdit("ctl00$ContentPlaceHolder1$tbDe").Set "资格描述"
Browser("Retech LMS2.0").Page("资格模型管理").Link("确定").Click
Next
Excelobj.Quit
