Buenos dias, hoy les traigo una nueva pregunta, esta vez relacionada con el
acceso a datos.
Estoy tratando de acceder a un archivo de texto (CSV) de excel y cuando hago
mi consulta me sale el error, Fuente de Datos incompleta.
En realidad no he tenido mucha experiancia accediendo a archivos de texto y
menos por el excel, asi que no se que esta mal, quizas esta mal la cadena de
coneccion o no se... aqui les pongo el codigo que estoy usando.
Sub Macro2()
With
ActiveSheet.QueryTables.Add(Connection:="OLEDB;Provider=Microsoft.Jet.OLEDB.
4.0;Data Source=\\cgarcia\cotizaciones\;Extended
Properties=""text;HDR=Yes;FMT=Delimited""", Destination:=Range("A1"))
.CommandText = Array("Select * From Junio2004")
.Name = "Consulta a Texto"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub
Espero me puedan ayudar esta vez.
Saludos a todos.
Leer las respuestas