cargar csv en hoja Propuesta con dudas

hola a todos,

lo 1º, felices fiestas. Espero que todos disfruteis en compañia de la gente que os importa

a raiz de una respuesta a una consulta sobre como cargar en una hoja, a partir de la 1ª fila libre, el contenido de otra
hoja (o parte de el) guardada como CSV, (texto separado con comas), me puse a investigar un poco los csv, con los que
nunca habia trabajado, y el resultado fue la propuesta que pongo al final, lo suficientemente generica para poder ser
utilizada en bastantes situaciones diferentes.

parece no trabajar mal en los supuestos para los que esta hecha, pero me han surgido varias dudas sobre el tema que
quizas podais aclararme un poco:

.-> lo 1º que me ha llamado la atencion es que las supuestas comas separadoras, y al menos en mis pruebas, en realidad
son punto y coma. Supongo que el motivo sera para diferenciarlo del separador decimal, que he creido entender que en los
csv es la coma, independientemente de la configuracion del usuario para dicho separador.

¿esto es normal o es consecuencia/depende de alguna manipulacion en opciones o similar, o pej. a que se use el ultimo
separador elegido en alguna operacion de guardado de archivos de texto via macros?

.->2º) ¿es posible buscar un dato en el csv antes de cargarlo en la hoja, es decir dentro del propio csv?

en este caso concreto se trataba de buscar una fecha (la del dia en curso) y cargar solo los registros coincidentes en
la hoja. En mi caso lo solucione cargando el archivo completo en una nueva hoja, hacer aqui la busqueda y carga y
eliminando la hoja acto seguido, pero supongo que si existe la posibilidad de realizar la busqueda previamente, se
ahorrarian bastantes pasos

algo asi como si se leyera con input y solo se cargaran los registros adecuados, pero con querytables

.->3º) el codigo de carga esta sacado de grabar una macro, y aunque he eliminado lo que me parecia superfluo hay unas
cuantas cosas que no me he atrevido a tocar por si acaso ¿hay algun minimo de propiedades 'obligado' que haya que
declarar explicitamnete para asegurarse un resultado llamemosle estandar?

bueno, estas son algunas de las dudas que se me ocurren.

En cuanto a los codigos, pongo tambien la respuesta explicacion que le daba al consultante, y aunque constantes usadas
para facilitar la adaptacion hagan referencia a fecha y hora, en realidad podrian valer para cualquier otro dato que se
quisiese buscar, eso si modificando el valor de la variable fecha en la 1ª macro

'***************** parte de la respuesta dada al consultante ***********************************************
..

en tu 1er mensaje hablas de buscar desde un libro en otro diferente, la fecha actual y copiar la fila que la contenga en
el primer libro

en el segundo, pides copiar el contenido de un archivo de texto (CSV) a partir de la 1ª fila libre [¿de que columna?]
del archivo que ejecuta la macro, ..., y ordenar por fecha y hora [¿en que columnas estan estos datos?]

bueno, solo para comentarte que cuando se piden detalles concretos suele ser para que lo que te den sean detalles
concretos, y no otra serie de enunciados que vuelven a dejar todo a la imaginacion del posible colaborador, y aun peor
pidiendo algo totalmente diferente al original

esto aparte, como no tengo claro lo que buscas, te he preparado dos macros.

con la 1ª ('Cargar_Fecha') te busca en un archivo csv (hoja de excel guardada como CSV) y te carga en la primera fila
libre (que especifiques) de la hoja (que especifiques) a partir de una columna [que especifiques] los registros que
contengan la fecha actul en el momento de correr la macro en un campo [que especifiques] y lo ordena por este campo y
por otro que contenga la hora [. que especifiques]

con la 2ª ('Cargar_Csv_Y_Ordenar') carga todo el contenido del archivo csv a partir de la 1ª fila libre y ordena por
fecha y hora(valgan todas las especificaciones que con la anterior)

de todas formas, para facilitarte el 'especificar' los detalles concretos te he puesto unas constantes que inicialmente,
y al menos hasta que pruebes los codigos y veas como funcionan, los entiendas y vean si se acercan a lo que buscas, son
lo unico que deberias manipular de los codigos.

las constantes tienen un comentario sobre lo que debes poner en cada una.

las dos macros van acompañadas con otros tres procedimientos que usan ellas a nivel interno, y que, aunque si las
entiendes puedes usarlas en otras muchas situaciones, inicialmente tampoco debes tocarlas

segun sea el caso llama a una de las dos macros desde el boton [que boton?¿de que barra de herramientas?] bien via
asignar macro, bien desde su evento click (depende del tipo de boton)

NOTA: es la primera vez que manipulo archivos csv, y el codigo de importacion es el resultado de adaptar una macro
grabada (cosa por cierto muy util para entenderla), con lo que no te aseguro que haya algunas cosas que puedan sobrar o
que pudiesen trabajar mejor de otra forma, pero asi a mi al menos me realizan el trabajo bastante bien


