script.mts

这是一计算器,自己看了就知道,是很有帮助的哦,先不说这么多了,看了你就知道了

Dim xlapp    'As Excel.Application
Dim wkBook   ' As Excel.Workbook
Dim wkSheet   ' As Excel.Worksheet
Dim i    'As Integer
Dim TestNumberOne
Dim TestNumberTwo


     Set xlapp = CreateObject("excel.application")
     Set wkBook = xlapp.Workbooks.Open("D:\课程试验\计算器excel\test.xls")
     Set wkSheet = wkBook.Worksheets("Sheet1")

     systemutil.Run "c:\winnt\system32\calc.exe"
    
     
     For i = 1 To 4
      TestNumberOne = wkSheet.Cells(i, 1)
	  TestNumberTwo=wkSheet.Cells(i,2)
      '‘加个处理   excel处理有问题  字符串的问题
	  TestNumberOne  = left(TestNumberOne,1)
      TestNumberTwo = left(TestNumberTwo,1)
	  ' msgbox TestNumberOne &"_"& len(testnumberone)
	
	 ' msgbox TestNumberTwo
	  
       Window("计算器").Activate
       Window("计算器").WinButton(TestNumberOne).Click @@ hightlight id_;_656694_;_script infofile_;_ZIP::ssf2.xml_;_
       Window("计算器").WinButton("add").Click @@ hightlight id_;_263540_;_script infofile_;_ZIP::ssf3.xml_;_
       Window("计算器").WinButton("2").Click @@ hightlight id_;_591170_;_script infofile_;_ZIP::ssf4.xml_;_
       Window("计算器").WinButton("equal").Click @@ hightlight id_;_263526_;_script infofile_;_ZIP::ssf5.xml_;_
		
     Next 

     xlapp.Quit
     Set xlapp = Nothing

      

	   



    
        



   
  








 @@ hightlight id_;_722256_;_script infofile_;_ZIP::ssf1.xml_;_