o+B`~As0Set excelObj = CreateObject("Excel.Applicaiton") '创建一个对象51Testing软件测试网!@4ywxf2y
xlsUrl = "C:\测试结果.xls" '指定一个已经存在的XSL文件路径
L'uz.d5k0 excelObj.workbooks.open(xlsUrl) '打开EXCEL
O!F8E+P a9O0]`-D)o0 51Testing软件测试网 L&Nt_H$p\G4N
Set sheetNew = excelObj.sheets.item(2) '设置将数据放在EXCEL中的那一页上(索引从1开始)51Testing软件测试网5HS,dS(Q}oU"a
'相关的数据库操作51Testing软件测试网#Iz%{b)M^b
Set conn = CreateObject("adodb.connection")
R*zX+J'Y0set rs = createobject("adodb.recordset")51Testing软件测试网8Ta8@/n:b
51Testing软件测试网5fS0T&[&v5c
conn.open "Provider=SQLOLEDB.1;Password=123;Persist Security Info=True;User ID=sa;Initial Catalog=callbackdb;Data Source=192.168.1.53"51Testing软件测试网#Q%Ly s-c{2v;m
sql="select * from callrecord"
Qm];LT(M"Zw*\0 rs.open sql,conn51Testing软件测试网!c Q}b;^$ss
Dim i51Testing软件测试网
\[0x-Gq[Z3f4@ e
i = 2651Testing软件测试网t#@/E;u7awCwmP
While not rs.eof
`
zS%K
py,_0user_id = rs("CALLID").value
9NLA(EnW0user_name = rs("SESSIONID").value
,~ UA"n9V!yS2H7v0sheetNew.cells(i+1,1).value = user_id '列赋值51Testing软件测试网+S&C$I^ftf"l
sheetNew.cells(i+1,2).value = user_name '列赋值