- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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
- « Previous Replies
-
- 1
- 2
- Next Replies »
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Lincoln,
onde faço essa configuração? no script?
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Amigo, no Excel o padrão mais cômodo é com ";" como delimitador, segue;
Store <TABELA> Into ARQUIVO.csv (codepage is 1252, txt, delimiter is ';');
https://www.linkedin.com/in/mariosergioti
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Mario,
onde devo inserir essa linha de código?
atualmente estamos usando o botão de export no objeto de tabela.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Perfeito marcio.campestrini. Abraço.
https://www.linkedin.com/in/mariosergioti
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Sim Mayke,
Essa sintaxe abaixo é do script.
STORE EXPORTAÇÃO into ..\Apontamentos\_Tabelas\OS.csv (txt, delimiter is ';');
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
Já conseguiu resolver o seu problema?
Se sim, marque as respostas úteis/correta para fechar o tópico e mantermos a comunidade organizada.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
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.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
desculpe a demora, vamos manter com CSV mesmo.
Obrigado.
- « Previous Replies
-
- 1
- 2
- Next Replies »