MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


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.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

    Exportação do conteudo da Listbox

    avatar
    souzadenilson
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 143
    Registrado : 02/05/2012

    Exportação do conteudo da Listbox Empty Exportação do conteudo da Listbox

    Mensagem  souzadenilson 4/8/2022, 01:37

    Boa noite.

    Como proceder para exportar uma consulta do access para listbox.
    Apos digitar o codigo o mesmo é carregado com todos os registro dentro da listbox.
    Como faço para conseguir exportar para o excel o conteudo que se encontra dentro da listbox



    Código:


    Private Sub Btn_Exportar_Click()
      Dim Query As DAO.QueryDef
            Set Query = CurrentDb.QueryDefs("csConsultaEntradaSaida")
           
            Query.SQL = Me.Lst_Entrada_Saida.RowSource
            Query.Close
       
            DoCmd.TransferSpreadsheet acExport, , "csConsultaEntradaSaida", "testExport"

    Set Query = Nothing
    MsgBox "Tabela Exportada com Sucesso!"
    End Sub





      Data/hora atual: 15/8/2022, 15:02