I have a strange problem. I am using CopyFromRecordset to paste some data from a database, then formatting the data. The first column includes a date, so it comes in as a Julian value, then I format it to mm/dd/yyyy. This is on Sheet1. Then, I use CopyFromRecordset for another select statement and put it in Sheet2. It also has a date in the first column. At this point, the first column of Sheet1, only where the range overlaps with Sheet2, changes format to m/d/yyyy. The header row and unpopulated rows still have the mm/dd/yyyy format.
Searching forums, I found this problem that sounds similar. Any ideas as to why using CopyFromRecordset on one sheet would affect a different sheet in the same workbook?
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24760549.html
A snippet of the code looks like this: (a different sheet is activated during the process)
Set rsResult = cmDB.Execute
shtHours.Range("A2").CopyFromRecordset rsResult
shtHours.Range("A:A").NumberFormat = "mm/dd/yyyy"
shtHours.UsedRange.Columns.AutoFit
sql=yadayada
cmDB.CommandText = sql
Set rsResult = cmDB.Execute
shtGas.Range("A2").CopyFromRecordset rsResult
shtGas.Range("A:A").NumberFormat = "mm/dd/yyyy"
shtHours is the sheet that gets the "m/d/yyyy" format in column A.
Searching forums, I found this problem that sounds similar. Any ideas as to why using CopyFromRecordset on one sheet would affect a different sheet in the same workbook?
http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_24760549.html
A snippet of the code looks like this: (a different sheet is activated during the process)
Set rsResult = cmDB.Execute
shtHours.Range("A2").CopyFromRecordset rsResult
shtHours.Range("A:A").NumberFormat = "mm/dd/yyyy"
shtHours.UsedRange.Columns.AutoFit
sql=yadayada
cmDB.CommandText = sql
Set rsResult = cmDB.Execute
shtGas.Range("A2").CopyFromRecordset rsResult
shtGas.Range("A:A").NumberFormat = "mm/dd/yyyy"
shtHours is the sheet that gets the "m/d/yyyy" format in column A.