MaximoAccess

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

Obrigado

Administração do MaximoAccess


Participe do fórum, é rápido e fácil

MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    [Resolvido]Exportar dados para o Excel

    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Exportar dados para o Excel Empty [Resolvido]Exportar dados para o Excel

    Mensagem  Dougtha91 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
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    [Resolvido]Exportar dados para o Excel Empty Re: [Resolvido]Exportar dados para o Excel

    Mensagem  Alexandre Neves 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
    avatar
    Dougtha91
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [Resolvido]Exportar dados para o Excel Empty Exportar dados para o Excel

    Mensagem  Dougtha91 14/3/2018, 13:59

    Alexandre,
    Show funcionou perfeitamente, obrigado.

      Data/hora atual: 7/3/2021, 05:58