copia pega los siguientes codigos en un 'modulo' NORMAL de vba (si no sabes cuales son , dale a 'Alt+F11 => en el editor
de vb => menu insertar => Modulo (a secas) => en esta ventana es donde deberas paegar los codigos

OJO=> asegurate de que los codigos queden 'exactamente' igual a como los veas en el foro (lo unico que debes modificar
es el valor asignado a las constantes mnencionadas)

OJO bis=> si tu version es anterior al 2000 habria que replantear algunas cosas. Igualmente si es la 2007, aunque creo
que funcionara bien, tambien convendria revisar algunas cosas, sobre todo para ampliar rangos

por ultimo, prueba con copias (y paciencia)

''-
'********************* pega desde aqui *******************************
''constantes para facilitar la modificacion --
'
'> cambia "Hoja1" por el nombre de tu hoja (entre comillas)
Const Hj As String = "Hoja1"
'> cambia el 1 por el nº de la 1ª columna de la lista
Const ColInicio As Byte = 1
'> cambia el 1 por el nº de la columna de la fecha ( o dato a buscar y 1º de ordenacion)
Const ColFecha As Byte = 3
'> cambia el 2 por el nº de la columna de la hora (o por el 2º criterio de ordenacion)
Const ColHora As Byte = 2
'> cambia por False si tu lista no tiene fila de titulos
Const ConFilaTitulos As Boolean = True
'*************************************************************
''->>> una de estas 2 primeras macros la debes llamar desde el boton <<<-
'--
'-> esta macro carga solo los registros coincidentes con el dia actual
'
Sub Cargar_Fecha()
Dim Archivo As String, uCol As Byte, nCols As Byte, n As Long, _
uF As Long, wHj As Worksheet, celda As Range, Fecha
Archivo = ArchivoConRuta
If Archivo = "" Then _
MsgBox ("No se ha seleccionado ningun archivo"): Exit Sub
Fecha = Date ' puedes poner cualquier otro dato, tanto de fecha como otro
With ThisWorkbook
Set wHj = .Worksheets(Hj)
Application.ScreenUpdating = False
With .Worksheets.Add(before:=wHj)
ImportarTexto Archivo, , ColInicio, ConFilaTitulos
Ordenar ColFecha, ColHora, , ConFilaTitulos
If Application.CountIf(.Columns(ColFecha), Fecha) > 0 Then
Set celda = .Columns(ColFecha).Find(Fecha, .Cells(1, ColFecha), _
xlValues, xlWhole): n = celda.Row: uF = n
uCol = celda.CurrentRegion.Columns.Count + ColInicio - 1
Do While .Cells(uF + 1, ColFecha) = celda
uF = uF + 1
Loop
.Range(.Cells(n, ColInicio), .Cells(uF, uCol)) _
.Copy wHj.Cells(65536, ColInicio).End(xlUp).Offset(1)
Set celda = Nothing
Ordenar ColFecha, ColHora, wHj, ConFilaTitulos
MsgBox "La lista se ha actualizado satisfactoriamente"
Else
MsgBox "No se ha encontrado la fecha indicada."
End If
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End With
Set wHj = Nothing
End Sub
'-
'> esta macro carga todo el contenido de el archivo CSV --
'
Sub Cargar_Csv_Y_Ordenar()
Dim Archivo As String, ultFila As Long, wHj As Worksheet
Archivo = ArchivoConRuta
If Archivo = "" Then _
MsgBox ("No se ha seleccionado ningun archivo"): Exit Sub
Set wHj = ThisWorkbook.Worksheets(Hj)
ultFila = wHj.Cells(65536, ColInicio).End(xlUp).Row
ImportarTexto Archivo, wHj, ColInicio, ConFilaTitulos
If wHj.Cells(65536, ColInicio).End(xlUp).Row = ultFila Then Exit Sub
Ordenar ColFecha, ColHora, wHj, ConFilaTitulos
MsgBox "La lista se ha actualizado satisfactoriamente"
Set wHj = Nothing
End Sub
'************* funcion y codigo usados en las macros *******************
''
'-> devuelve el nombre mas la ruta completa del archivo seleccionado --
' en un cuadro de dialogo. OJO: creo que FileDialog no esta disponible
' para las versiones previas al 2000
'
Function ArchivoConRuta() As String
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then ArchivoConRuta = .SelectedItems(1)
End With
End Function
'-
'-> carga el archivo de texto segun los argumentos pasados
'
Sub ImportarTexto(Ruta_Y_Archivo As String, _
Optional Hoja As Worksheet = Nothing, _
Optional Columna_Ini As Byte = 1, _
Optional Titulos As Boolean = True)
On Error GoTo ImportarTexto_Error
If Hoja Is Nothing Then Set Hoja = ActiveSheet
With Hoja.QueryTables.Add(Connection:= _
"TEXT;" & Ruta_Y_Archivo, Destination:= _
Hoja.Cells(65536, Columna_Ini).End(xlUp).Offset(1))
.PreserveFormatting = True
.RefreshStyle = xlInsertEntireRows
.TextFileStartRow = 1 - (Titulos)
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.AdjustColumnWidth = True
.Refresh BackgroundQuery:=False
.Delete
End With
On Error GoTo 0
Exit Sub
ImportarTexto_Error:
MsgBox "No se ha podido cargar el archivo: " & vbCr & _
Ruta_Y_Archivo & "." & vbCr & vbCr & _
"Comprueba que es un archivo correcto."
End Sub
''
'-> ordena una lista en base a las dos columnas pasadas
'
Sub Ordenar(Optional Orden_1 As Byte = 1, _
Optional Orden_2 As Byte = 2, _
Optional Hj_Orden As Worksheet = Nothing, _
Optional Titulos As Boolean = True)
Dim pFila As Long
If Hj_Orden Is Nothing Then Set Hj_Orden = ActiveSheet
On Error Resume Next
With Hj_Orden.Cells(65536, Orden_1).End(xlUp).CurrentRegion
pFila = .Cells(1).Row - (Titulos = True)
.Sort Key1:=Hj_Orden.Cells(pFila, Orden_1), Order1:=xlAscending, _
Key2:=Hj_Orden.Cells(pFila, Orden_2), Order2:=xlAscending, _
Header:=Titulos
End With
End Sub
''******************** pega hasta aqui ****************************************


bueno, si podeis aclarame alguna duda os lo agradezco, y si quereis comentar/proponer cualquier cosa y o modificacion
sobre los codigos, o cualquier otra alternativa, sera bien recibido

un saludo
Ivan

PD: ojo a los posibles trunque del codigo en el editor del foro

.-> lo 1º que me ha llamado la atencion es que las supuestas comas
separadoras, y al menos en mis pruebas, en realidad son punto y coma.

.->2º) ¿es posible buscar un dato en el csv antes de cargarlo en la hoja,
es decir dentro del propio csv?

.->3º) el codigo de carga esta sacado de grabar una macro, y aunque he
eliminado lo que me parecia superfluo hay unas cuantas cosas que no me he
atrevido a tocar por si acaso ¿hay algun minimo de propiedades 'obligado'
que haya que declarar explicitamnete para asegurarse un resultado
llamemosle estandar?

Consulta original

hola a todos,

lo 1º, felices fiestas. Espero que todos disfruteis en compañia de la
gente que os importa

a raiz de una respuesta a una consulta sobre como cargar en una hoja, a
partir de la 1ª fila libre, el contenido de otra hoja (o parte de el)
guardada como CSV, (texto separado con comas), me puse a investigar un
poco los csv, con los que nunca habia trabajado, y el resultado fue la
propuesta que pongo al final, lo suficientemente generica para poder ser
utilizada en bastantes situaciones diferentes.

parece no trabajar mal en los supuestos para los que esta hecha, pero me
han surgido varias dudas sobre el tema que quizas podais aclararme un
poco:

.-> lo 1º que me ha llamado la atencion es que las supuestas comas
separadoras, y al menos en mis pruebas, en realidad son punto y coma.
Supongo que el motivo sera para diferenciarlo del separador decimal, que
he creido entender que en los csv es la coma, independientemente de la
configuracion del usuario para dicho separador.

¿esto es normal o es consecuencia/depende de alguna manipulacion en
opciones o similar, o pej. a que se use el ultimo separador elegido en
alguna operacion de guardado de archivos de texto via macros?

.->2º) ¿es posible buscar un dato en el csv antes de cargarlo en la hoja,
es decir dentro del propio csv?

en este caso concreto se trataba de buscar una fecha (la del dia en curso)
y cargar solo los registros coincidentes en la hoja. En mi caso lo
solucione cargando el archivo completo en una nueva hoja, hacer aqui la
busqueda y carga y eliminando la hoja acto seguido, pero supongo que si
existe la posibilidad de realizar la busqueda previamente, se ahorrarian
bastantes pasos

algo asi como si se leyera con input y solo se cargaran los registros
adecuados, pero con querytables

.->3º) el codigo de carga esta sacado de grabar una macro, y aunque he
eliminado lo que me parecia superfluo hay unas cuantas cosas que no me he
atrevido a tocar por si acaso ¿hay algun minimo de propiedades 'obligado'
que haya que declarar explicitamnete para asegurarse un resultado
llamemosle estandar?

bueno, estas son algunas de las dudas que se me ocurren.

