MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Copiar arquivo e colar com outro nome - com variavel

    avatar
    hd.favaretto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 06/02/2018

    [Resolvido]Copiar arquivo e colar com outro nome - com variavel Empty [Resolvido]Copiar arquivo e colar com outro nome - com variavel

    Mensagem  hd.favaretto em 11/5/2020, 21:15

    Fala Galera, beleza?
    Não sou um expert no Access, mas tenho me aventurado por facilitar muito o dia a dia do nosso trabalho.

    Me deparei com a seguinte situação:

    Preciso copiar o arquivo de um lugar para outro, só que preciso que ele renomeie esse arquivo a partir de uma variavel presente no BD. Assim que termino de digitar o destino e seguir com o proximo comando, ele aparece um "Erro de Compilação" no qual diz que: "Era esperado: ="
    Abaixo segue o código que estou utilizando:
    -----------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Comando14_Click()

    Dim excelapp As Excel.Application
    Dim planilha As Workbook
    Dim fso As New NewFileSystemObject

    Set excelapp = CreateObject("excel.application")

    excelapp.Visible = False

    Set planilha = excelapp.Workbooks.Open("C:\BASES\bd_previa_gmr.xlsm")

    excelapp.Run "atualizacao"

    planilha.Save

    planilha.Close

    'copia e renomeia planilha

    valordata = Form_atlz_previa.anomes_previa.Value

    Dim caminhoprevia_novo As String
    Dim caminhoprevia_antigo As String

    caminhoprevia_novo = "C:\bases\bd_previa_gmr\bd_previa_gmr.xlsm"
    caminhoprevia_antigo = "C:\bases\bd_previa_gmr\planilhas_atuais\00. Ferramenta GMR - PRÉVIA - .xlsm"

    fso.copyfile caminhoprevia_novo, caminhoprevia_antigo, True


    DoCmd.Rename(caminhoprevia_antigo,acdefault,"C:\bases\bd_previa_gmr\planilhas_atuais\00. Ferramenta GMR - PRÉVIA - .xlsm")



    End Sub
    --------------------------------------------------------------------------------------------------------------------------------------------
    Conseguem me dar esse help?
    Valeu Equipe!!
    Alexandre Neves
    Alexandre Neves
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7781
    Registrado : 05/11/2009

    [Resolvido]Copiar arquivo e colar com outro nome - com variavel Empty Re: [Resolvido]Copiar arquivo e colar com outro nome - com variavel

    Mensagem  Alexandre Neves em 12/5/2020, 09:26

    Bom dia
    Vá acompanhando o fórum, mesmo que não precise no momento, ajuda a ter ideias das possibilidades do Access
    Veja este de poucos dias: https://www.maximoaccess.com/t37810-resolvidocopiar-arquivo-e-renomear-atraves-do-formulario


    .................................................................................
    Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
    Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
    Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
    Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
    avatar
    hd.favaretto
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 6
    Registrado : 06/02/2018

    [Resolvido]Copiar arquivo e colar com outro nome - com variavel Empty Concluido

    Mensagem  hd.favaretto em 26/5/2020, 13:15

    Muito obrigado, consegui utilizar a referencia que foi passada!

      Data/hora atual: 1/12/2020, 18:36