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


    Gera arquivo em Excel

    avatar
    brunobpr
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 13
    Registrado : 11/05/2012

    Gera arquivo em Excel Empty Gera arquivo em Excel

    Mensagem  brunobpr em 17/9/2018, 19:55

    Public Sub Comandoxx_Click()
    ' nao deu certo
    'Declarei as variáveis strConsulta e strNomePlanilha
    Dim strConsulta, strNomePLanilha As String

    'Na variável strConsulta eu informei o nome exato da minha consulta
    strConsulta = "SELECT * FROM C_BASE "

    'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
    strNomePLanilha = CurrentProject.Path & "\base.xls"

    'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    MsgBox "Arquivo Gerado com sucesso"

    End Sub

    estou apanhando da condicao acima, pois nao consegui ..
    Vi varios exemplos mas mesmo assim nao consegui
    o que preciso de fato e com base em uma consulta ja existente exportar os dados para o excel
    fico no aguardo da ajuda
    bigfill
    bigfill
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 388
    Registrado : 27/03/2015

    Gera arquivo em Excel Empty Re: Gera arquivo em Excel

    Mensagem  bigfill em 17/9/2018, 20:04

    Boa tarde brunobpr,

    Cole o código abaixo e teste se funciona. No meu aqui funcionou normalmente.

    Código:
    Public Sub Comandoxx_Click()
    ' nao deu certo
    'Declarei as variáveis strConsulta e strNomePlanilha
    Dim strConsulta, strNomePLanilha As String

    'Na variável strConsulta eu informei o nome exato da minha consulta
    strConsulta = "C_BASE "

    'Na varivável strNomePlanilha eu informei o local e o nome do arquivo a ser gerado.
    strNomePLanilha = CurrentProject.Path & "\base.xls"

    'Aqui foi montado a expressao que faz exportar a cunsulta em um arquivo de excel.
    DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, strConsulta, strNomePLanilha

    MsgBox "Arquivo Gerado com sucesso"

    End Sub

    Foi alterado somente a parte da consulta, de strConsulta = "SELECT * FROM C_BASE " para strConsulta = "C_BASE ".

      Data/hora atual: 9/12/2019, 01:54