En cuanto a los codigos, pongo tambien la respuesta explicacion que le
daba al consultante, y aunque constantes usadas para facilitar la
adaptacion hagan referencia a fecha y hora, en realidad podrian valer para
cualquier otro dato que se quisiese buscar, eso si modificando el valor de
la variable fecha en la 1ª macro

'***************** parte de la respuesta dada al consultante
***********************************************
..

en tu 1er mensaje hablas de buscar desde un libro en otro diferente, la
fecha actual y copiar la fila que la contenga en el primer libro

en el segundo, pides copiar el contenido de un archivo de texto (CSV) a
partir de la 1ª fila libre [¿de que columna?] del archivo que ejecuta la
macro, ..., y ordenar por fecha y hora [¿en que columnas estan estos
datos?]

bueno, solo para comentarte que cuando se piden detalles concretos suele
ser para que lo que te den sean detalles concretos, y no otra serie de
enunciados que vuelven a dejar todo a la imaginacion del posible
colaborador, y aun peor pidiendo algo totalmente diferente al original

esto aparte, como no tengo claro lo que buscas, te he preparado dos
macros.

con la 1ª ('Cargar_Fecha') te busca en un archivo csv (hoja de excel
guardada como CSV) y te carga en la primera fila libre (que especifiques)
de la hoja (que especifiques) a partir de una columna [que especifiques]
los registros que contengan la fecha actul en el momento de correr la
macro en un campo [que especifiques] y lo ordena por este campo y por otro
que contenga la hora [. que especifiques]

con la 2ª ('Cargar_Csv_Y_Ordenar') carga todo el contenido del archivo csv
a partir de la 1ª fila libre y ordena por fecha y hora(valgan todas las
especificaciones que con la anterior)

de todas formas, para facilitarte el 'especificar' los detalles concretos
te he puesto unas constantes que inicialmente, y al menos hasta que
pruebes los codigos y veas como funcionan, los entiendas y vean si se
acercan a lo que buscas, son lo unico que deberias manipular de los
codigos.

las constantes tienen un comentario sobre lo que debes poner en cada una.

las dos macros van acompañadas con otros tres procedimientos que usan
ellas a nivel interno, y que, aunque si las entiendes puedes usarlas en
otras muchas situaciones, inicialmente tampoco debes tocarlas

segun sea el caso llama a una de las dos macros desde el boton [que
boton?¿de que barra de herramientas?] bien via asignar macro, bien desde
su evento click (depende del tipo de boton)

NOTA: es la primera vez que manipulo archivos csv, y el codigo de
importacion es el resultado de adaptar una macro grabada (cosa por cierto
muy util para entenderla), con lo que no te aseguro que haya algunas cosas
que puedan sobrar o que pudiesen trabajar mejor de otra forma, pero asi a
mi al menos me realizan el trabajo bastante bien


