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

    [Resolvido]Salvar cópia de uma planilha em outra pasta

    avatar
    EliasSantos
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 01/10/2011

    [Resolvido]Salvar cópia de uma planilha em outra pasta Empty [Resolvido]Salvar cópia de uma planilha em outra pasta

    Mensagem  EliasSantos 25/5/2021, 01:07

    Boa noite a todos!

    Já busquei no fórum, mas não encontrei uma solução que atendesse à minha necessidade de forma simples.

    Preciso fazer via vba:

    Copiar uma planilha
    Origem: D:\PLANILHA_TABLET\PlanilhaTablet.xlsx
    Destino: D:\ANEXOS

    Desde já obrigado a todos!
    avatar
    EliasSantos
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 01/10/2011

    [Resolvido]Salvar cópia de uma planilha em outra pasta Empty Re: [Resolvido]Salvar cópia de uma planilha em outra pasta

    Mensagem  EliasSantos 25/5/2021, 01:44

    Encontrei esse código do JPaulo aqui no fórum, está funcionando blza. Só que percebi agora que vou precisar alterar o nome do arquivo na pasta destino. Agradeço se alguém puder me ajudar.

    Código:
                 Dim fso
                  Dim file As String, sfol As String, dfol As String
                  Dim ARQUIVO_ORIGEM As String, PastaOrigem As String, PastaDestino As String
                  
                  ARQUIVO_ORIGEM = "PlanilhaTablet.xlsx"
                  PastaOrigem = "D:\PLANILHA_TABLET\"
                  PastaDestino = "D:\ANEXOS\"
                  file = ARQUIVO_ORIGEM  ' nome do ficheiro
                  sfol = PastaOrigem   ' caminho inicial
                  dfol = PastaDestino   ' caminho destino
                  Set fso = CreateObject("Scripting.FileSystemObject")
                  If Not fso.FileExists(sfol & file) Then
                  MsgBox sfol & file & " não existe!", vbExclamation, "Erro"
                  ElseIf Not fso.FileExists(dfol & file) Then
                  fso.CopyFile (sfol & file), dfol, True
                  Else
                  MsgBox dfol & file & " existente!", vbExclamation, "Sucesso"
                  End If
    avatar
    EliasSantos
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 01/10/2011

    [Resolvido]Salvar cópia de uma planilha em outra pasta Empty Re: [Resolvido]Salvar cópia de uma planilha em outra pasta

    Mensagem  EliasSantos 25/5/2021, 17:18

    Problema resolvido, encontrei esse código na internet e deu certo.


    Código:
    Sub Renomear_Arquivo()
            
    Dim nAntigo As String
    Dim nNovo As String
    Dim varNovoNome As String
                
        'Novo Nome
        varNovoNome = "Planilha_" & Me.LOCAL & "_" & Format(Me.DATA_OPER, "DD.mm.yyyy") & "_Equipe_" & Me.EQUIPE & ".xlsx"
        
        'Nome Antigo do Arquivo a renomear
        nAntigo = "D:\ANEXOS\PlanilhaTablet.xlsx"
        
        'Novo Nome atraves da variavel varNovoNome
        'Se o nemo estiver digitado SEM a extensão ".xls" use esta linha
        'nNovo = "C:\Meus documentos\" & varNovoNome & ".xls"
        
        'Novo Nome atraves da variavel varNovoNome
        'Se o nome estiver digitado COM a extensão ".xls" use esta linha
        nNovo = "D:\ANEXOS\" & varNovoNome

        Name nAntigo As nNovo
                
    End Sub
    avatar
    EliasSantos
    Novato
    Novato

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 01/10/2011

    [Resolvido]Salvar cópia de uma planilha em outra pasta Empty Re: [Resolvido]Salvar cópia de uma planilha em outra pasta

    Mensagem  EliasSantos 25/5/2021, 17:35



    Dando o tópico por encerrado.

      Data/hora atual: 23/6/2021, 07:30