angle-ying 发表于 2010-3-30 11:11:16

大家帮我看下脚本该如何负值呢 谢谢

脚本意思就是：我想要把参数话的东西放到外部excel表中，然后从外部调该excel文件，并且把不同功能的模块做成一个function 然后运行该项目
//调用外部文件
Dim fso,filePath,l,a

Dim ExcelBook,ExcelSheel,myExcelBook,myExcelSheet1,myExcelSheet2,myExcelSheet3

filePath="E:/case3.xls"
Set fso = CreateObject ("Scripting.FileSystemObject")
Set ExcelBook = CreateObject("Excel.Application")
Set ExcelSheel = CreateObject("Excel.Sheet")


Set myExcelBook = ExcelBook.Workbooks.Open(filePath)
Set myExcelSheet1 = myExcelBook.Worksheets("sheet1")
Set myExcelSheet2 = myExcelBook.Worksheets("sheet2")
Set myExcelSheet3= myExcelBook.Worksheets("sheet3")
//送礼物函数
FunctionSendGift(sendMail,sendMsg,sendNickName)               
                        Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Page("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Link("立即赠送_2").Click
                                Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Page("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,_6").WebEdit("email").Click
                    Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Page("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,_3").WebEdit("email").Set sendMail
                    Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Page("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,_3").WebEdit("message").Set sendMsg
                    Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Page("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,_3").WebEdit("name").Set sendNickName
                                Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Page("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,_3").Link("赠送").Click

                                '===================judge
                Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Dialog("Windows Internet Explorer").WinButton("确定").Check CheckPoint("确定")
                                Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Dialog("Windows Internet Explorer").WinButton("确定").Click
                                Browser("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,").Page("咔咕,虚拟礼物,免费QQ头像,免费QQ秀,节日祝福,个性化,_5").Link("重新选择礼物").Click
         
End Function



//调用 SendGift 函数给三个参数负值，从外部文件中取得
For i=1 to 3


                   
                SelectCasei

                        Case 1:        call SendGift( "myExcelSheet1.cells(i, 1).value ","myExcelSheet2.cells(i, 1).value ","myExcelSheet3.cells(i, 1).value")
               
                   Case 2:        call SendGift("myExcelSheet1.cells(i, 1).value ","myExcelSheet2.cells(i, 1).value ","myExcelSheet3.cells(i, 1).value")
               
                   Case 3:        call SendGift( "myExcelSheet1.cells(i, 1).value ","myExcelSheet2.cells(i, 1).value ","myExcelSheet3.cells(i, 1).value")
             
               
                End Select

Next

shotstar 发表于 2010-3-30 12:00:28

额，不需要打引号，打引号就变成字符串了。
另外你的For循环里，太冗余了，没必要Select Case。。。。

For i=1 to 3
         call SendGift( myExcelSheet1.cells(i, 1).value ,myExcelSheet2.cells(i, 1).value ,myExcelSheet3.cells(i, 1).value)
Next

select case一般用于处理结果不太相同的分支，对于你上面3种case的情况后面的处理方式都一样，根本没必要，上面的代码和你的是一个意思。。
你执行不成功估计主要就是因为"myExcelSheet1.cells(i, 1).value "你打了引号。

yujie6832 发表于 2010-3-30 12:57:40

呵呵，2楼说的挺详细了

angle-ying 发表于 2010-3-30 13:40:54

谢谢 太感谢了 我都为这个问题烦恼一天了
页: [1]
查看完整版本: 大家帮我看下脚本该如何负值呢 谢谢