Sign in to follow this  
Followers 0
Redgirl

wihle Wend for my excel script

1 post in this topic

Hello all

1st. Sorry for my bad English I’m Dutch and English is not my best language.

I have a Problem with finishing my Script. I have never bevor work with Autoit in

Combination with Excel. I hope you can help me.

I have create my basic script for a program to found duplicated cases in my

QWS3270 program.

All new cases will be copied inside a Excel sheet in line A

My tool must copies the information from A1 and run a script

In this scripted will be copy new data’s inside the clipboard

And must be passed inside B1

After this he must follow up this with read details in A2 script past info B2 etc.

I can not say how may cell in line A will be used it is different. It can be 30 or 600

But this program must stop at the last cell.

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.6.1
Author:      Lilly Jansen
Script Function:
Template AutoIt script.
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here

#include <Excel.au3>
 
$sFilePath1 = @ScriptDir & "\Test1.xls" ; Diese Datei sollte bereits existieren

$oExcel = _ExcelBookOpen($sFilePath1)
$sCellValue = _ExcelReadCell($oExcel, 1, 1)
clipput($sCellValue)
 
; That scripted will be changed it was only for testing the will make the _ExcelReadCell($oExcel, 1, 1) sin
 
WinActivate ("a1.txt")
WinWaitActive ("a1.txt")
Sleep (1000)
Send("{LSHIFT down}")
send ("{right 6}")
Send("{LSHIFT up}")
send ("^c")
While Sleep(50)
$sText = ClipGet()
_ExcelWriteCell($oExcel, $sText, 1, 2)
Do
Sleep(50)
Until ClipGet() <> $sText
WEnd

Please can anyone help me

Thanks

Redgirl

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0