Skip to main content
Announcements
Have questions about Qlik Connect? Join us live on April 10th, at 11 AM ET: SIGN UP NOW
cancel
Showing results for 
Search instead for 
Did you mean: 
Anonymous
Not applicable

Exportar um objeto de tabela para o excel em um arquivo .xlsx

Bom dia,

estou com um problema para exportar um objeto de tabela para "xlsx".

criei a macro abaixo que está exportando para a minha máquina, como vou publicar a aplicação no servidor, preciso que qualquer usuário consiga fazer o download do arquivo.

Podem me ajudar?

Sub exportExel

  set ExcelSheetApp  = CreateObject("Excel.Application")

  ExcelSheetApp.Visible = false

  set ExcelWB= ExcelSheetApp.Workbooks.Add

  ExcelWB.Sheets(1).name = "QV-Export"

  set XLSheet = ExcelWB.Worksheets(1)

  set QVData = ActiveDocument.GetSheetObject("TB02")

  set XLSheet = ExcelWB.Worksheets(1)

  QVData.CopyTableToClipboard true

  XLSheet.Paste XLSheet.Range("A1")

  ExcelWB.SaveAs "C:\Users\mayke.amorim\Desktop\temp.xlsx", 51

  ExcelWB.Close

  ExcelSheetApp.Application.Quit

End Sub

18 Replies
Anonymous
Not applicable
Author

Lincoln,

onde faço essa configuração? no script?

mario_sergio_ti
Partner - Specialist
Partner - Specialist

Amigo, no Excel o padrão mais cômodo é com ";" como delimitador, segue;

Store <TABELA> Into ARQUIVO.csv (codepage is 1252, txt, delimiter is ';');
Consultor certificado | Quem compartilha, aprende!
https://www.linkedin.com/in/mariosergioti
Anonymous
Not applicable
Author

Mario,

onde devo inserir essa linha de código?

atualmente estamos usando o botão de export no objeto de tabela.

QV_2.PNG

Marcio_Campestrini
Specialist
Specialist

Mayke

Eu tenho uma aplicação (a única) em que utilizo macro justamente para salvar uma planilha Excel.

Eu utilizo uma variável onde o usuário indica o caminho onde quer salvar o arquivo.

Segue o código da macro:

Sub GenerateReport

  'Tell QV which object to copy from (in our case it is a Chart object, which ID = "FOR_SCHEDULE":

    set table=ActiveDocument.GetSheetObject("CH171")

    Caminho1 = getVariable("vPath") & getVariable("vPath1")

    table.ExportEx Caminho1, 5

   

  set table=ActiveDocument.GetSheetObject("CH172")

    Caminho2 = getVariable("vPath") & getVariable("vPath2")

  table.ExportEx Caminho2, 5

End Sub

Basta ajustar o código para salvar no formato CSV com delimitador, conforme a sugestão do mario.sergio.ti‌ e do lincoln.ristow

Márcio Rodrigo Campestrini
mario_sergio_ti
Partner - Specialist
Partner - Specialist

Perfeito marcio.campestrini‌. Abraço.

Consultor certificado | Quem compartilha, aprende!
https://www.linkedin.com/in/mariosergioti
lincoln_ristow
Partner - Contributor
Partner - Contributor

Sim Mayke,

Essa sintaxe abaixo é do script.

STORE EXPORTAÇÃO into ..\Apontamentos\_Tabelas\OS.csv (txt, delimiter is ';');

Marcio_Campestrini
Specialist
Specialist

Já conseguiu resolver o seu problema?

Se sim, marque as respostas úteis/correta para fechar o tópico e mantermos a comunidade organizada.

Márcio Rodrigo Campestrini
Marcio_Campestrini
Specialist
Specialist

Boa tarde

Conseguiu resolver seu problema? Se sim, marque a resposta correta e as respostas que auxiliaram (se for o caso) para encerrar o tópico e manter a comunidade organizada.

Márcio Rodrigo Campestrini
Anonymous
Not applicable
Author

desculpe a demora, vamos manter com CSV mesmo.

Obrigado.