Here is the code piece...

With ThisWorkbook.Sheets("XX XX")
..Range(.Cells(4, 2), .Cells(intMaxRow + 3, _
intMaxCol + 1)).CopyFromRecordset rs
End With


Does anyone have experience of using CopyFromRecordset? I used it to
copy data from Access to Excel Worksheet. However, all those data
(with numerical ) are being changed to date. I have to mannually
format those cells before they can display correct. Thanks so much in
advance if you know what is the problem...

I'm having a similar issue, except for me it's numbers in the PREVIOUSLY active worksheet that are being formatted to dates.

I'm using Excel 2007.



sunzhoujia wrote:

Is CopyFromRecordset a bug of Excel?
02-Aug-07

Here is the code piece..

With ThisWorkbook.Sheets("XX XX"
..Range(.Cells(4, 2), .Cells(intMaxRow + 3,
intMaxCol + 1)).CopyFromRecordset r
End Wit

Does anyone have experience of using CopyFromRecordset? I used it t
copy data from Access to Excel Worksheet. However, all those dat
(with numerical ) are being changed to date. I have to mannuall
format those cells before they can display correct. Thanks so much i
advance if you know what is the problem...

Previous Posts In This Thread:

On Thursday, August 02, 2007 11:56 PM
sunzhoujia wrote:

Is CopyFromRecordset a bug of Excel?
Here is the code piece..

With ThisWorkbook.Sheets("XX XX"
..Range(.Cells(4, 2), .Cells(intMaxRow + 3,
intMaxCol + 1)).CopyFromRecordset r
End Wit

Does anyone have experience of using CopyFromRecordset? I used it t
copy data from Access to Excel Worksheet. However, all those dat
(with numerical ) are being changed to date. I have to mannuall
format those cells before they can display correct. Thanks so much i
advance if you know what is the problem...

EggHeadCafe - Software Developer Portal of Choice
..NET 2.0 Application Restart When it Goes "KABOOM"
http://www.eggheadcafe.com/tutorials...tion-rest.aspx