Obtain cells value in excel

[lafafmentvotre]

Hi everybody

First sorry for my bad english.

Second, i need a script to read an excel file and read full cells and put these in a array.

I use this :

;###################################################################
;AutoIT Variables
#include <Array.au3>
#include <Excel.au3>
;###################################################################
;Script Variables
Local $List

;~ Func _GetOU($ID)
$FileName=@ScriptDir&"\Site_OU.xls"
$oExcel = ObjGet($FileName)
$aArray1 = _ExcelReadArray($oExcel, 2, 1, 10, 1) ;Direction is Vertical
$aArray2=_ArrayDisplay($aArray1, "Vertical")

The problem is to have only the full cells.

If i wrote value in cells after range A7, i haven't value in array.

And if my cells value end in A20 in excel, i haven't value.

I need this values to increment a GUICtrlCreateCombo.

Thanks for help and really sorry for details and english

Edited June 24, 2009 by lafafmentvotre

[KenNichols]

Hi everybody

First sorry for my bad english.

Second, i need a script to read an excel file and read full cells and put these in a array.

I use this :

;###################################################################
;AutoIT Variables
#include <Array.au3>
#include <Excel.au3>
;###################################################################
;Script Variables
Local $List

;~ Func _GetOU($ID)
$FileName=@ScriptDir&"\Site_OU.xls"
$oExcel = ObjGet($FileName)
$aArray1 = _ExcelReadArray($oExcel, 2, 1, 10, 1) ;Direction is Vertical
$aArray2=_ArrayDisplay($aArray1, "Vertical")

The problem is to have only the full cells.

If i wrote value in cells after range A7, i haven't value in array.

And if my cells value end in A20 in excel, i haven't value.

Thanks for help and really sorry for details and english

Take a look.

#include <Excel.au3>

Local $oExcel = _ExcelBookNew();Create new book, make it visible

For $i = 1 To 5;Loop
    _ExcelWriteCell($oExcel, $i, $i, 1);Write to the Cell
Next

For $i = 1 To 5;Loop
    $sCellValue = _ExcelReadCell($oExcel, $i, 1)
    If $sCellValue <> "" Then MsgBox(0, "", "The Cell Value is: " & @CRLF & $sCellValue, 2)
Next

Edited June 23, 2009 by KenNichols

[lafafmentvotre]

Thanks for response but i saw this script in help.

My problem is i need to change loop when i write a new value. It's not dynamics.

[PsaltyDS]

Thanks for response but i saw this script in help.

My problem is i need to change loop when i write a new value. It's not dynamics.

I don't understand your problem description. You can get all used cells in one array like this:

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

Local $oExcel = _ExcelBookNew();Create new book, make it visible

For $i = 1 To 5
    _ExcelWriteCell($oExcel, $i, $i, 1);Write to the Cell
Next
$avSheet = _ExcelReadSheetToArray($oExcel)
_ArrayDisplay($avSheet, "$avSheet")

Now it's just a problem of how you want to access the array.

[lafafmentvotre]

Hello

It's very difficult to explain.

1. In my excel file, i have, for example, these values :

2. I need to read these values (only used cells in column "A" without title "SITE") and grab it in autoit.

3. I need to use these values to update a GUICtrlCreateCombo

My problems are :

1. How to do this ?

2. if i add values in column "A" (like A8, A9, A10, Etc.), how can i grab only all used cells values without change script (dynamics) ?

Thanks for help

[lafafmentvotre]

Hello

It's ok for me.

A friend give me solution :

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

$sFilePath1 = @ScriptDir & "\Site_OU.xls" ;This file should already exist
$oExcel = _ExcelBookOpen($sFilePath1,0)

$aArray2 = _ExcelReadArray($oExcel, 2, 1, 3000, 1) 

_ExcelBookClose($oExcel)

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 633, 454, 193, 115)
$Combo = GUICtrlCreateCombo("", 88, 120, 353, 25)
$list_combo = ""
For $y=1 to UBound($aArray2) -1
    If $aArray2[($y)] <> "" Then
        $list_combo = $list_combo & "|"
        $list_combo = $list_combo & $aArray2[($y)]
    EndIf   
Next
GUICtrlSetData($Combo, $list_combo) ; add other item snd set a new default
$Button1 = GUICtrlCreateButton("Quitter", 104, 240, 177, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1 
Dim $u_msg 
$u_msg = GUIGetMsg(1) 
    If $u_msg[1] = $Form1 Then 
        Select 
            case  $u_msg[0] = $Button1 Or $u_msg[0] = $GUI_EVENT_CLOSE 
                ExitLoop
        EndSelect 
    EndIf 
Wend

This topic can be archived

Thanks for all

Edited June 24, 2009 by lafafmentvotre