copia pega los siguientes codigos en un 'modulo' NORMAL de vba (si no
sabes cuales son , dale a 'Alt+F11 => en el editor de vb => menu insertar
=> Modulo (a secas) => en esta ventana es donde deberas paegar los codigos

OJO=> asegurate de que los codigos queden 'exactamente' igual a como los
veas en el foro (lo unico que debes modificar es el valor asignado a las
constantes mnencionadas)

OJO bis=> si tu version es anterior al 2000 habria que replantear algunas
cosas. Igualmente si es la 2007, aunque creo que funcionara bien, tambien
convendria revisar algunas cosas, sobre todo para ampliar rangos

por ultimo, prueba con copias (y paciencia)

''-
'********************* pega desde aqui *******************************
''constantes para facilitar la modificacion --
'
'> cambia "Hoja1" por el nombre de tu hoja (entre comillas)
Const Hj As String = "Hoja1"
'> cambia el 1 por el nº de la 1ª columna de la lista
Const ColInicio As Byte = 1
'> cambia el 1 por el nº de la columna de la fecha ( o dato a buscar y
1º de ordenacion)
Const ColFecha As Byte = 3
'> cambia el 2 por el nº de la columna de la hora (o por el 2º criterio
de ordenacion)
Const ColHora As Byte = 2
'> cambia por False si tu lista no tiene fila de titulos
Const ConFilaTitulos As Boolean = True
'*************************************************************
''->>> una de estas 2 primeras macros la debes llamar desde el boton <<<-
'--
'-> esta macro carga solo los registros coincidentes con el dia actual
'
Sub Cargar_Fecha()
Dim Archivo As String, uCol As Byte, nCols As Byte, n As Long, _
uF As Long, wHj As Worksheet, celda As Range, Fecha
Archivo = ArchivoConRuta
If Archivo = "" Then _
MsgBox ("No se ha seleccionado ningun archivo"): Exit Sub
Fecha = Date ' puedes poner cualquier otro dato, tanto de fecha como
otro
With ThisWorkbook
Set wHj = .Worksheets(Hj)
Application.ScreenUpdating = False
With .Worksheets.Add(before:=wHj)
ImportarTexto Archivo, , ColInicio, ConFilaTitulos
Ordenar ColFecha, ColHora, , ConFilaTitulos
If Application.CountIf(.Columns(ColFecha), Fecha) > 0 Then
Set celda = .Columns(ColFecha).Find(Fecha, .Cells(1, ColFecha), _
xlValues, xlWhole): n = celda.Row: uF = n
uCol = celda.CurrentRegion.Columns.Count + ColInicio - 1
Do While .Cells(uF + 1, ColFecha) = celda
uF = uF + 1
Loop
.Range(.Cells(n, ColInicio), .Cells(uF, uCol)) _
.Copy wHj.Cells(65536, ColInicio).End(xlUp).Offset(1)
Set celda = Nothing
Ordenar ColFecha, ColHora, wHj, ConFilaTitulos
MsgBox "La lista se ha actualizado satisfactoriamente"
Else
MsgBox "No se ha encontrado la fecha indicada."
End If
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End With
Set wHj = Nothing
End Sub
'-
'> esta macro carga todo el contenido de el archivo CSV --
'
Sub Cargar_Csv_Y_Ordenar()
Dim Archivo As String, ultFila As Long, wHj As Worksheet
Archivo = ArchivoConRuta
If Archivo = "" Then _
MsgBox ("No se ha seleccionado ningun archivo"): Exit Sub
Set wHj = ThisWorkbook.Worksheets(Hj)
ultFila = wHj.Cells(65536, ColInicio).End(xlUp).Row
ImportarTexto Archivo, wHj, ColInicio, ConFilaTitulos
If wHj.Cells(65536, ColInicio).End(xlUp).Row = ultFila Then Exit Sub
Ordenar ColFecha, ColHora, wHj, ConFilaTitulos
MsgBox "La lista se ha actualizado satisfactoriamente"
Set wHj = Nothing
End Sub
'************* funcion y codigo usados en las macros *******************
''
'-> devuelve el nombre mas la ruta completa del archivo seleccionado --
' en un cuadro de dialogo. OJO: creo que FileDialog no esta
disponible
' para las versiones previas al 2000
'
Function ArchivoConRuta() As String
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then ArchivoConRuta = .SelectedItems(1)
End With
End Function
'-
'-> carga el archivo de texto segun los argumentos pasados
'
Sub ImportarTexto(Ruta_Y_Archivo As String, _
Optional Hoja As Worksheet = Nothing, _
Optional Columna_Ini As Byte = 1, _
Optional Titulos As Boolean = True)
On Error GoTo ImportarTexto_Error
If Hoja Is Nothing Then Set Hoja = ActiveSheet
With Hoja.QueryTables.Add(Connection:= _
"TEXT;" & Ruta_Y_Archivo, Destination:= _
Hoja.Cells(65536, Columna_Ini).End(xlUp).Offset(1))
.PreserveFormatting = True
.RefreshStyle = xlInsertEntireRows
.TextFileStartRow = 1 - (Titulos)
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.AdjustColumnWidth = True
.Refresh BackgroundQuery:=False
.Delete
End With
On Error GoTo 0
Exit Sub
ImportarTexto_Error:
MsgBox "No se ha podido cargar el archivo: " & vbCr & _
Ruta_Y_Archivo & "." & vbCr & vbCr & _
"Comprueba que es un archivo correcto."
End Sub
''
'-> ordena una lista en base a las dos columnas pasadas
'
Sub Ordenar(Optional Orden_1 As Byte = 1, _
Optional Orden_2 As Byte = 2, _
Optional Hj_Orden As Worksheet = Nothing, _
Optional Titulos As Boolean = True)
Dim pFila As Long
If Hj_Orden Is Nothing Then Set Hj_Orden = ActiveSheet
On Error Resume Next
With Hj_Orden.Cells(65536, Orden_1).End(xlUp).CurrentRegion
pFila = .Cells(1).Row - (Titulos = True)
.Sort Key1:=Hj_Orden.Cells(pFila, Orden_1), Order1:=xlAscending, _
Key2:=Hj_Orden.Cells(pFila, Orden_2), Order2:=xlAscending, _
Header:=Titulos
End With
End Sub
''******************** pega hasta aqui
****************************************


bueno, si podeis aclarame alguna duda os lo agradezco, y si quereis
comentar/proponer cualquier cosa y o modificacion sobre los codigos, o
cualquier otra alternativa, sera bien recibido

un saludo
Ivan

PD: ojo a los posibles trunque del codigo en el editor del foro

Hola Ivan, no sé si utilizaré tus proposiciones o respuestas (no he usado nunca archivos CSV), pero lo guardo porque me parece interesante. Gracias.

