Export data to Excel using AUTOIT

[oulaya]

hi i have aproblemmhelpp please i want to take data from excel and put iit in my application

how can i do it

[water]

What have you tried so far?

[oulaya]

i want to open a page excel and take value and put it in my application howww.???

[oulaya]

please help

[oulaya]

i tried this

$q_dsl="";
$var = "C:\Users\ZJMD2860\Desktop 1.xlsx"
Func Check_Fichier()
$f_vp = FileOpen($var, 0)
If $f_vp = -1 Then
    MsgBox(0, "Erreur", "Impossible d'ouvrir le fichier : " & $f_vp )
    Return 0
    Exit
EndIf
;~ $q_dsl = StringUpper(InputBox("Reprise ?", "Saisir un DSLAM de reprise si besoin." & @CRLF & @CRLF & "Sinon cliquez CANCEL OU ESC pour TOUT traiter.", "", " M8"))
;~ $q_pop = StringUpper(InputBox("PoP ?", "Saisir le nom du POP pour le suivi : .", "", " M3"))
;~ $q_dsl = ""
;~ $q_pop = 'BOR'
; Comptage nombre de lignes
Global $ligne = 0 ; n° ligne active
Global $nbr_ligne = 0 ; Nbr de ligne à traiter
While 1
    $l_vp = FileReadLine($f_vp)
    If @error = -1 Then ExitLoop
    $ls_vp = StringSplit($l_vp, ";")
    If StringLeft($ls_vp[1],2) = "NM" Then Global $q_pop = StringMid($ls_vp[1],3,3)  ;Saute la 1ère ligne des champs
    If StringLeft($ls_vp[1],2) = "DS" Then $nbr_ligne = $nbr_ligne + 1  ;Saute la 1ère ligne des champs
    If StringInStr(StringUpper($l_vp),StringUpper($q_dsl)) Then Global $q_dsl_ok = 1  ;Saute la 1ère ligne des champs
    If StringInStr(StringUpper($l_vp),StringUpper($q_dsl)) Then Global $ligne = $nbr_ligne  ;Saute la 1ère ligne des champs
Wend
FileClose($f_vp )
Return 1
EndFunc

but didn't open anything

[oulaya]

i tried also this

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

; Create application object and open an example workbook
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error creating the Excel application object." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "Z:\Stage2016\1.xlsx")
If @error Then
    MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example", "Error opening workbook '" & @ScriptDir & "Z:\Stage2016\1.xlsx'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; *****************************************************************************
; Read data from a single cell on the active sheet of the specified workbook
; *****************************************************************************
Local $sResult = _Excel_RangeRead($oWorkbook, Default, "A1")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Error reading from workbook." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
MsgBox($MB_SYSTEMMODAL, "Excel UDF: _Excel_RangeRead Example 1", "Data successfully read." & @CRLF & "Value of cell A1: " & $sResult)

 

[water]

Looks good. So the Excel part is solved now?

[oulaya]

yes now i can open excel but i dont know how can i take value and put in my application 

????

help

[water]

_Excel_RangeRead writes the single cell to variable $sResult.
How to write this variable to your application depends on the application. Is it a Web application or a GUI?

[oulaya]

web application

i want take the value from my excel and put it in textbox the application

 

[water]

Which browser do you run?

[oulaya]

internet exlpoere

[oulaya]

i want to delete same value for my application

iwrite the code for delete its ok but i should put the variable with my hand

and a have 50 variable in excel i wwant take those variable ant put it my application and delete them

[AutoBert]

Use the IE.udf it's delivered with AutoIt, you find in the part User Defined Function Reference ==> IE Management or just by tying

_IE_Example

in scite and using F1 to get help.

[oulaya]

hi thank you for you

i still have probleme

this is my script

 #include <Excel.au3>

#include <IE.au3>

; TO ADD PREFFERED HOTELS FOR A CORPORATE ACCT, JUST CHANGE THE FOLLOWING TWO LINES

; THE URL AND CELL RANGE ARE ALL YOU NEED TO CHANGE AND BE SURE TO

; PUT YOUR EXCEL FILE IN YOUR SCRIPT DIRECTORY AND NAME IT HOTEL_LIST.XLS

;

$corporate_URL = "http://dvedvr44.rouen.francetelecom.fr:9013/ner-training/app/homepage"

$cell_range = "A1:A560"

$FilePath=@ScriptDir & "\1.xlsx"

$hotel_array =_Excel_RangeRead($FilePath,1,$cell_range) ; 1 means sheet 1

$nbr_hotels = UBound($hotel_array)-1 ; stores # of hotels

$oIE = _IEAttach ("eAdvantage help desk", "text")

_IENavigate ($oIE, $corporate_URL)

_IELoadWait ($oIE) ; wait til page loads completely
Func _Main()
    Global $oIE = _IECreate("www.vvv.com", 1)

    _IELoadWait($oIE)
    if WinActive('Log On - Microsoft Internet Explorer - company') = True Then
        MsgBox($MB_SYSTEMMODAL, "", "Exists", 1)
        ConsoleWrite("Exists" & @CRLF)
        WinActivate('Log On - Microsoft Internet Explorer - company')
        Signin($oIE)
    Else
        ;MsgBox($MB_SYSTEMMODAL, "", "Do not exists", 1)
        Global $oIE = _IECreate("http://dvedvr44.rouen.francetelecom.fr:9013/ner-training/app/homepage", 1)
        ConsoleWrite("Do not exists" & @CRLF)
        _IELoadWait($oIE)
        WinActivate('Log On - Microsoft Internet Explorer - company')
        Signin($oIE)
    EndIf
EndFunc

Func Signin(ByRef $oIE)
     Local $user_name = _IEGetObjById($oIE, "nom")
    _IEFormElementSetValue($user_name, "adm", 0)

    Local $password = _IEGetObjById($oIE, "password")
    _IEFormElementSetValue($password, "adm", 0)

$oTDs = _IETagnameGetCollection($oIE, "TD")
$oButtons = _IETagNameGetCollection ($oIE, "INPUT")
    For $oButton In $oButtons
        If $oButton.type = "submit" Then
            _IEAction ($oButton, "click")
            ExitLoop
        EndIf
    Next

Local $pa = _IEGetObjById($oIE, "id2")
    _IEFormElementSetValue($pa, "yee", 0)
$bouton = _IEGetObjById ($oIE, "id12")
_IEAction ($bouton, "click")
sleep(2000)

EndFunc

 

[water]

Please define "I still have problems".
Does your script crash? How far do you come? Does the login work?

[oulaya]

yes the login work thedelete work but the problem how can i take the velue from excel and put it in my link (url)

??

[oulaya]

,,,,,?????

[Jos]

  On 3/30/2016 at 10:03 AM, oulaya said:

,,,,,?????

Expand  

Meaning what?
Don't tell me you expected an answer within 40 minutes  ...right?

Jos 

[mLipok]

@oulaya

Please read this:  * How to post code on the forum *