如何将脚本运行完的结果存入EXCEL中

zhbinx · 发表于 2007-8-27 13:04:45

看看

yuandjing · 发表于 2007-8-27 15:57:02

写Excel的函数我改了一下，原来的代码会因为Excel的版本不同而造成不稳定
现在OK了
'写Excel文件元素并保存退出
Public Function QTP_Write_Excel(pathway,sheetname,x,y,content)
Dim srcData,srcDoc,sp1,sp2,num,use,a1,a2,a3
set srcData = CreateObject("Excel.Application")
srcData.Visible = True
set srcDoc = srcData.Workbooks.Open(pathway)
srcDoc.Worksheets(sheetname).Activate
srcDoc.Worksheets(sheetname).Cells(x,y).value = content

' sp1 = Split(pathway,".")
' sp2 = Split(sp1(0),"\")
' num = UBound(sp2)
' use = sp2(num)

' Set a1 = Description.Create()
' a1("text").value="Microsoft Excel - " + use + ".xls"
' a1("window id").value="0"

' Set a3 = Description.Create()
' a3("Class Name").value="WinObject"
' a3("text").value= use + ".xls"

' Window(a1).WinObject(a3).Type micCtrlDwn + "s" + micCtrlUp

Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
WshShell.SendKeys "^s"
wait(1)

srcData.Workbooks.Close
Set srcDoc = nothing

Window("text:=Microsoft Excel").Close
End Function

walker1020 · 发表于 2007-8-28 00:22:52

yuandjing ,你能否说一下 #42 中的许多语句被注释掉的原因吗？谢谢！

yuandjing · 发表于 2007-8-28 08:59:30

回walker1020大哥：
原来是想用描述性编程的思想实现点击ctrl+s进行保存操作Window(a1).WinObject(a3).Type micCtrlDwn + "s" + micCtrlUp
后来发现Excel版本不同，描述性编程的值也不同，有些认a1("text").value="Microsoft Excel - " + use + ".xls"，有些认a1("text").value="Microsoft Excel - " + use
所以后来改用sendkey的方法：WshShell.SendKeys "^s"
来实现了crtl+s进行保存了，各个版本的excel就都适用了

walker1020 · 发表于 2007-8-28 09:14:44

非常感谢yuandjing 的回复。原来是这样，yuandjing 考虑问题真周到，因为你还考虑到了各个Excel 的兼容性，受教了。多谢！

shoulamon · 发表于 2007-8-28 11:36:57

学习了

zhangj8826 · 发表于 2007-9-2 22:50:41

关注！

木卫十二 · 发表于 2007-9-3 09:47:31

我有一个问题，就是pathway必须是绝对路径，对于脚本移置不大方便，有没有用相对路径的办法啊？sdlkfj6

www1816 · 发表于 2007-9-3 09:57:56

学习中

yuandjing · 发表于 2007-9-4 15:53:07

原帖由 木卫十二 于 2007-9-3 09:47 发表
我有一个问题，就是pathway必须是绝对路径，对于脚本移置不大方便，有没有用相对路径的办法啊？sdlkfj6

我试了一下，相对路径是可以的，比如vbs保存在C:\vbs文件夹下，excel在c:\下
只要call QTP_Write_Excel("../xxx.xls","sheetname",1,1,"content")就可以了

xinxiachen · 发表于 2007-9-4 20:31:13

sdlkfj2

three116 · 发表于 2007-9-14 16:23:33

好代码

three116 · 发表于 2007-9-14 16:23:48

顶一下

bamboosll · 发表于 2009-7-3 11:54:47

这个lib很有用啊！

denghuirong · 发表于 2010-1-22 11:22:08

多谢

Tesherlock · 发表于 2010-1-25 17:00:26

好东西，学习了，3Q～

gold_85 · 发表于 2010-2-22 16:37:13

好东西,留个记号..

hello97 · 发表于 2010-2-24 01:03:25

好东西留下了

醉看夕阳红 · 发表于 2010-2-26 14:12:57

新人顶贴

zhengpeipei · 发表于 2010-2-26 16:10:11

学习了

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] 如何将脚本运行完的结果存入EXCEL中

回复 #42 yuandjing 的帖子

学习了

站长推荐 /1