Count Rows across Multiple Workbooks

[ncurran217]

I have found a VBA Macro by searching for this, but it does not seem to work, and was wondering if it was old and needed to be updated or if there is something missing.

What I am trying to accomplish is I have a directory with 20-30 csv files. Each is a list and I want to run this macro and it list out each sheet and the total number of rows are in each file, without having me to manually open each one and go to the last row and type/write it down and then close the file and repeat.

Here is the code that I found that isn't working:

Please Login or Register  to view this content.

I had the path set correctly just changed to generic.

Let me know if there is something I need to explain further! Thanks in advance for the help!

[AB33]

I have not looked at your code in details, but this line

Please Login or Register  to view this content.

seems to work on the last row in column A. You have not specified which column you are looking for the last row. If it is in the whole sheet1, it is not going to work as you have restrcited you search for column A only.

[ncurran217]

It is Column A I am looking at.

Here is the code unmodified and their response on what it should do:

Please Login or Register  to view this content.

[ncurran217]

I am just looking to get a count of the number of rows in the sheet that has data in columns A through K, but do not need a count of every cell, just how many rows of data there is.

[AB33]

Please Login or Register  to view this content.

[ncurran217]

And where does that go within that code?

[ncurran217]

Also, right now when I run it, it just opens the file, doesn't do anything else, close or nothing.

[ncurran217]

Anyone else have any ideas?

[AB33]

Please Login or Register  to view this content.

gives me n, count of 99. You can do similar with your code.

[ncurran217]

I put that into a Workbook and it doesn't print out anything.

[ncurran217]

My original code that I posted, seems to work with a really small file, but my actual files that have over 100,000 rows in them it seems to not continue after opening the first file.

[AB33]

Please Login or Register  to view this content.

[ncurran217]

Putting that in gives me a Run-time error '13': Type mismatch

[ncurran217]

If I put this:

Please Login or Register  to view this content.

I get:

Run-time error '6': Overflow

and since I have a couple small files in the folder it counted them correctly, but stops on the big file.

[ncurran217]

Got it to work. Had to change the Integer to Long, and I got what you had started AB33, into the code and it works great.

Here is the final code that works:

Please Login or Register  to view this content.

[AB33]

ncurran,
It was the way you had asked question. If you had wanted the last row, not rows count, I would have spotted the error. I thought you wanted to count how many rows with data you have in each sheet, not the last row with data in each sheet.
Range("A300000). Yes, an integer could only hold not more than 38000.
The bottom line is you have now the solution. Great!