Jump to content
TheDcoder

Trying to loop through every row in a Excel sheet

Recommended Posts

TheDcoder

Hello :)
I am relatively new to the world of Microsoft Office and the Excel UDF.

I am trying to loop through every row in a spreadsheet and get the text/values from each column in the given row... so far I have looked into the Help file for the Excel UDF and the wiki page for Excel UDF but I have no idea about how this is done :(... This is all I have in my script:

Global $oExcel = _Excel_Open(False, False, False, False, True)
Global Const $sSpreadsheet = @ScriptDir & '\data.xlsx'
Global $oSpreadsheet = _Excel_BookOpen($oExcel, $sSpreadsheet, True, False)

; ...

I am placing my bet on the _Excel_Range functions... especially _Excel_RangeRead. I don't know how $vRange works so I would be glad if someone can point me in the right direction :D. What I would ideally like is to get all of the contents of the spreadsheet (it's just a normal text one) in a 2D array.

Thanks in Advance!

Edited by TheDcoder
Add tags to the thread

AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
TheDcoder

Wow! :o
It was so easy! :thumbsup:
Also, if possible, is there way to exclude blank rows in the _Excel_RangeRead function?


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
Subz

No unfortunately, well not that I've ever seen without manipulating the document first, it's probably easier just to loop through the array and remove the empty rows.

Share this post


Link to post
Share on other sites
TheDcoder

I see... Okay, thanks for the help :)


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
anthonyjr2

I came upon this function a while ago if you want to have a premade way of removing blanks:

Func _ArrayRemoveBlanks(ByRef $arr) ;self explanatory
  $idx = 0
  For $i = 0 To UBound($arr) - 1
    If $arr[$i] <> "" Then
      $arr[$idx] = $arr[$i]
      $idx += 1
    EndIf
  Next
  ReDim $arr[$idx]
EndFunc

Just makes it super simple, I copy this into my scripts whenever I need to work with arrays.


UHJvZmVzc2lvbmFsIENvbXB1dGVyZXI=

Share this post


Link to post
Share on other sites
TheDcoder

@anthonyjr2 That's a strange way to remove blanks from an (1D) array... I wonder why it rewrites a row with the same contents? ($arr[$idx] = $arr[$i])


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
anthonyjr2

To be fair I never actually checked to see how it worked, I got it from here a long time ago:

But from looking at it now, what it's doing is going through and checking to see if each element is blank. If it isn't blank, it adds it to a new array. That way in the end the array will only contain non-blank elements. So that line is just putting the nonblank elements into a new array.


UHJvZmVzc2lvbmFsIENvbXB1dGVyZXI=

Share this post


Link to post
Share on other sites
TheDcoder
5 minutes ago, anthonyjr2 said:

it adds it to a new array

I can only see one array and that is $arr ;)

5 minutes ago, anthonyjr2 said:

That way in the end the array will only contain non-blank elements.

No, what it's doing is using $idx to count all "non-blank" elements and and resizing/trimming the array using ReDim

Edited by TheDcoder

AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
anthonyjr2

Oh, you're right there is only one array. Regardless it still basically does the same thing, just modifying the original array instead of creating a temporary one.


UHJvZmVzc2lvbmFsIENvbXB1dGVyZXI=

Share this post


Link to post
Share on other sites
TheDcoder

@anthonyjr2 Your statement only makes it look smarter to be honest :D. There are several flaws... not to mention the obvious unnecessary rewriting of elements.... or that is what I thought until now. It actually moves all non-empty elements up, shifts all gaps to the bottom and then truncates the array. I have to admit, it's clever... but not very effective! Still does the job though, so I guess we can use it when feeling lazy :).


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
water

I suggest to loop through the array; write the line numbers of empty rows to a string so you get a valid range for _ArrayDelete; then call _ArrayDelete a single time passing the mentioned string.


My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
TheDcoder

@water That is what I had in mind :).

