Problema con importacion de datos de Acces a Excel
publicado
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
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