Adodb.recordset issue with column containing numbers and numbers formatted as text

[uk747]

Have a column in closed workbook.

Some are numbers and some are numbers but formatted as text, even though the column is formatted as general

When I use my adodb.recordset to get the data, all the data is fine, except the column with numbers

All the numbers come through, but the ones formatted as text come through blankdoesnt happen every time but frustrating when it does. Is ther a setting which will do all


E.g.
123
123
456
456

Will come through as
123

456

also even tried
1
2
3
a
b
c
4
5
6

Which came through as

1
2
3


4
5
6

 

[Micron]

Not real clear to me what you're doing (looping through a recordset?). Then maybe try IsNumeric function on each value - but do what if true and do what if false? Or ignore because I'm way off base with the requirement and issue...

 

[uk747]

Want to transfer all data from MYDATA sheet including columns that contain a mix of numbers and text or numbers formatted as text. I.e. 123, abc or something like 123-567-788

Rs.open "SELECT * FROM [MYDATA] ", con

Thisworkbook.sheets("sheet2").range("D8").copyfromrecordset rs

 

[Micron]

ADODB is not my thing, so I'll have to leave this to someone else, but I have to wonder why you don't just copy and paste the range or use TransferSpreadSheet function.

 

[uk747]

What's transfer spreadsheetfunction ???

 

[Micron]

Umm, you've heard of Google right?
Look for TransferSpreadSheet function, not transfer spreadsheetfunction. The details are fairly extensive and are not conducive to answering that question here. Perhaps it doesn't even apply to what you're doing.

 

[uk747]

Need excel to excel not access

 

[Micron]

Trying to write vba code to import another spreadsheet... - ExcelBanter

I know this is simple, but it's not working for me. When I import another spreadsheet a number of column names are not imported. The columns are not

www.excelbanter.com

Poster seems to have had the same issue as you. Apparently solved via copying the range.