topic Re: Macro exporta Excel in Español

Macro exporta Excel

Thu, 19 Sep 2013 18:15:11 GMT

Hola necesito ayuda para crear un boton que ejecute una macro para poder exportar tablas de qlikview a excel

Re: Macro exporta Excel

Thu, 19 Sep 2013 20:05:54 GMT

lo siento. mon espagnol est pauvre. Use este macro:

Sub exportaexcel

set XLApp = CreateObject("Excel.Application")

XLApp.Visible = True

set XLDoc = XLApp.Workbooks.Add

XLApp.Worksheets(1).Cells.EntireRow.RowHeight=25

XLApp.Worksheets(1).Cells.EntireColumn.ColumnWidth=20

ActiveDocument.GetSheetObject("TablasNombre").CopyBitMapToClipboard

XLApp.Worksheets(1).Range("N1").Select()

XLApp.Worksheets(1).PasteSpecial

end sub

Espero que esto sea útil

Re: Macro exporta Excel

jaimeaguilar — Thu, 19 Sep 2013 21:46:42 GMT

Hola este código está dividido en 3 subrutinas (Crear XLS, copiar contenido al XLS y guardar el archivo)

SUB CreateXL(File)

SET XLApp = CreateObject("Excel.Application")

XLApp.DisplayAlerts=true

SET XLDoc = XLApp.Workbooks.Add

SET sheets = XLDoc.Sheets

CopyTableToXL "CH96", sheets("Sheet1"), "A1"

CopyTableToXL "CH97", sheets("Sheet2"), "A1"

'ESTA PARTE DE ARRIBA SE TENDRÍA QUE ADECUAR PARA QUE LOS DATOS SE PEGUEN A PARTIR DE LA CELDA QUE NECESITES

SaveXL XLApp, XLDoc, File

ActiveDocument.Activate

END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB CopyTableToXL(Table, Sheet, InicialCell)

SET obj = ActiveDocument.GetSheetObject(Table)

obj.CopyTableToClipboard true ' CopyTextToClipboard / CopyBitmapToClipboard

Sheet.Range(InicialCell).PasteSpecial

END SUB

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

SUB SaveXL(XLApp, XLDoc, File)

XLApp.DisplayAlerts=False

XLDoc.SaveAs File

XLDoc.Close True

XLApp.Quit

SET XLDoc = Nothing

SET XLApp = Nothing

END SUB

Espero te ayude,

saludos

Re: Macro exporta Excel

Fri, 20 Sep 2013 15:13:36 GMT

Hola Christopher Parian necesito nuevamente de tu ayuda al ejecutar la macro me aparece el siguiente texto en el editor de Modulo "El componente ActiveX no puede crear el objeto: 'Excel.Application"

Muchas gracias por tu ayuda.

Saludos...

Re: Macro exporta Excel

Fri, 20 Sep 2013 15:16:25 GMT

Hola Jaime Aguilar muchas gracias por tu ayuda, lo que pasa es que soy nuevo en esto y quería saber si todo lo que agregaste se puede introducir a un solo botón y si no fuera así ¿como podría hacerlo? muchas gracias.

Saludos Cordiales..

Re: Macro exporta Excel

jaimeaguilar — Fri, 20 Sep 2013 15:40:08 GMT

Hola,

cada uno de los "SUB" es un bloque de código por separado, esto quiere decir que lo puedes asignar individualmente a uno o varios botones. Si lo quieres hacer todo con un solo botón, tendrías que asignar los subs como acciones del botón (propiedades del boton, pestaña acciones) y el efecto que tendrá es que al hacer click, el botón ejecutará secuencialmente las acciones.

saludos

Re: Macro exporta Excel

Fri, 20 Sep 2013 15:46:40 GMT

tu tienes excel instalado? "Excel.Application" es en ingles. intentas Excel.Aplicación.

Re: Macro exporta Excel

Fri, 20 Sep 2013 17:25:56 GMT

Si tengo instalado Excel y ya intente de las dos formas pero sigue marcandome el mismo error, de que otra forma podria intentar??? gracias

saludos...

Re: Macro exporta Excel

chematos — Fri, 20 Sep 2013 17:59:02 GMT

Puede ser algún tema de seguridad con el ActiveX, podrías probar a crear otro objeto y ver si te da el mismo mensaje de error.

Saludos

Re: Macro exporta Excel

Fri, 20 Sep 2013 19:53:21 GMT

Solo en esta macro me manda este error y no se como poder solucionarlo, gracias.

saludos.

Re: Macro exporta Excel

Wed, 25 Sep 2013 18:17:15 GMT

Hola jaimeaguilar he utilizado la macro que me mandaste solo que no me ha corrido tengo un problema me manda el siguiente error: Se esperaba un identificador

Tambien te dejo el codigo para ver si podrias ayudarme a identificar el error que tengo.

SUB CreateXL(File)

SET XLApp = CreateObject("Excel.Application")

XLApp.DisplayAlerts=true

SET XLDoc = XLApp.Workbooks.Add

SET sheets = XLDoc.Sheets

CopyTableToXL "CH12", sheets("Hoja1"), "A1"

CopyTableToXL "CH44", sheets("Hoja2"), "A1"

SaveXL XLApp, XLDoc, File

ActiveDocument.Activate

END SUB

SUB CopyTableToXL("CH12", "Hoja1", "A1")

SET obj = ActiveDocument.GetSheetObject("CH12")

obj.CopyTableToClipboard true

Sheet.Range(A1).PasteSpecial

END SUB

SUB SaveXL(XLApp, XLDoc, File)

XLApp.DisplayAlerts=False

XLDoc.SaveAs File

XLDoc.Close True

XLApp.Quit

SET XLDoc = Nothing

SET XLApp = Nothing

END SUB

muchas gracias por tu ayuda saludos...

Re: Macro exporta Excel

Anonymous — Sat, 07 Apr 2018 20:40:18 GMT

sub ExportToExcel()
set obj = ActiveDocument.GetSheetObject("CH03")
obj.ExportEx "D:\QLIKVIEW\EXPORT\BASE.xls", 5
end sub

solo cambiar el nombre de la tabla :

CH03

Re: Macro exporta Excel

rubenmarin — Mon, 09 Apr 2018 08:31:19 GMT

Hola Julio, para crear un fichero nuevo la seguridad de macros debe estar configurada como 'Acceso al sistema', puedes comprobar si el error se debe a esto en el editor de módulo (CTRL+M), por la esquina inferior izquierda está el selector para la seguridad local.

Re: Macro exporta Excel

ecolomer — Tue, 10 Apr 2018 06:02:50 GMT

Mira el fichero adjunto.