Importar datos csv
Publicado por Ana (27 intervenciones) el 07/07/2023 10:24:06
Buenos días,
Hace un par de meses hice una consulta para que me ayudaseis con una macro para importar datos csv a un archivo de excel y me disteis un código que me funciono.
la cosa es que cada vez hay que hacer mas cosas en este archivo excel y yo ya no se como seguir
.
Os explico:
Hay archivos csv en una carpeta y yo tengo un excel en el que se copia cada archivo csv en una hoja (es una plantilla) con su nombre correspondiente (macro Open_csv).
Luego tengo otra macro en la que se borran las hojas , si esos archivos csv ya no estan en la ruta correspondiente (EliminarhojasnoEnRuta)
En ese mismo excel también hay una hoja que se llama Lista.Hta.montada, aquí se pasan los datos de todas las hojas importadas que estén clicadas en la columna L, y se ponen en rojo , para tener un resumen de las herramientas que están montadas.(CopiarYLimpiarDatos). Esta macro va muy lenta. En la hoja HTA CARGADOR MAKINO los datos que apareen siempre están clicados.
La siguiente macro lo que hace es cambiar de color aquellas celdas que estén clicadas en la hoja Lista.Hta.Montada en su hoja correspondiente, para que si se está mirando un proyecto concreto se sepa si esa herramienta está monada (CambiarColorCelda)
Y la ultima es la de ordenar las filas por orden.
Lo que necesito hacer, es que estas macros se ejecuten de manera automática cada cierto tiempo, pero con la macro que tengo enseguida el excel se bloque y deja de funcionar.
He probado con esta macro:
Sub ActualizacionAutomatica()
Dim tiempo As Date
Call Open_csv
tiempo = TimeValue(CDate(Range("O1").Value))
Application.OnTime Now + tiempo, "ActualizacionAutomatica"
End Sub
También he puesto:( para que cuando abra el excel ejecute la macro ActualizacionAutomatica, porque si no no lo hacia la primera vez.
Private Sub Workbook_Open()
Call ActualizacionAutomatica
End Sub
Pero se se queda pensando y al final el excel no responde, además querría , que todas las macros se pudieses ejecutar automáticamente.
Os adjunto el excel y unos archivos csv.
Muchas gracias.
Hace un par de meses hice una consulta para que me ayudaseis con una macro para importar datos csv a un archivo de excel y me disteis un código que me funciono.
la cosa es que cada vez hay que hacer mas cosas en este archivo excel y yo ya no se como seguir
.Os explico:
Hay archivos csv en una carpeta y yo tengo un excel en el que se copia cada archivo csv en una hoja (es una plantilla) con su nombre correspondiente (macro Open_csv).
Luego tengo otra macro en la que se borran las hojas , si esos archivos csv ya no estan en la ruta correspondiente (EliminarhojasnoEnRuta)
En ese mismo excel también hay una hoja que se llama Lista.Hta.montada, aquí se pasan los datos de todas las hojas importadas que estén clicadas en la columna L, y se ponen en rojo , para tener un resumen de las herramientas que están montadas.(CopiarYLimpiarDatos). Esta macro va muy lenta. En la hoja HTA CARGADOR MAKINO los datos que apareen siempre están clicados.
La siguiente macro lo que hace es cambiar de color aquellas celdas que estén clicadas en la hoja Lista.Hta.Montada en su hoja correspondiente, para que si se está mirando un proyecto concreto se sepa si esa herramienta está monada (CambiarColorCelda)
Y la ultima es la de ordenar las filas por orden.
Lo que necesito hacer, es que estas macros se ejecuten de manera automática cada cierto tiempo, pero con la macro que tengo enseguida el excel se bloque y deja de funcionar.
He probado con esta macro:
Sub ActualizacionAutomatica()
Dim tiempo As Date
Call Open_csv
tiempo = TimeValue(CDate(Range("O1").Value))
Application.OnTime Now + tiempo, "ActualizacionAutomatica"
End Sub
También he puesto:( para que cuando abra el excel ejecute la macro ActualizacionAutomatica, porque si no no lo hacia la primera vez.
Private Sub Workbook_Open()
Call ActualizacionAutomatica
End Sub
Pero se se queda pensando y al final el excel no responde, además querría , que todas las macros se pudieses ejecutar automáticamente.
Os adjunto el excel y unos archivos csv.
Muchas gracias.
- csv.zip(165,1 KB)
Valora esta pregunta
0