阅微草人的测试工作,伴随着初入社会的无奈艰辛彷徨,但是这些都会过去的,已经找到了自己的方向,正在努力中。学习像路飞那样的勇敢、自信、无畏、前进,真诚的伙伴。
ado读取excel文件中数据的2种方式
上一篇 /
下一篇 2007-06-01 11:21:30
/ 个人分类:QTP
'ado读取excel文件中数据的2种方式
X!fK8P/B2Sg2bL;B0}4Q;YG3Z
V0Dim cnn,rst,strnn
[8`'H.zS3y0strnn="Provider=MSDASQL.1;Persist Security Info=False;Data Source=ExcelFiles;"
51Testing软件测试网e` U#I*wRstrnn=strnn & "Initial Catalog=c:\REDB00000811.xls"
#zo _9q3?^V0set cnn=createobject("ADODB.connection")
51Testing软件测试网#T![M2u?cc+C2jEset rst=createobject("ADODB.recordset")
51Testing软件测试网 A3j/D^,`cnn.open strnn
!G([ R5kh0'使用表名跟美元符号
51Testing软件测试网VFc PD,x8{rst.open "select * from [sheet1$]",cnn,1,1
U|7Uw5a0rst.movefirst
f$u0j4jy~&~2H\0tmp0=rst.fields(0)
51Testing软件测试网LVBr+H3Utmp1=rst.fields(1)
%h$N
@
Cjc0tmp2=rst.fields(2)
w}d y$i!}0tmp3=rst.fields(3)
51Testing软件测试网Sv3]!S{)sPtmp4=rst.fields(4)
%Mq:]J3QyE/d.p0tmp5=rst.fields(5)
YY^+BJ2O0rst.movenext
51Testing软件测试网TS(u(QXQtmp6=rst.fields(0)
51Testing软件测试网*f(qZY%C TIKrst.close
51Testing软件测试网"q'HnYf'与特定地址 (为示例, $ Sheet 1 [ A1:B10 ]) 指定区域。
51Testing软件测试网!OvC^m|P.I`wrst.open "select * from [sheet1$A3:E5]",cnn '其实,数据是A4到E5的数据。A3所在的一行数据不 '取。
:HPj'J
m0TP%B+q!wJ-br0rst.movefirst
/P1qA'j8r\2MC,v0tmp7=rst.fields(0)
51Testing软件测试网\$|$?;r4q3z\#H
m6Krst.movenext
'M
Dp*f4it0tmp8=rst.fields(0)
"X-i3d`o-P^0tmp9=rst.fields(4)
#[zL,j2yp4g%y0rst.close
51Testing软件测试网G\1AJ[Ycnn.close
G)\f3E5Zeao:`0Set rst=nothing
51Testing软件测试网` A|9V2JQuSet cnn=nothing
51Testing软件测试网(o'v(Wv
A{8_;mD51Testing软件测试网W.yQpbX7i4Z'还有第3种打开excel的方式,“使用范围带有定义名称“,目前还没有搞明白。
51Testing软件测试网Qk;YK;k*FKI4v%E)i,V7d gDCm(e0
相关阅读:
- 系统变量 导致 TD 调用 QTP 失败 (higkoo, 2007-5-25)
- New Instructions from Supervisor (howard, 2007-5-26)
- QTP重新打开IE的方法 (紫梦, 2007-5-28)
- 表+检查点的操作 (jimmy2006.hi, 2007-5-28)
- QTP脚本中关于ActiveX 控件的问题 (紫梦, 2007-5-29)
- VBSCRIPT对字符串的处理 (阅微草人, 2007-5-29)
- QTP录制日期控件 (紫梦, 2007-5-29)
- QTP Interview Questions (aries1979, 2007-5-29)
- rst.Open sql,conn,0,2,1的意思 (阅微草人, 2007-5-30)
- "5/8/2007 1:47:49 PM"转换成"2007-5-813:47:49" (阅微草人, 2007-5-30)
收藏
举报
TAG:
QTP