18 Replies Latest reply: Jul 26, 2017 3:42 PM by Mayke Bulitini Candido Amorim RSS

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

    Mayke Bulitini Candido Amorim

      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