I am urged to create another function which can remove all blank elements with the most efficient way to do it... but if I do that, I will be pushing my personal projects again... they have crossed the deadline a long time ago :(


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
anthonyjr2

I admit I didn't have performance in mind when I was looking for a solution....usually when I am throwing a project together I use the first working answer I come across :sweating:

 

P.S. This is my 200th post :D

  • Like 1

UHJvZmVzc2lvbmFsIENvbXB1dGVyZXI=

Share this post


Link to post
Share on other sites
water

Congrats :D

  • Like 1

My UDFs and Tutorials:

Spoiler

UDFs:
Active Directory (NEW 2018-06-01 - Version 1.4.9.0) - Download - General Help & Support - Example Scripts - Wiki
OutlookEX (2018-01-27 - Version 1.3.3.1) - 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
TheDcoder

Yep, I can understand :).

P.S Congratulations on the 200th post

  • Like 1

AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
Subz

I think it depends on what the end result you want for example do you only want to remove blank rows or blank cells?  For example would you want to just remove Row 3 or all blanks and move them up?

|   A   |   B   |
|   A1  |   A1  |
|       |   A2  |
|       |       |
|   A4  |       |
|   A5  |   A5  |

Anyway I figured out how to do it within Excel and then export it to an Array, just need to comment/uncomment the Row or Cell section in the code to see both examples.

#include <Array.au3>
#include <Excel.au3>
Global Const $xlByRows = 1
Global Const $xlByColumns = 2
Global Const $xlPrevious = 2
Global Const $xlUp = -4162
Global $oExcel = _Excel_Open(False, False, False, False, True)
Global $sWorkbook = @ScriptDir & '\Filename.xlsx'
Global $oWorkbook = _Excel_BookOpen($oExcel, $sWorkbook, True, False)

;~ #### Begin Remove All Blank Rows #### ~;
    Global $oEntireRow, $iLastRow = $oWorkbook.ActiveSheet.Cells.Find('*', $oWorkbook.ActiveSheet.Cells(1, 1), Default, Default, $xlByRows, $xlPrevious).Row
    For $i = $iLastRow To 1 Step - 1
        $oEntireRow = $oWorkbook.ActiveSheet.Cells($i, 1).EntireRow
        If $oExcel.WorksheetFunction.CountA($oEntireRow) = 0 Then $oEntireRow.Delete
    Next
;~ #### Begin Remove All Blank Rows #### ~;

;~ #### Begin Remove All Blank Cells #### ~;
;~  $oWorkbook.ActiveSheet.UsedRange.Cells.SpecialCells($xlCellTypeBlanks).Delete($xlUp)
;~ #### End Remove All Blank Cells #### ~;

Global $aWorkbook = _Excel_RangeRead($oWorkbook, Default, $oWorkbook.ActiveSheet.UsedRange)
_Excel_BookClose($oWorkbook, False)
_Excel_Close($oExcel)

 _ArrayDisplay($aWorkbook)

 

Share this post


Link to post
Share on other sites
TheDcoder

@Subz It works! I have no idea how... but it does work :D. Although I have noticed that it can take a while (around 5 seconds for me) for the code to filter all blank rows :)


AutoIt.4.Life Clubrooms - Life is like a Donut (secret key)

Spoiler

My contributions to the AutoIt Community

If I have hurt or offended you in anyway, Please accept my apologies, I never (regardless of the situation) mean to do that to anybody!!!

3fHNZJ.gif

PLEASE JOIN ##AutoIt AND HELP THE IRC AUTOIT COMMUNITY!

Share this post


Link to post
Share on other sites
iamtheky

instead of the loop you can use the specials as well (works especially well if you have to only check one column, should be similar for checking the whole row).  Would look something like:

#include <Array.au3>
#include <Excel.au3>
Global $oExcel = _Excel_Open(False, False, False, False, True)
Global Const $sSpreadsheet = @ScriptDir & '\filename.xlsx'
Global $oSpreadsheet = _Excel_BookOpen($oExcel, $sSpreadsheet, True, True)


$oExcel.activesheet.Range("A1:A10").SpecialCells($xlCellTypeBlanks).EntireRow.Delete = True


Global $aSpreadsheet = _Excel_RangeRead($oSpreadsheet , Default , Default , 1)
_Excel_BookClose($oSpreadsheet, FALSE)
_Excel_Close($oExcel , FALSE , TRUE)
_ArrayDisplay($aSpreadsheet)

 


,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-.
|(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/
(_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_)
| | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) (
| | | | |)| | \ / | | | | | |)| | `--. | |) \ | |
`-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_|
'-' '-' (__) (__) (_) (__)