Hola Ivan,

.-> lo 1º que me ha llamado la atencion es que las supuestas comas
separadoras, y al menos en mis pruebas, en realidad son punto y coma.

Salvo que me equivoque depende de la configuración de tu maquina,
En el editor de registro (Inicio>Ejecutar>REGEDIT)
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\x.x\Engines\Text
Aqui puedes encontrar el delimitador. Si el idioma que empleas tiene otro
separador decimal diferente de la coma el archivo se podría generar con
comas en lugar de punto y coma.

.->2º) ¿es posible buscar un dato en el csv antes de cargarlo en la hoja,
es decir dentro del propio csv?

Si es posible buscar datos sin necesidad de cargar todo el archivo
El archivo CSV que he empleado de prueba tiene una priemra fila con el
encabezado de la tabla
ID;fecha;item
y luego todos los datos

Para que funcione debes establecer una referencia a Microsoft ActiveX Data
Objects 2.X Library

Sub BuscarFechaCSV()
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
'Dim Archivo As String
Dim SQL As String


Set cnn = New ADODB.Connection
With cnn
.Provider = "Microsoft.Jet.OLEDB.4.0"
.ConnectionString = "Data Source=C:\foro\ivan;" & _
"Extended Properties=TEXT;"
.Open
End With

Set rs = New ADODB.Recordset

With rs
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
End With

SQL = "SELECT * FROM datos.csv"
SQL = SQL & " where format(fecha,'yyyymmdd') ='20071005'"
SQL = SQL & " ORDER BY item DESC"
rs.Open SQL, cnn, , , adCmdText
'Estas lineas cargan todo el archivo
'Archivo = "datos.csv"
'rs.Open Archivo, cnn, , , adCmdTable

'Esto carga todo el recordset a partir de la celda A1
'No esta disponible para todas las versiones de excel
Range("A1").CopyFromRecordset rs

End Sub

Creo que ya conoces las páginas de Enrique Martinez, SoftJaen, sobre el
manejo de archivos de texto, de todas formas te paso la pagina
http://www.mvp-access.com/softjaen/...t_isam.htm

.->3º) el codigo de carga esta sacado de grabar una macro, y aunque he
eliminado lo que me parecia superfluo hay unas cuantas cosas que no me he
atrevido a tocar por si acaso ¿hay algun minimo de propiedades 'obligado'
que haya que declarar explicitamnete para asegurarse un resultado
llamemosle estandar?

Creo que solo deberías declarar los que no empleas por defecto.

Un saludo y feleces fiestas a ti tambien,
Juan

Consulta original

"Ivan" escribió

hola a todos,

lo 1º, felices fiestas. Espero que todos disfruteis en compañia de la
gente que os importa

a raiz de una respuesta a una consulta sobre como cargar en una hoja, a
partir de la 1ª fila libre, el contenido de otra hoja (o parte de el)
guardada como CSV, (texto separado con comas), me puse a investigar un
poco los csv, con los que nunca habia trabajado, y el resultado fue la
propuesta que pongo al final, lo suficientemente generica para poder ser
utilizada en bastantes situaciones diferentes.

parece no trabajar mal en los supuestos para los que esta hecha, pero me
han surgido varias dudas sobre el tema que quizas podais aclararme un
poco:

.-> lo 1º que me ha llamado la atencion es que las supuestas comas
separadoras, y al menos en mis pruebas, en realidad son punto y coma.
Supongo que el motivo sera para diferenciarlo del separador decimal, que
he creido entender que en los csv es la coma, independientemente de la
configuracion del usuario para dicho separador.

¿esto es normal o es consecuencia/depende de alguna manipulacion en
opciones o similar, o pej. a que se use el ultimo separador elegido en
alguna operacion de guardado de archivos de texto via macros?

.->2º) ¿es posible buscar un dato en el csv antes de cargarlo en la hoja,
es decir dentro del propio csv?

en este caso concreto se trataba de buscar una fecha (la del dia en curso)
y cargar solo los registros coincidentes en la hoja. En mi caso lo
solucione cargando el archivo completo en una nueva hoja, hacer aqui la
busqueda y carga y eliminando la hoja acto seguido, pero supongo que si
existe la posibilidad de realizar la busqueda previamente, se ahorrarian
bastantes pasos

algo asi como si se leyera con input y solo se cargaran los registros
adecuados, pero con querytables

.->3º) el codigo de carga esta sacado de grabar una macro, y aunque he
eliminado lo que me parecia superfluo hay unas cuantas cosas que no me he
atrevido a tocar por si acaso ¿hay algun minimo de propiedades 'obligado'
que haya que declarar explicitamnete para asegurarse un resultado
llamemosle estandar?

bueno, estas son algunas de las dudas que se me ocurren.

