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 para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Compartilhe

    alerorafa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 11/09/2012

    [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  alerorafa em Dom 27 Ago 2017, 11:44

    Bom dia a todos, primeiro quero pedir desculpa aos moderadores, se esta pergunta ja foi sanada, mas é uma pergunta muito específica e não achei no fórum, vamos lá
    Tenho o seguinte código:
    Ele faz conexão com sql para trazer uma consulta para exportar no excel, queria saber se há possibilidade, sem eu precisar usar outro código, de predefinir o nome do arquivo na exportação, deixar o nome da plan (Aba que fica aba no excel, plan1, plan2, etc) com o nome "Exportado"
    Agradeço desde já a força

    Código:
    Dim SQL As String
    Dim xlApp As Object
    Dim xlWB As Object
    Dim xlWS As Object
     
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Worksheets(1)

    LJ = InputBox("Digite o nº da Loja")
    MA = InputBox("Digite o MesAno Tudo Junto Exemplo: JUL2017")

    SQL = ""
    SQL = SQL & "SELECT  DTA_PGTO," & vbCrLf
    SQL = SQL & "        DOCTO = '' ," & vbCrLf
    SQL = SQL & "        HISTORICO = DESC_EVEN ," & vbCrLf
    SQL = SQL & "                COMPLEMENTO = MES_ANO ," & vbCrLf
    SQL = SQL & "                        DC = 'D' ," & vbCrLf
    SQL = SQL & "                                SUM(VALOR) AS VALOR ," & vbCrLf
    SQL = SQL & "                                        CODFORN = '' ," & vbCrLf
    SQL = SQL & "        RIGHT(RTRIM(B.LJ_A),4) AS LOJA ," & vbCrLf
    SQL = SQL & "        CLASSE = 'DESPESAS COM PESSOAL' ," & vbCrLf
    SQL = SQL & "        SUBCLASSE = A.DESC_EVEN ," & vbCrLf
    SQL = SQL & "        [TIP CTA] = '' ," & vbCrLf
    SQL = SQL & "        [Conta Pag] = ''," & vbCrLf
    SQL = SQL & "        [TIP CTA DESTINO]=''," & vbCrLf
    SQL = SQL & "        [CONT DESTINO]=''" & vbCrLf
    SQL = SQL & "FROM    HOLERITH AS A INNER JOIN LICENCIADAS..TBL_LICENCIADAS AS B ON" & vbCrLf
    SQL = SQL & "A.CNPJ = B.CNPJ_ANTIGA COLLATE Latin1_General_CI_AS" & vbCrLf
    SQL = SQL & "WHERE COD_EVEN NOT IN " & vbCrLf
    SQL = SQL & "('0001','0004','0005','0012','0014','0015','0024','0025','0036','0037','0038','0039','0043','0047','0050','0052','0053','0055','0057','0061','0062','0082'," & vbCrLf
    SQL = SQL & "'0096','0105','0110','0112','0157','0158','0161','0162','0167','0194','1030','1040','1114','1162','1169','1252','1382','1556','1608','1737','1806','1814','1843')" & vbCrLf
    SQL = SQL & "AND B.LJ_A like '%" & LJ & "'" & vbCrLf
    SQL = SQL & "AND A.MES_ANO='" & MA & "'" & vbCrLf
    SQL = SQL & "GROUP BY B.LJ_A ," & vbCrLf
    SQL = SQL & "        A.DESC_EVEN ," & vbCrLf
    SQL = SQL & "        A.MES_ANO," & vbCrLf
    SQL = SQL & "        DTA_PGTO" & vbCrLf

        Set RSELECT = FSELECT(CONC(), SQL)
        
    '    On Error GoTo errorHandler
     xlApp.Visible = True
    xlWS.Range("A1").Value = "Data"
    xlWS.Range("B1").Value = "docto"
    xlWS.Range("C1").Value = "Histórico"
    xlWS.Range("D1").Value = "Complemento"
    xlWS.Range("E1").Value = "C/D"
    xlWS.Range("F1").Value = "Valor (+/-)"
    xlWS.Range("G1").Value = "Cod.Forn"
    xlWS.Range("H1").Value = "Loja"
    xlWS.Range("I1").Value = "Classe"
    xlWS.Range("J1").Value = "SubClasse"
    xlWS.Range("K1").Value = "Tip Cta"
    xlWS.Range("L1").Value = "Conta Pag"
    xlWS.Range("M1").Value = "TIP CTA DESTINO"
    xlWS.Range("N1").Value = "CONT DESTINO"

    xlWS.Range("A2").CopyFromRecordset RSELECT

    Set RS = Nothing
    Set xlWS = Nothing
    Set xlWB = Nothing
    Set xlApp = Nothing
     
    ExportToExcel = True

    Set RST = Nothing
    Exit Sub
     
    errorHandler:
        Debug.Print Err.Description
        ExportToExcel = False
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3334
    Registrado : 14/08/2013

    Re: [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  FabioPaes em Dom 27 Ago 2017, 17:05

    Experimente:
    ...
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Add
    Set xlWS = xlWB.Worksheets(1)
    xlWS .Name = "NomePlanilha"


    ...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    alerorafa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 11/09/2012

    Re: [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  alerorafa em Dom 27 Ago 2017, 19:14

    Beleza!!! Renomeou a parte de baixo, mas faltou o nome do arquivo...

    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3334
    Registrado : 14/08/2013

    Re: [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  FabioPaes em Dom 27 Ago 2017, 20:22

    Nome do arquivo? Onde quer colocar o nome do arquivo? Quer colocar em qual célula?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    alerorafa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 11/09/2012

    Re: [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  alerorafa em Seg 28 Ago 2017, 02:54

    Por exemplo, quando exportar, ja vim com o nome da planilha pronta pra salvar

    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3334
    Registrado : 14/08/2013

    Re: [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  FabioPaes em Seg 28 Ago 2017, 14:52

    Para salvar em um Local Fixo coloque:
    ...
    xlWS.Range("A2").CopyFromRecordset RSELECT
    xlWB.saveas FileName:="D:\NomePlanilha.xlsx", FileFormat:=51
    ...

    Irá salvar um arquivo no disco D:\

    Cuidado com a permissão de gravação... Se colocar no C:\ pode ter problemas com permissão do Windows, e nao conseguir gravar.


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    alerorafa
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 7
    Registrado : 11/09/2012

    Re: [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  alerorafa em Qua 30 Ago 2017, 02:16

    Agora foi, vlw!!!
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3334
    Registrado : 14/08/2013

    Re: [Resolvido]Exportar para Excel com Nome do arquivo predefinido, nome de aba (da plan) renomeado

    Mensagem  FabioPaes em Qua 30 Ago 2017, 13:41

    Grato pelo retorno e até aproxima se Deus quiser!


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

      Data/hora atual: Sab 23 Set 2017, 06:45