+7 votos
46 visitas
Existe alguma forma de gerar uma planilha excel através do VBA sem que necessária tenha que ter o excel instalado na máquina. Talvez instanciando algum objeto dentro da macro.

Código para criação da planilha em excel

 

Dim oXLApp As Object, wb As Object

    Set oXLApp = CreateObject("Excel.Application")

    '~~> Hide Excel
    oXLApp.Visible = False

    '~~> Open files
    Set wb = oXLApp.Workbooks.Add
    Set ws = wb.WorkSheets.Add

    ws.Range("B10") = "Edvaldo VITOR GOMES"
    ws.range("B10").Font.Bold = True
    ws.Range("C10") = "VITOR GOMES"
    ws.Columns("A:F").EntireColumn.AutoFit
    wb.SaveAs "C:\TESTE.xlsx"
    wb.close

    Dim email As Object

    Set email = NewMail

    email.ContentType = "text/html"

    email.IsHtml = True
    email.SendTo = "edvaldo.gomes@benner.com.br"
    email.Subject = "teste"
    email.AddAttachedFile("c:\teste.xlsx")

    email.Text.Add("segue anexo teste")

    email.Send

    Set email = Nothing
    Set oXLApp = Nothing
    Set wb = Nothing
    Set ws = Nothing
por (155 pontos) | 46 visitas
Márcio, tem algum exemplo, como instanciar e criar a planilha através da macro?

1 Resposta

+8 votos
Melhor resposta
Desde a versão 14.0 nós liberamos junto com o Runner a DocumentFormat.OpenXml.dll. Utilizando essa biblioteca poderá criar documentos sem a necessidade do Office instalado. http://msdn.microsoft.com/en-us/library/office/hh180830(v=office.14).aspx
por (355 pontos)
selecionada por

Perguntas relacionadas

0 votos
1 resposta
perguntado 23 Jul, 2015 por Anderson Roberto (24 pontos) | 26 visitas
+2 votos
2 respostas
perguntado 17 Jul, 2015 por matheus.silva (116 pontos) | 34 visitas
+4 votos
1 resposta
perguntado 12 Jun, 2015 por vitor.melon (21 pontos) | 52 visitas
+5 votos
1 resposta
+7 votos
1 resposta
perguntado 9 Mai, 2014 por paulo.silva (861 pontos) | 86 visitas
Melhores Feb 2020
  1. diuari.molinari

    30 Pontos

  2. henrique.muller

    18 Pontos

  3. juliano.pezzini

    13 Pontos

  4. thiago.almeida

    10 Pontos

  5. bruno.viek

    9 Pontos

  6. metalsystem.gustavo

    8 Pontos

  7. gustavo.lemos

    8 Pontos

  8. Leonardo Rovigo

    7 Pontos

  9. felipe.souza

    5 Pontos

  10. antonio.teles

    5 Pontos

200 pontos
Melhores 2020 Feb 24 - Mar 01
  1. diuari.molinari

    9 Pontos

  2. bruno.viek

    9 Pontos

  3. gustavo.lemos

    8 Pontos

  4. felipe.souza

    5 Pontos

  5. juliano.pezzini

    5 Pontos

  6. pedro.amorim

    2 Pontos

409 perguntas
461 respostas
334 comentários
461 usuários