这个报错怎么回事？

mustwangrong

Run Error:Invalid characterLine (1)
代码如下
datatable.ImportSheet "C:\excelsheet\login2.xls", "Login", "Action1"
CommonLogin(1)
executefile  "[QualityCenter] Subject\Satal\Windows 2K / IE6.0\QTP\PB=P+B.vbs"
executefile "[QualityCenter] Subject\Satal\Windows 2K / IE6.0\QTP\PB=APro.vbs"

运行的时候，看到sheet已经导进datatable了。但是commonlogin后executefile之前，又从第一行执行。

[ 本帖最后由 mustwangrong 于 2008-5-8 18:05 编辑 ]

没有蛀牙

没有找出什么错误
这句：CommonLogin(1)
是什么意思？

mustwangrong

自定义的函数
有没有什么设置,让每次executefile都importsheet?

dreamever

不知道报什么错误，如果能把那个函数的代码和错误信息贴出来就好了。

mustwangrong

Public Function CommonLogin(InputData)
Dim i
i=InputData
Select Case i
case 1:
        datatable.LocalSheet.SetCurrentRow(1)
case 2:
        datatable.LocalSheet.SetCurrentRow(2)
case 3 :
        datatable.LocalSheet.SetCurrentRow(3)
case 4 :
        datatable.LocalSheet.SetCurrentRow(4)
End Select
Browser("FIN DIRECT").Page("FIN DIRECT").WebEdit("user").Set datatable("LoginID", "Action1")
Browser("FIN DIRECT").Page("FIN DIRECT").WebEdit("passwd").Set ("welcome1")
Browser("FIN DIRECT").Page("FIN DIRECT").WebCheckBox("SAVE").Set "OFF"
Browser("FIN DIRECT").Page("FIN DIRECT").Image("signon").Click 27,5
Browser("FIN DIRECT").Page("FIN DIRECT_2").Frame("MainToolbar").Link("sp").Click
End Function

Public Function CommonLogout()
Browser("FIN DIRECT").Page("FIN DIRECT").Frame("MainToolbar").Link("Sign Off").Click
End Function
这个vbs是加在resourse里的
执行完成login后又importsheet一次!!

[ 本帖最后由 mustwangrong 于 2008-5-7 16:15 编辑 ]

mustwangrong

上图
执行完import 和login后又回到第一行去，循环的原因吗？高手请赐教

wyy83

datatable.ImportSheet "C:\excelsheet\login2.xls", "Login", "Action1"

ImportSheet filename ,sheetsource, sheetdest

sheet的源和目的表顺序没弄错吧

wyy83

Browser("FIN DIRECT").Page("FIN DIRECT").WebEdit("user").Set datatable("LoginID", "Action1")中的Action1是不是已经被导入的Login替换掉了,所以找不到?

mustwangrong

这个语句已经成功执行了Commonlogin也没有问题
关键是Commonlogin()之后又重新回到第一行执行了-_-#

xiaodong

Select Case i
case 1:
        datatable.LocalSheet.SetCurrentRow(1)
case 2:
        datatable.LocalSheet.SetCurrentRow(2)
case 3 :
        datatable.LocalSheet.SetCurrentRow(3)
case 4 :
        datatable.LocalSheet.SetCurrentRow(4)
End Select

直接用datatable.LocalSheet.SetCurrentRow(i)不行吗?这段写的没有必要.

mustwangrong

呵呵，这样改不错，但是如果把123换成各种角色名字,admin...
不过我的问题还是没有解决,论坛乏人啊

mustwangrong

和executefile有关
把里面的代码靠出来就不会回到首行
研究中...这个论坛...唉

zte_boy

搞不懂楼主的意图
为什么要“执行完成login后又importsheet一次!!”？
你执行完Commonlogin后又importsheet，把原来的sheet重新覆盖了，当然每次都从第一行执行啊
如果你是要执行全部用户的话，你导入一次，再做循环不就好了
最后在deletesheet不就好了

mustwangrong

我没有想要“执行完成login后又importsheet一次!!”
我现在就是这样的
我想解决这个问题
好像是executefile的问题...

mustwangrong

没人知道？
顶一下

makanmakan

同样问题，
比如我做了一个 action 1
里面执行
Option Explicit
dim aaa,bbb,ccc
executefile "c:\aaa.vbs"

aaa.vbs内容如下：
msgbox("test1")
每次运行都会出现 run error:不正確的字元   光标跳到option explicit这边

希望有人可以解答