请问如何取出datatable中的语句并运行（问题自我解决）

梦醒十分

在datatable中假设有一个语句如：msgbox "aaa"
那么如何让QTP取出此段并运行呢？
请各位做答。
谢谢

[ 本帖最后由 梦醒十分 于 2006-10-24 13:59 编辑 ]

xiaonan

这样取出来的,QTP只会把它作为一个字符.

梦醒十分

是呀，所以想办法把它自动前后加sub XXX() end sub，然后写出到txt然后，再调用。

梦醒十分

rownumber=DataTable.GetRowCount
   Dim fso, MyFile
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set MyFile = fso.CreateTextFile("c:\testfile.txt", True)
   string1="sub aaa"
   string2="end sub"
   MyFile.WriteLine(string1)
for i=1 to rownumber
DataTable.SetCurrentRow (i)
mystring=datatable.Value("A",dtGlobalSheet )


   MyFile.WriteLine(mystring)
   next
    MyFile.WriteLine(string2)
   MyFile.Close

   ExecuteFile "c:\testfile.txt"
   aaa

想了半天只能读出到txt再读入了。