En cuanto a los codigos, pongo tambien la respuesta explicacion que le
daba al consultante, y aunque constantes usadas para facilitar la
adaptacion hagan referencia a fecha y hora, en realidad podrian valer para
cualquier otro dato que se quisiese buscar, eso si modificando el valor de
la variable fecha en la 1ª macro

'***************** parte de la respuesta dada al consultante
***********************************************
..

en tu 1er mensaje hablas de buscar desde un libro en otro diferente, la
fecha actual y copiar la fila que la contenga en el primer libro

en el segundo, pides copiar el contenido de un archivo de texto (CSV) a
partir de la 1ª fila libre [¿de que columna?] del archivo que ejecuta la
macro, ..., y ordenar por fecha y hora [¿en que columnas estan estos
datos?]

bueno, solo para comentarte que cuando se piden detalles concretos suele
ser para que lo que te den sean detalles concretos, y no otra serie de
enunciados que vuelven a dejar todo a la imaginacion del posible
colaborador, y aun peor pidiendo algo totalmente diferente al original

esto aparte, como no tengo claro lo que buscas, te he preparado dos
macros.

con la 1ª ('Cargar_Fecha') te busca en un archivo csv (hoja de excel
guardada como CSV) y te carga en la primera fila libre (que especifiques)
de la hoja (que especifiques) a partir de una columna [que especifiques]
los registros que contengan la fecha actul en el momento de correr la
macro en un campo [que especifiques] y lo ordena por este campo y por otro
que contenga la hora [. que especifiques]

con la 2ª ('Cargar_Csv_Y_Ordenar') carga todo el contenido del archivo csv
a partir de la 1ª fila libre y ordena por fecha y hora(valgan todas las
especificaciones que con la anterior)

de todas formas, para facilitarte el 'especificar' los detalles concretos
te he puesto unas constantes que inicialmente, y al menos hasta que
pruebes los codigos y veas como funcionan, los entiendas y vean si se
acercan a lo que buscas, son lo unico que deberias manipular de los
codigos.

las constantes tienen un comentario sobre lo que debes poner en cada una.

las dos macros van acompañadas con otros tres procedimientos que usan
ellas a nivel interno, y que, aunque si las entiendes puedes usarlas en
otras muchas situaciones, inicialmente tampoco debes tocarlas

segun sea el caso llama a una de las dos macros desde el boton [que
boton?¿de que barra de herramientas?] bien via asignar macro, bien desde
su evento click (depende del tipo de boton)

NOTA: es la primera vez que manipulo archivos csv, y el codigo de
importacion es el resultado de adaptar una macro grabada (cosa por cierto
muy util para entenderla), con lo que no te aseguro que haya algunas cosas
que puedan sobrar o que pudiesen trabajar mejor de otra forma, pero asi a
mi al menos me realizan el trabajo bastante bien


copia pega los siguientes codigos en un 'modulo' NORMAL de vba (si no
sabes cuales son , dale a 'Alt+F11 => en el editor de vb => menu insertar
=> Modulo (a secas) => en esta ventana es donde deberas paegar los codigos

OJO=> asegurate de que los codigos queden 'exactamente' igual a como los
veas en el foro (lo unico que debes modificar es el valor asignado a las
constantes mnencionadas)

OJO bis=> si tu version es anterior al 2000 habria que replantear algunas
cosas. Igualmente si es la 2007, aunque creo que funcionara bien, tambien
convendria revisar algunas cosas, sobre todo para ampliar rangos

por ultimo, prueba con copias (y paciencia)

''-
'********************* pega desde aqui *******************************
''constantes para facilitar la modificacion --
'
'> cambia "Hoja1" por el nombre de tu hoja (entre comillas)
Const Hj As String = "Hoja1"
'> cambia el 1 por el nº de la 1ª columna de la lista
Const ColInicio As Byte = 1
'> cambia el 1 por el nº de la columna de la fecha ( o dato a buscar y
1º de ordenacion)
Const ColFecha As Byte = 3
'> cambia el 2 por el nº de la columna de la hora (o por el 2º criterio
de ordenacion)
Const ColHora As Byte = 2
'> cambia por False si tu lista no tiene fila de titulos
Const ConFilaTitulos As Boolean = True
'*************************************************************
''->>> una de estas 2 primeras macros la debes llamar desde el boton <<<-
'--
'-> esta macro carga solo los registros coincidentes con el dia actual
'
Sub Cargar_Fecha()
Dim Archivo As String, uCol As Byte, nCols As Byte, n As Long, _
uF As Long, wHj As Worksheet, celda As Range, Fecha
Archivo = ArchivoConRuta
If Archivo = "" Then _
MsgBox ("No se ha seleccionado ningun archivo"): Exit Sub
Fecha = Date ' puedes poner cualquier otro dato, tanto de fecha como
otro
With ThisWorkbook
Set wHj = .Worksheets(Hj)
Application.ScreenUpdating = False
With .Worksheets.Add(before:=wHj)
ImportarTexto Archivo, , ColInicio, ConFilaTitulos
Ordenar ColFecha, ColHora, , ConFilaTitulos
If Application.CountIf(.Columns(ColFecha), Fecha) > 0 Then
Set celda = .Columns(ColFecha).Find(Fecha, .Cells(1, ColFecha), _
xlValues, xlWhole): n = celda.Row: uF = n
uCol = celda.CurrentRegion.Columns.Count + ColInicio - 1
Do While .Cells(uF + 1, ColFecha) = celda
uF = uF + 1
Loop
.Range(.Cells(n, ColInicio), .Cells(uF, uCol)) _
.Copy wHj.Cells(65536, ColInicio).End(xlUp).Offset(1)
Set celda = Nothing
Ordenar ColFecha, ColHora, wHj, ConFilaTitulos
MsgBox "La lista se ha actualizado satisfactoriamente"
Else
MsgBox "No se ha encontrado la fecha indicada."
End If
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True
End With
End With
Set wHj = Nothing
End Sub
'-
'> esta macro carga todo el contenido de el archivo CSV --
'
Sub Cargar_Csv_Y_Ordenar()
Dim Archivo As String, ultFila As Long, wHj As Worksheet
Archivo = ArchivoConRuta
If Archivo = "" Then _
MsgBox ("No se ha seleccionado ningun archivo"): Exit Sub
Set wHj = ThisWorkbook.Worksheets(Hj)
ultFila = wHj.Cells(65536, ColInicio).End(xlUp).Row
ImportarTexto Archivo, wHj, ColInicio, ConFilaTitulos
If wHj.Cells(65536, ColInicio).End(xlUp).Row = ultFila Then Exit Sub
Ordenar ColFecha, ColHora, wHj, ConFilaTitulos
MsgBox "La lista se ha actualizado satisfactoriamente"
Set wHj = Nothing
End Sub
'************* funcion y codigo usados en las macros *******************
''
'-> devuelve el nombre mas la ruta completa del archivo seleccionado --
' en un cuadro de dialogo. OJO: creo que FileDialog no esta
disponible
' para las versiones previas al 2000
'
Function ArchivoConRuta() As String
With Application.FileDialog(msoFileDialogFilePicker)
If .Show = -1 Then ArchivoConRuta = .SelectedItems(1)
End With
End Function
'-
'-> carga el archivo de texto segun los argumentos pasados
'
Sub ImportarTexto(Ruta_Y_Archivo As String, _
Optional Hoja As Worksheet = Nothing, _
Optional Columna_Ini As Byte = 1, _
Optional Titulos As Boolean = True)
On Error GoTo ImportarTexto_Error
If Hoja Is Nothing Then Set Hoja = ActiveSheet
With Hoja.QueryTables.Add(Connection:= _
"TEXT;" & Ruta_Y_Archivo, Destination:= _
Hoja.Cells(65536, Columna_Ini).End(xlUp).Offset(1))
.PreserveFormatting = True
.RefreshStyle = xlInsertEntireRows
.TextFileStartRow = 1 - (Titulos)
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = True
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.AdjustColumnWidth = True
.Refresh BackgroundQuery:=False
.Delete
End With
On Error GoTo 0
Exit Sub
ImportarTexto_Error:
MsgBox "No se ha podido cargar el archivo: " & vbCr & _
Ruta_Y_Archivo & "." & vbCr & vbCr & _
"Comprueba que es un archivo correcto."
End Sub
''
'-> ordena una lista en base a las dos columnas pasadas
'
Sub Ordenar(Optional Orden_1 As Byte = 1, _
Optional Orden_2 As Byte = 2, _
Optional Hj_Orden As Worksheet = Nothing, _
Optional Titulos As Boolean = True)
Dim pFila As Long
If Hj_Orden Is Nothing Then Set Hj_Orden = ActiveSheet
On Error Resume Next
With Hj_Orden.Cells(65536, Orden_1).End(xlUp).CurrentRegion
pFila = .Cells(1).Row - (Titulos = True)
.Sort Key1:=Hj_Orden.Cells(pFila, Orden_1), Order1:=xlAscending, _
Key2:=Hj_Orden.Cells(pFila, Orden_2), Order2:=xlAscending, _
Header:=Titulos
End With
End Sub
''******************** pega hasta aqui
****************************************


bueno, si podeis aclarame alguna duda os lo agradezco, y si quereis
comentar/proponer cualquier cosa y o modificacion sobre los codigos, o
cualquier otra alternativa, sera bien recibido

un saludo
Ivan

PD: ojo a los posibles trunque del codigo en el editor del foro