Share this post


Link to post
Share on other sites
Subz

@iamtheky That would work if you had a key column (with blank rows to show new range, see example below), but wouldn't work with the example I posted above, which is why I used the loop and the CountA function against each row (for deleting rows anyway).  Which is why it's slow to get a result,  As mentioned above it really depends on the workbook layout and also how you want the information returned.

|   A   |   B   |
|   A1  |   B1  |
|   A2  |   B2  |
|       |       |
|   A4  |   B4  |
|   A5  |       |
|   A6  |   B6  |
|       |       |
|   A8  |   B8  |

 

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

    • Ahmed101
      By Ahmed101
      I have more than 12 workbooks opened together, if i wanted to attach to the last workbook opened it will take more than 1 minute !
      Is there any solution for that ?
    • Daniza
      By Daniza
      Hello! where should I start, if I want to have a Progress Bar while waiting for my File to be open, can I use WinWaitActive? Thanks,
    • Evolutionnext
      By Evolutionnext
      I am still a noob and not a programmer, would greatly appreciate your help.
       
      Task:
      Open Excel file with file path and name: C:\Users\GENOBEAUTYPC1\Desktop\ACTIVE BEAUTY LABELS\BeautyMe Label 200ml ACTIVE VERSION.xlsx
      This file path and name is saved in the variable: $sAnswer
      Go to Excel Tab called "formular"
      Go to Cell A1
      Insert the text saved in the variable: $sAnswer2
      ATTENTION!!! This has 2 problems.
      Problem number 1: This text contains special characters that need to be interpreted as raw text. (content is: Gemischt für#30 ml#Mindestens haltbar bis#Maria Wallerstorfer#Anwendung: Täglich 1x morgens auf das gereinigte Gesicht auftragen. Augenkontakt vermeiden.#Über 0 C° und unter 25 C° lagern.#Lot:N8A1028/D30/V2.1#Genome Plus GmbH#Georg-Wrede-St. 13, D-83395 Freilassing#GEN SERUM#DAY)
      Problem number 2: This textis longer than 255 characters.
       
      Can anyone help me?
       
      I try to do it really primitively by opening the excel, waiting until it is open, clicking where the tab is, clicking where the cell is and inserting the content of the variable, but I am stuck at the point where I am limited by 255 characters.
       

      ; Opening the right excel FileChangeDir
                  tooltip("File exists and is called:"&$sAnswer ,300,300)
                  ShellExecute($sAnswer ,"" ,"" ,"" , @SW_MAXIMIZE)
                  sleep(7000)
                  
                  tooltip("Now lets insert the right content into the excel",300,300)
                  MouseClick("left",226,1004)
                  MouseClick("left",52,179)
                  sleep(500)
                  Send("A1")
                  sleep(500)
                  send("{enter}")
                              tooltip("inserting label content",300,300)
                  sleep(500)
                  Send($sAnswer2,  1)
                                          tooltip("inserting INCIS",300,300)
                  sleep(5000)
                  Send($sAnswer3, 1)
                  sleep(5000)
       
       
       
    • AzgarD
      By AzgarD
      Hi guys. I know this is a newbie topic, very newbie, but i've read a lot of stuff and still don't get it. I just need to copy something from Excel cell, paste this in other program, copy something in this program and paste in other Excel cell. Something like...
      Copy A2 Use some WindowActivate and MouseMove stuff and CTRL+C (not a problem) Go back to the Excel sheet Paste that content in C2 Then Copy A3 Use some WindowActivate and MouseMove stuff and CTRL+C (not a problem) Go back to the Excel sheet Paste that content in C3 ... And it goes on The problem is, how can i "communicate" with Excel and do this row change? Like A2 to C2 and A3 to C3 ... In a efficient way that can be done like hundreds of times.
      Very newbie question but still not understanding this.
       
      Ty guys.
    • Gowrisankar
      By Gowrisankar
      Dear members of the forum,
      I need to open excel files that may or may not need a password and finally move the files that needs password to manual queue.
      Is there a fastest way to do this?
       
      PS: I have a huge respect for the rules of this forum. I am not asking assistance to override any security measure. I just need to segregate the files that needs passwords.
×