Jump to content
Sign in to follow this  
darzanmihai

ExcelCOM_UDF fail to use functions

Recommended Posts

darzanmihai

I am trying to make a script that reads some cells from an Excel file and verifies if in any of thes cells is the name "Total", and if there is, it reads cells from that row.

The script:

#include <ExcelCOM_UDF.au3>

$ExcelFile = FileSaveDialog("Alegeti Fisierul", @DesktopDir, "Fisiere tip Excel (*.xls)", 1)
_ExcelBookOpen($ExcelFile, 0)
_ExcelSheetActivate($ExcelFile, 9)
For $i = 29 To 36;rows from 29 to 36
    $val = _ExcelReadCell($ExcelFile, $i,1)
    If $val = "Total" Then; there is only one value ="Total"
        $j = $i
    EndIf
Next
For $i = 2 To 32;columns from 2 to 32
    $valoare = _ExcelReadCell($ExcelFile, $j, $i);reads the cells 2,3,...,32 of the row $j
    $Sheet = _ExcelSheetNameGet($ExcelFile)
    MsgBox(0, $Sheet & "        Linia" & $j & " Coloana" & $i, $valoare)
Next
_ExcelBookClose($ExcelFile, 0)

what am I doing wrong because, even thought the Excel File I used has a cell "Total" within the range of cells the program is veryfying, it returns only nule values.


I do not like stupid and idiot people that write idiot things...If you are one, do not write.

Share this post


Link to post
Share on other sites
darzanmihai

I am trying to make a script that reads some cells from an Excel file and verifies if in any of thes cells is the name "Total", and if there is, it reads cells from that row.

The script:

#include <ExcelCOM_UDF.au3>

$ExcelFile = FileSaveDialog("Alegeti Fisierul", @DesktopDir, "Fisiere tip Excel (*.xls)", 1)
_ExcelBookOpen($ExcelFile, 0)
_ExcelSheetActivate($ExcelFile, 9)
For $i = 29 To 36;rows from 29 to 36
    $val = _ExcelReadCell($ExcelFile, $i,1)
    If $val = "Total" Then; there is only one value ="Total"
        $j = $i
    EndIf
Next
For $i = 2 To 32;columns from 2 to 32
    $valoare = _ExcelReadCell($ExcelFile, $j, $i);reads the cells 2,3,...,32 of the row $j
    $Sheet = _ExcelSheetNameGet($ExcelFile)
    MsgBox(0, $Sheet & "        Linia" & $j & " Coloana" & $i, $valoare)
Next
_ExcelBookClose($ExcelFile, 0)

what am I doing wrong because, even thought the Excel File I used has a cell "Total" within the range of cells the program is veryfying, it returns only nule values.

My mistake.... forgot to get the right ID of the opened file muttley

#include <ExcelCOM_UDF.au3>

$ExcelFile1 = FileSaveDialog("Alegeti Fisierul", @DesktopDir, "Fisiere tip Excel (*.xls)", 1)
$ExcelFile = _ExcelBookOpen($ExcelFile1, 0)
_ExcelSheetActivate($ExcelFile, 9)
For $i = 29 To 36;rows from 29 to 36
    $val = _ExcelReadCell($ExcelFile, $i,1)
    If $val = "Total" Then; there is only one value ="Total"
        $j = $i
    EndIf
Next
For $i = 2 To 32;columns from 2 to 32
    $valoare = _ExcelReadCell($ExcelFile, $j, $i);reads the cells 2,3,...,32 of the row $j
    $Sheet = _ExcelSheetNameGet($ExcelFile)
    MsgBox(0, $Sheet & "        Linia" & $j & " Coloana" & $i, $valoare)
Next
_ExcelBookClose($ExcelFile, 0)

I do not like stupid and idiot people that write idiot things...If you are one, do not write.

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  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.