MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Exportar dados para o Excel

    Compartilhe

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    [Resolvido]Exportar dados para o Excel

    Mensagem  Dougtha91 em 12/3/2018, 15:45

    Pessoal,

    Estou tentando exportar dados do access para o Excel, usando o código abaixo, tudo funciona perfeitamente, porém ele só esta colando os dados o cabeçalho não vem, o que devo fazer para que o cabeçalho também seja exportado?

    Public Function Export_Excel1()
    'By JPaulo ®️ Maximo Access
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, strConexão As String, xls As Object
    Set xls = CreateObject("Excel.Application")

    strLivro = CurrentProject.Path & "\" & (Format(Now(), "dd") & "." & Format(Now(), "mm")) & " - " & "RELATÓRIO EXPORTADO" & ".xlsx"
    strConexão = "Data Source=" & strLivro & ";" & _
    "HDR = yes;Format = xlsx"
    xls.Workbooks.Add
    'xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.Worksheets("Plan1").Activate
    strSQL = "SELECT * FROM TBL_EXPORT_EXCEL;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    xls.ActiveSheet.Range("A1").Select
    xls.ActiveCell.CopyFromRecordset rst
    xls.ActiveWorkbook.saveAs FileName:=strLivro
    xls.Application.Quit
    Set xls = Nothing
    End Function
    avatar
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7032
    Registrado : 05/11/2009

    Re: [Resolvido]Exportar dados para o Excel

    Mensagem  Alexandre Neves em 12/3/2018, 20:59

    Boa noite,
    Código:
    Public Function Export_Excel1()
    'By JPaulo ®️️ Maximo Access
    Dim rst As DAO.Recordset, strSQL As String, strLivro As String, strConexão As String, xls As Object
    dim Col as integer
    Set xls = CreateObject("Excel.Application")

    strLivro = CurrentProject.Path & "\" & (Format(Now(), "dd") & "." & Format(Now(), "mm")) & " - " & "RELATÓRIO EXPORTADO" & ".xlsx"
    strConexão = "Data Source=" & strLivro & ";" & _
    "HDR = yes;Format = xlsx"
    xls.Workbooks.Add
    'xls.Workbooks.Open (strLivro)
    xls.Visible = True
    xls.Worksheets("Plan1").Activate
    strSQL = "SELECT * FROM TBL_EXPORT_EXCEL;"
    Set rst = CurrentDb.OpenRecordset(strSQL, dbOpenDynaset)
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    'alterado por Alexandre Neves (MaximoAccess) incluir títulos de colunas
    For Col = 0 to rst.Fields.Count - 1
     xls.Worksheets("Plan1").Cells(1, Col + 1).Value = rst.Fields(Col).Name
    Next
    '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    xls.ActiveSheet.Range("A2").Select
    xls.ActiveCell.CopyFromRecordset rst
    xls.ActiveWorkbook.saveAs FileName:=strLivro
    xls.Application.Quit
    Set xls = Nothing
    End Function


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 76
    Registrado : 19/05/2017

    Exportar dados para o Excel

    Mensagem  Dougtha91 em 14/3/2018, 13:59

    Alexandre,
    Show funcionou perfeitamente, obrigado.

      Data/hora atual: 21/11/2018, 02:20