Problema con importacion de datos de Acces a Excel

[Walter-RC]

Buenas a todos, tengo un problema al cargar datos de una base de datos Access a Excel, el problema surgio cuando en mi empresa se actualizo el Office 2007 a la version 2010, el problema es el siguiente, hay una serie de datos en formato fecha/hora en el archivo Access, cuando los importo por macro a excel, me trae estos datos con el valor "0", al pasarlo a formato hora se pone 12:00:00 am. en Office 2007 no existia este problema.

Dejo la parte del codigo que se encarga de traer los datos de Acces a Excel, agradeceria su ayuda.

Dim PATH_ As String, varianame As String

Dim dr As String

Dim ay As String, by As Integer

Dim ayS As String, byS As Integer, bySb As Integer

Dim StrSC As String

Dim BuStr As String, BuCou1 As Integer, BuCou2 As Integer

Dim filename_ As String

Application.ScreenUpdating = False

Mensaje2 = "¿Quiere actualizar la Base de Datos?"

Estilo2 = vbYesNo + vbInformation + vbDefaultButton2

Título2 = "((( Ultrasonido ))) ..."

Ayuda2 = "DEMO.HLP"

Ctxt2 = 1000

Respuesta2 = MsgBox(Mensaje2, Estilo2, Título2, Ayuda2, Ctxt2)

If Respuesta2 = vbYes Then

Application.ScreenUpdating = False

Plan8.WindowsMediaPlayer3.Controls.stop

Sheets("MENU PRINCIPAL").Select

PATH_ = Thisworkbook.Path

dr = PATH_

Sheets("Datos").Select

Cells.Select

Selection.ClearContents

Cells.Select

Selection.ClearContents

Range("A1").Select

With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _

"ODBC;DSN=MS Access Database;DBQ=" & dr & "\Banco de Datos\BDI.mdb;DefaultDir=" & dr & "\Banco de Datos;DriverId=281;FIL" _

), Array("=MS Access;MaxBufferSize=2048;PageTimeout=5;")), Destination:=Range( _

"$A$1")).QueryTable

.CommandText = Array( _

"SELECT T_Export.ObjectplanName, T_Export.SpotName, T_Export.PartName, T_Export.InspectionDate, T_Export.InspectionTime, T_Export.NamePlate1, T_Export.NamePlate2, T_Export.NamePlate3, T_Export.Gain" _

, _

", T_Export.MeasuredThickness, T_Export.NominalNuggetDiameter, T_Export.DefinedProbeDiameter, T_Export.EvaluationClass, T_Export.AutoComment,T_Export.InspectorComment, T_Export.InspectionResultName" & Chr(13) & "" & Chr(10) & "FROM `" & dr & "\B" _

, "anco de Datos\BDI.mdb`.T_Export T_Export")

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.RefreshOnFileOpen = False

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SavePassword = False

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.PreserveColumnInfo = True

.ListObject.DisplayName = "Tabela_Consulta_de_Banco_de_Dados_do_MS_Access"

.Refresh BackgroundQuery:=False

End With

[code]

Saludos