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

3 participantes

    [Resolvido]Como renomear o nome da Planilha do Excel

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    [Resolvido]Como renomear o nome da Planilha do Excel Empty [Resolvido]Como renomear o nome da Planilha do Excel

    Mensagem  NADIRONUNES Qui 29 Set 2022, 1:52 pm

    boa tarde a Todos

    como que faco pra renomear o nome da planilha do execel, mas usando o codigo no access pra alterar o nome da planilha usando esse codigo

    Código:
    Public Function TransMcxls()
    Dim xls As Object
    Parametros_de_CaminhoDR "SysCaminhoDrServidor.par"
    Parametros_de_Periodo "SysData.jas"
    Call CopiaFicheiro
    strXls = Dr_caminhoCartoes & Trim(UCase(RemoveAcento(Format(m_Mes, "mmmm-yyyy")))) & ".xlsx"
    Set xls = CreateObject("Excel.Application")
        Dim Filtro
        Filtro = Format(M_I, "mm/dd/yyyy") & "' AND '" & Format(M_F, "mm/dd/yyyy")
        xls.Workbooks.Open (strXls)
        Set xlsht = xls.Worksheets(1) ' 1 é a primeira planilha
        xls.Visible = False
      ' xls.Worksheets("Cartoes").Activate
          xls.ActiveSheet.Range("B38") = "RECEBIMENTOS DE CLIENTES "
        Call Conectar
        sql = "SELECT MCartoes.DATA, MCartoes.CIELOCREDITO, MCartoes.CIELODEBITO, MCartoes.FORTCARDCREDITO, MCartoes.REDECREDITO, MCartoes.REDEDEBITO, MCartoes.ALELO, MCartoes.VEGASCARD, MCartoes.PRIMECREDITO" & vbCrLf & _
              "FROM MCartoes " & vbCrLf & _
              "WHERE MCartoes.DATA Between '" & Filtro & "'" & vbCrLf & _
              "ORDER BY MCartoes.Data;"
        Set rst = Conexao.Execute(sql, 4)
    xls.ActiveSheet.Range("B3").Value = "DATA"
    xls.ActiveSheet.Range("B3").Font.Bold = True
    xls.ActiveSheet.Range("B4").Select
    xls.ActiveCell.CopyFromRecordset rst
    xls.ActiveWorkbook.Save
        mysql = "SELECT Lanccar.DataLanc, Lanccar.nomeCliente, Lanccar.nomeCliente, Lanccar.nomeCliente, Lanccar.nomeCliente, Lanccar.nomeCliente, Lanccar.VlrLC, Lanccar.Descricao, Lanccar.tP" & vbCrLf & _
              "FROM Lanccar " & vbCrLf & _
              "WHERE Lanccar.DataLanc Between '" & Filtro & "' And Tp='AV'" & vbCrLf & _
              "ORDER BY Lanccar.DataLanc;"
        Set RS = Conexao.Execute(mysql, 4)
    xls.ActiveSheet.Range("B40").Select
    xls.ActiveCell.CopyFromRecordset RS
    xls.ActiveWorkbook.Save

    xls.Application.Quit
    Set xls = Nothing
    Call Desconectar
    End Function

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3724
    Registrado : 21/11/2016

    [Resolvido]Como renomear o nome da Planilha do Excel Empty Re: [Resolvido]Como renomear o nome da Planilha do Excel

    Mensagem  DamascenoJr. Qui 29 Set 2022, 7:36 pm

    Se
    Código:
    Set xlsht = xls.Worksheets(1) ' 1 é a primeira planilha

    Tente

    Código:
    Set xlsht = xls.Worksheets(1) ' 1 é a primeira planilha
    xlsht.Name = "NovoNome"


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    crysostomo gosta desta mensagem

    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    [Resolvido]Como renomear o nome da Planilha do Excel Empty Re: [Resolvido]Como renomear o nome da Planilha do Excel

    Mensagem  NADIRONUNES Qui 06 Out 2022, 8:04 am

    e como eu faco pra criar nova planilha dentro dessa mesma e verificar se ja tem essa nova planilha

    exemplo: janeiro-2022
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3662
    Registrado : 21/04/2011

    [Resolvido]Como renomear o nome da Planilha do Excel Empty Re: [Resolvido]Como renomear o nome da Planilha do Excel

    Mensagem  Marcelo David Qui 06 Out 2022, 2:26 pm

    Boa tarde,
    se a dúvida foi respondida, por favor defina o tópico como resolvido.

    E nova dúvida abra um novo tópico por gentiliza.



    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    [Resolvido]Como renomear o nome da Planilha do Excel Marcel11
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 546
    Registrado : 30/08/2010

    [Resolvido]Como renomear o nome da Planilha do Excel Empty Re: [Resolvido]Como renomear o nome da Planilha do Excel

    Mensagem  NADIRONUNES Qui 06 Out 2022, 4:33 pm

    obrigado vou abrir um novo topico

    Marcelo David gosta desta mensagem


      Data/hora atual: Qui 26 Jan 2023, 4:54 pm