Mosses

Not able to read excel data from french system

8 posts in this topic

#1 ·  Posted (edited)

Hi,

I have a script which is running perfectly in Indian system, The same I am running in french system in which I am not able to read excel data.

Can anyone help me on this.

I have checked with keyboard language. changed to french to english and also changed excel language from french to english

 

Edited by Mosses

Share this post


Link to post
Share on other sites



@Mosses do you think, perhaps, that it would help us help you if you posted your script?

1 person likes this

√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Please find my complete script... Thank you in advance to help me.. 

#include <Excel.au3>
#include <MsgBoxConstants.au3>

$WINDOW_NAME="Test"

; Ask for  to be opened
AutoItSetOption ( "WinTitleMatchMode",2)
if not WinExists($WINDOW_NAME) then
    Msgbox (0,"",", de lancer , de se logguer, de lancer la fonction CICS1 et ENSUITE de relancer _DELETE.")
    exit
endif

; Open source EXCEL file
; $FileName=@ScriptDir & "\TSM ODT list to delete.xls"
$FileName=FileOpenDialog("Selectionner le fichier de suppression",@ScriptDir,"Suppr files (*.xlsx)",1)
if not FileExists($FileName) then
  Msgbox (0,"","Error, fichier manquant : "& $FileName)
  Exit
endif
$oExcelDoc = ObjGet($FileName)    ; Get an Excel Object from an existing filename
if not IsObj($oExcelDoc) then
    Msgbox (0,"","Could not open "& $FileName & " as an Excel Object.")
endif

Msgbox (0,"","Merci de cliquer sur l'entête de la fenêtre  ET DE NE PAS CLIQUER JUSQU'A LA FIN.")
if WinWaitActive($WINDOW_NAME) = 0 then
    Msgbox (0,"","Error : Impossible de trouver la fenêtre " & $WINDOW_NAME)
endif

; Iterate on each row
$OEvent=ObjEvent("AutoIt.Error","nothing")    ; Equal to VBscript's On Error Resume Next
dim $row
dim $column
$row=2

; Create application object
                $oExcel = _Excel_Open()
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookOpen Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

; *****************************************************************************
; Create a new workbook with only 1 worksheets
; *****************************************************************************
               $oWorkbook = _Excel_BookNew($oExcel,1)
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookNew ", "Error creating new workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
               MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_BookNew ", "Workbook has been created successfully with only 1 worksheets.")
               Wait()

              Global $k=3
              _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "a", "A2")
              _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "b", "B2")
              _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "c", "C2")
              _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "d", "D2")
              _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "e", "I2")
            _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "f", "J2")
do
     $a=$oExcelDoc.activesheet.cells($row,3).value


    if $a<>"" then
    Ensure()
     $b=$oExcelDoc.activesheet.cells($row,2).value
        $c=$oExcelDoc.activesheet.cells($row,1).value
        $d=$oExcelDoc.activesheet.cells($row,4).value
        $e=$oExcelDoc.activesheet.cells($row,9).value
        $f=$oExcelDoc.activesheet.cells($row,10).value

    ;Entering Screen Number and Aircraft code
      send("200")
      Wait()
      send($b)
      Wait()
      send("{enter}")
      Wait()

   ;Entering Screen Number, File Number , CSN And Item number.
    Ensure()
    Send("25u")
    Wait()
    send($d)
    Wait()
    send($a)
        if StringLen($b) = 8 Then
            send("{TAB}")
            Wait()
        elseif StringLen($b) = 9 Then
           Wait()
        endif
    send($c)
    Wait()
    send("{enter}")
    Wait()
     Wait()

    $f = StringLen($f)

    for $i=3 to $d

      ;Copy the Data
          Sleep(1000)
            send("{TAB}")
         if $row >= 3 Then

            for $j=1 to $f
               Send("{SHIFTDOWN}")
              send("{Right}")
           next

            Send("{SHIFTUP}")
            sleep(1000)
            Send("^c")
            Wait()
            Local $sData = ClipGet()

            Wait()


             Local $rowValueCF = "A"&$k
             Local $rowValueCA = "B"&$k
             Local $rowValueCSN = "C"&$k
             Local $rowValueItem = "D"&$k
             Local $rowValueCCS = "I"&$k
             Local $rowValueDT = "J"&$k

             Local $cfVAlue[$i] = [$a]
             Local $caVAlue[$i] = [$b]
             Local  $csnValue[$i] = [$c]
             Local  $itemValue[$i] = [$d]
             Local  $ccsValue[$i] = [$i]


            ;Paste the Copied Data to Excel
            $asResult = StringRegExp($sData,'([.]{1,40})', 1)
            If @error == 0 Then
               Else
               _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $cfVAlue, $rowValueCF)
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Export ", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

             _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $caVAlue, $rowValueCA)
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Excel Export", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

            _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $csnValue, $rowValueCSN)
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Excel Export", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

             _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $itemValue, $rowValueItem)
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Excel Export", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


            _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $ccsValue, $rowValueCCS)
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Excel Export", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)


            _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, $sData, $rowValueDT)
               If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel Excel Export", "Error writing to worksheet." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

               Wait()
                  $k = $k + 1
                  EndIf
         EndIf
      next


    EndIf

 $row=$row+1

   ; Enter F2 to comeback
     if $row >= 4 Then
         send("{F2}")
         Sleep(1000)
       EndIf

   until $a=""


   ; Close file
$oExcelDoc.Close
Exit


