' SSOService Web service object steps
login = WebService("SSOService").login(XMLWarehouse("SI_Login"))
'login= replace (login,"<?xml version="+Chr(34)+"1.0"+Chr(34)+" encoding="+Chr(34)+"UTF-8"+Chr(34)+"?>","")
ResFileName=DataTable("ResFileName",dtGlobalSheet)
ResSheetName=DataTable("ResSheetName",dtGlobalSheet)
set xlsobj=createobject("excel.application") '创建excel对象
set xlsbook=xlsobj.Workbooks.Open("D:\liu-backup\QTPtest\TestRes\neimeng\"+ResFileName+".xlsx") '打开指定的excel文件
Set xlssheet=xlsbook.Sheets(ResSheetName) '设置操作sheet对象,可使用index-从1开始
xlssheet.cells(1,1)="login发送报文" '对第一列的第一行赋值
xlssheet.cells(1,2)="login返回报文"
xlssheet.cells(2,1)=XMLWarehouse("SI_Login")
xlssheet.cells(2,2)=login
xlsbook.Save '保存excel文件
xlsbook.Close '关闭
xlsobj.Quit
set xlssheet = Nothing
Set xlsbook = Nothing
Set xlsobj = Nothing
'authen = WebService("SSOService").authen("string (Autogenerated)")
'getAccount = WebService("SSOService").getAccount("string (Autogenerated)")
'pulse = WebService("SSOService").pulse("string (Autogenerated)")
'msgbox login
分享到:
相关推荐
VB操作Excel实现读取写入打印标签工具代码
通过VB窗体的text,向excel中指定位置写入数据
VB操作Excel实现读取写入打印.doc
不错的关于VB中利用ADO技术操作EXCEL的实现详细介绍!
vb6对excel表格二次开发,先在工程里引用excel库,然后文档里包含了excel对象模型的大部分对象用法
VB读写EXCEL表: 能获取到表的行数的代码:xlSheet2.UsedRange.Rows.Count VB本身提自动化功能可以读写EXCEL表,其方法如下
vb6对excel的操作,创建,写入,读取,保存,删除 源码。 每个功能都是一小块。 调试可用,仔细看吧,对操作excel的朋友一定有用。 正常操作不会有资源为释放,进程一大堆exe的情况。 个人整理,10分,不求下载多
本文深入浅出的详细介绍了vb读写excel的方法
功能:打开Excel文件并可以根据设置向指定单元格写入数据。没有保存功能,如果需要保存请使用Excel的功能。 版本:1.0.0 iLeaper@hotmail.com
利用vb读取ini文件,并写入excel
将EXCEL数据一次写入ACCESS的文件示例
vb.net把DataGridView中的数据导入Excel中,通常采用对Excel操作的方式进行。该方法简单易懂,网上也有很多,但是效率低下。因为其采用的是一个单元格一个单元格的写入方式。当数据量非常大时,用时往往很长。相对而...
该代码包括Excel数据写入、调用Excel绘图和Excel保存及关闭。VB对Excel的基本操作都全了,非常适合新手学习!
能够读取EXCEL,并且写入。 '读取01.xls中A2到A6,5个单元格的数据 Private Sub Command1_Click() Dim ExcelApp
利用vb6.0 实现对EXCEL进行打开、写入、储存、关闭,可以应用在数据采集程序中,实现连续储存采集数据;应用:首先VB应该引用EXCEL类型,然后在EXCEL之VB中建立类模块,然后在类模块中输入如下程序,并储存,以便...
通过vb.net把数据库的数据写入excel中
vb Access数据写入Excel源码
vb与EXCEL中的操作,从EXCEL中读取相关数据,写入数据库当中