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

    NADIRONUNES
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010
    • Mensagem nº1

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

    Mensagem  NADIRONUNES 29/9/2022, 18:52

    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

    https://i.servimg.com/u/f66/20/26/56/23/semdo10.png
    • Ir para o topo
    DamascenoJr.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016
    • Mensagem nº2

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

    Mensagem  DamascenoJr. 30/9/2022, 00:36

    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

    • Ir para o topo
    NADIRONUNES
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010
    • Mensagem nº3

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

    Mensagem  NADIRONUNES 6/10/2022, 13:04

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

    exemplo: janeiro-2022
    • Ir para o topo
    Marcelo David
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3873
    Registrado : 21/04/2011
    • Mensagem nº4

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

    Mensagem  Marcelo David 6/10/2022, 19:26

    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.
    Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Como renomear o nome da Planilha do Excel Marcel11
    • Ir para o topo
    NADIRONUNES
    avatar
    NADIRONUNES
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 571
    Registrado : 30/08/2010
    • Mensagem nº5

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

    Mensagem  NADIRONUNES 6/10/2022, 21:33

    obrigado vou abrir um novo topico

    Marcelo David gosta desta mensagem

    • Ir para o topo
    Conteúdo patrocinado

    Conteúdo patrocinado


    • Mensagem nº6

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

    Mensagem  Conteúdo patrocinado

    • Ir para o topo
      Data/hora atual: 2/5/2024, 01:01