; Check that  is opened
func Ensure()
    if WinWaitActive($WINDOW_NAME,"",1)=0 then
        MsgBox(0,"","Vous avez cliqué hors de  (fenêtre " & $WINDOW_NAME & ") => arret des suppressions")
        exit
    endif
endfunc


; Wait between two commands
func Wait()
    sleep(350)
endfunc

 

Edited by JLogan3o13

Share this post


Link to post
Share on other sites

From the above script it works fine till this line "    _Excel_RangeWrite($oWorkbook, $oWorkbook.Activesheet, "f", "J2") " after that script stops...

Share this post


Link to post
Share on other sites

hello,

 

can not anyone help me on the above issue ASAP..

 

Thank you in Advance.

Share this post


Link to post
Share on other sites

@Mosses in the future please use the <> symbol on the toolbar to put your code into a code box (I have done so for you above). Doing so makes the code much easier to read.

Also, please do not bump your posts without waiting 24 hours (3 times in an hour is a little excessive). This may be the most important thing in the world to you, but you need to give forum users a chance to assist. We have volunteers from all over the globe; the person best equipped to assist you may not be online yet.


√-1 2^3 ∑ π, and it was delicious!

Share this post


Link to post
Share on other sites

@JLogon Sure I will not bump posts without waiting for 24hours.

Thanks for your quick response.

 

 

 

Share this post


Link to post
Share on other sites

You are mixing all possible ways to work with Excel. I think it would be sensible to limit it to the Excel UDF. This includes error handling etc.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2017-04-18 - Version 1.4.8.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (NEW 2017-02-27 - Version 1.3.1.0) - Download - General Help & Support - Example Scripts - Wiki
ExcelChart (2015-04-01 - Version 0.4.0.0) - Download - General Help & Support - Example Scripts
Excel - Example Scripts - Wiki
Word - Wiki
PowerPoint (2015-06-06 - Version 0.0.5.0) - Download - General Help & Support

Tutorials:
ADO - Wiki

 

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

  • Similar Content

    • sree161
      By sree161
      Hi,
      i have a code which generates two numeric outputs.i have to save them in excel.
      Is there any way to export them to specific cells in excel???
    • TotalAuto
      By TotalAuto
      Howdy All
      I've gone around and around in circles wasting hours trying to fix this problem to no avail so I thought I would try posting for help given there are some real smart people in this forum.
      Background
      I have 5 separate .au3 scripts that all do different basic tasks. For example:
      1.au3 = opens Chrome browser to obtain information from a specific website then closes
      2.au3 = opens an Excel workbook to run a macro then saves and closes
      3.au3 = Open two seperate workbooks and transfers data from one to the other then saves and closes
      4.au3 = .......etc
      5.au3 = .......etc
      These 5 separate scripts, doing completely different tasks, need to each run once per day at 5 different designated times within a day and then close. For example:
      1.au3 = 10am
      2.au3 = 12pm
      3.au3 = 2pm
      4.au3 = 4pm
      5.au3 = 5pm
      Problem
      I can not get these different scripts to reliably run at their designated times. When I manually run these scripts individually by using 'Go F5' they work perfectly. If I convert these scripts to an .exe and manually run each one they work about 98% of time.
      How can I schedule these different .au3 files or associated .exe files to reliably run each day at different times?
      Attempts To Fix The Issue
      1. I have tried converting each .au3 script into their own .exe file and use Window's Task Scheduler to run these .exe files at their designated time but the success rate  of running each .exe in full, to completion, without error is very low at about 30%. Things that commonly go wrong include a browser not opening but movement still continues on the desk top. Other times things just do not happen at all.
      2. I have Windows 7 64 bit and have tried creating and running both (x86) and (x64) .exe files but again reliability problems exist;
      3. I have also tried moving each .exe file to the My Documents folder as I read someone that keeping your files on your desktop ties your files to individual Windows user profiles which can cause AutoIt operating errors. Not sure if this is correct but thought I would try it anyway. It did not fix my issue.
      4. I installed a program called AlwaysUp which supposedly always reliably runs in the background and will reliably execute your AutoIt script or .exe files. Still have significant reliability issues.
      Therefore, can someone please provide advice on how I can get my 5 different .au3 files to run at 5 designated times through the day, every day, without fail? Overtime I will be creating more and more different .au3 files to run certain tasks throughout the day and do not want to create one large AutoIt file that continually runs and attempts to do all the different tasks itself.
      Any help is very appreciated.
      Thanks
      Dan
       
       
    • hugomito
      By hugomito
      Hi all,
      I built an AutoIt application that interacts with several other applications/software. Now, it's turn to interfact with Visual Studio Team Services (VSTS).
      Does anyone has a blog, demo, script to share?
      Thanks!
    • Viki
      By Viki
      This is my first time here so please dont bombard me that what a silly question I am asking!!
      I have 500 rows (A1:A500) in a spreadsheet and I just want to copy one by one row and then paste into another application and then press enter, loop should repeat this until finishes all 500 rows.
      I have looked at clipget(), clip(put() but dont know how to select next row in next turn. I also looked at Array to store but again no luck. Can some guide me please..
    • DineshPawar
      By DineshPawar
      0down votefavorite   In my current project, Excel macro open AutoIt script using a function Call Shell("location of autoit script").
      For proper functioning of AutoIt script it's need to be close parent Excel workbook, so this closing Excel action is written in AutoIt script itself.
      But as soon as AutoIt script close parent Excel workbook then script get pause and it do nothing.
      How open the AutoIt script from Excel workbook and after that parent Workbook get close?