Error : Fuente de Datos Incompleta

11/06/2004 - 16:26 por Cesar Garcia Hernandez | Informe spam

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.

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

13/06/2004 - 11:31 | Informe spam

hola, Cesar !

... acceder a un archivo de texto (CSV) de excel ... me sale el error, Fuente de Datos incompleta [...]

cuando 'construyes' [en la cadena de conexion] 'la parte' =>de la 'fuente de datos'<= :((
tu cadena de conexion 'dice': =>...;Data Source=\\cgarcia\cotizaciones\;...<[aparentemente] NO le estas 'indicando' la ruta =>completa<= al archivo [CSV ???]
[se supone que...] 'espera' que le indiques =>Unidad:\Directorio\Sub carpetas\Nombre del archivo Y EXTension<p.e. c:\cgarcia\cotizaciones\archivo.csv [o... c:\cgarcia\cotizaciones\archivo.txt] ;)

¿comentas datos adicionales?
saludos,
hector.

Responder a este mensaje

#2 David Canales

13/06/2004 - 12:20 | Informe spam

Antes de crear la macro haciendo que excel la grabe trata de crear la "Nueva fuente de dato", esto en "Datos, Importar Datos, ..." Tienes que crear una nueva "Database Query" (no tengo la version de excel en español), en esta parte es importante que selecciones como "Data Source" un "Microsoft text driver (*.txt, *.csv). Tu macro tiene un driver para Access:

Connection:="OLEDB;Provider=Microsoft.Jet.OLEDB.
4.0;Data Source=\\cgarcia\cotizaciones\;Extended

Una vez que has terminado el proceso de seleccion del driver para texto y has selecionado el archivo de texto y salvado el query en un archivo ejecuta el proceso grabando la macro. En esta ocasion no nesecitas volver a crear el Data Source sino que seleccionarlo de la lista ya creada. Ahi lo encontraras con el nombre que le definiste cuando lo creaste. Continua con todo el proceso hasta que importas los datos en tu hoja de calculo y finalizas la grabacion de la macro para ejecutarla posteriormente.

David Canales

"Cesar Garcia Hernandez" wrote:

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.

Responder a este mensaje

#3 Cesar Garcia Hernandez

14/06/2004 - 16:32 | Informe spam

muchas gracias a todos, ya pude resolver el problema

"Cesar Garcia Hernandez" escribió en el mensaje
news:

Buenos dias, hoy les traigo una nueva pregunta, esta vez relacionada con

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

menos por el excel, asi que no se que esta mal, quizas esta mal la cadena

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.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida