Export excel with header formatting

[Ribeiro]

I would like to export the formatting of the same qlik to Excel.

I had seen something right here on the forum. But I did not find it.

I'm using the macro below. I need to do this automatically by firing.

Anyone have any suggestions?

Sub ExcelExpwCaption
     'Defina o caminho onde o excel será salvo
     filePath = "C:\exportar\Test.xlsx"

    'Crie a planilha do Excel
     Set excelFile = CreateObject("Excel.Application")
     excelFile.Visible = true
     'Crie o WorkBook
     Set curWorkBook = excelFile.WorkBooks.Add
     'Crie a folha
     Set curSheet = curWorkBook.WorkSheets(1)

     'Pegue o gráfico que queremos exportar
     Set tableToExport = ActiveDocument.GetSheetObject("CH01")
     Set chartProperties = tableToExport.GetProperties
     tableToExport.CopyTableToClipboard true

     'Obter a legenda
     chartCaption = tableToExport.GetCaption.Name.v
     'MsgBox chartCaption

     ''Defina a primeira célula com a legenda

     curSheet.Paste curSheet.Range("A7")
     excelFile.Visible = true

     'Salve o arquivo e saia do excel
     curWorkBook.SaveAs filePath
     curWorkBook.Close
     excelFile.Quit

     'Limpar
     Set curWorkBook = nothing
     Set excelFile = nothing
End Sub

[adityaakshaya · Accepted solution]

Hi Agnaldo,

I would like you to suggest to use Nprinting for such requirements. Using Nprinting you can achieve a better solution which will be far stable than macros.

Regards,

Akshaya