Problema macro guardar archivo como CSV con ";"

[corsair620]

Buenas tardes,

Necesitaria una macro para guardar un libro de excel como .csv delimitado por ";" y que me eliminara la primera fila de la tabla.

El codigo que tengo de momento es el siguiente...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

Hola @corsair620

Configura el separador de listas con punto y coma ( ; )

1. En Buscar de windows escribe: Panel

[ATTACH type="full"...​

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[corsair620]

Muchas gracias pero me genera un error:

ActiveSheet.Rows(1).Delete

Alguna solución?

 

[Dante Amor M]

Qué dice el mensaje de error?

 

[corsair620]

Qué dice el mensaje de error?

Error en el método de Delete de la clase Range

Y me lleva a la linea: ActiveSheet.Rows(1).Delete

 

[FGV]

Hola @corsair620 (y Dante),
El problema es que Rows(1) es el encabezado de la Tabla_SEGUIMIENTOS. Puedes adaptar así la macro para que convierta la Tabla en rango y al...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[corsair620]

Funciona, el problema esta en que la hoja activa que quiero pasar a .csv es una consulta de otras hojas a traves de PowerQuery y me elimina la consulta.

 

[FGV]

Quizá así:

Sub GuardarHojacomoCSV()
Dim Archivo As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy
Archivo =...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[corsair620]

Funciona perfectamente, muchísimas gracias!!!

 

[corsair620]

Quizá así:

Sub GuardarHojacomoCSV()
Dim Archivo As String
Application.ScreenUpdating = False
Application.DisplayAlerts = False
ActiveSheet.Copy...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Seguramente te ocurre cuando ya existe el archivo en la carpeta SEGUIMIENTOS. Elimina el archivo que contenga en el nombre la fecha de hoy y prueba de nuevo. Un saludo, Fernando
[ATTACH...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[corsair620]

Si que me funciona el problema que me crea 2 "," al final de cada linea que no deberian de estar

Sin permisos de acceso

 

[FGV]

Puedes hacer que la macro detecte si el archivo ya existe y pregunte si lo sustituye:

Sub GuardarHojacomoCSV()
Dim archivo As String
Application.ScreenUpdating = False...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Si que me funciona el problema que me crea 2 "," al final de cada linea que no deberian de estar

[ATTACH type="full"...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[FGV]

Si copiamos solo la Tabla de Excel, en cada línea acaba con 12 signos de punto y coma que son las 12 celdas vacías finales (columnas N:Y) y una coma para separar las filas, yo creo que así...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[corsair620]

Me da Error en el metodo "range" de objeto "_global"

Range("Tabla_SEGUIMIENTOS").Copy

Lo voy a dejar como al principio y ya quito los encabezados editando el archivo .csv, me saben mal tantas...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Dante Amor M]

Hola @corsair620 (y Fernando)

Perdón por llegar tarde a la fiesta, pero en las noches me toca dormir jeje

Prueba la siguiente macro. Según tu archivo en la hoja tienes la...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[corsair620]

Muchas gracias por la solución y por tu tiempo.

Saludos.

 

[Dante Amor M]

Con mucho gusto. Gracias por comentar.

 

[FGV]

Perdón por llegar tarde a la fiesta, pero en las noches me toca dormir jeje

No llegas tarde, Dante, lo estabas llevando tú. Como no se...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí