How to get two dimensional array from a two dimensional filtered range

[ForumExcel]

Set rst = CreateObject("ADODB.Recordset")
Set sourceRange = qt.ResultRange.SpecialCells(xlcellTypeVisible)
arr = sourceRange.Value

When the spreadsheet is not filtered arr (an array) is a two-dimensional range with number of rows and columns as expected. I use this arr to populate rst to put data in database.

But when filtered on one column, which in one of my examples, gives one row below headers, arr is only one row, the header row. I know this because I print out the arr. Same thing happens even when my filter gives more than one rows.

How can I get all filtered rows? I need this to work so multiple users can work simultaneously to upload different sections of spreadsheet.

I'd appreciate your help.

Thank you!

 

[dmt32]

Hi,

Have a look here:How do I copy a filtered range into an array? (Excel VBA) - Stack Overflow

Hopefully, may be of some help to you.

Dave