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


2 participantes

    [Resolvido]Renomear arquivo pelo VBA com data atual

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Renomear arquivo pelo VBA com data atual Empty Renomear arquivo pelo VBA com data atual

    Mensagem  MarceloSilva 4/5/2012, 17:56

    Boa Tarde Amigos

    Estou com uma dúvida que acredito que para vcs é simples, porem estou tendo dificultades....
    Tenho o código abaixo em um mod global e tem como objetivo criar uma pasta em um determinado diretorio e copiar um arquivo .docm para dentro desta pasta atribuindo um novo nome....
    a função abaixo funciona corretamento, porem gostaria de atribuir o nome desta .docm com data atual do computador....
    ex: "04052012.docm"

    hoje na programação ela é renomeada como "Data.docm" (Destaque em Vermelho)
    Mas gostaria de implementar esse código.......

    alguem pode me ajudar nessa?

    ==============================================================================

    Option Compare Database

    Option Explicit
    Public Declare Function SHFileOperation Lib "shell32.dll" _
    Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) _
    As Long
    Public Const FO_COPY As Long = &H2
    Public Const FOF_ALLOWUNDO As Long = &H40
    Public Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Boolean
    hNameMappings As Long
    lpszProgressTitle As String
    End Type
    Public Sub CopiarArq(Origem As String, Destino As String)
    Dim RST As Long
    Dim FLOP As SHFILEOPSTRUCT
    FLOP.hWnd = 0
    FLOP.wFunc = FO_COPY
    FLOP.pFrom = Origem & vbNullChar & vbNullChar
    FLOP.pTo = Destino & vbNullChar & vbNullChar
    FLOP.fFlags = FOF_ALLOWUNDO
    RST = SHFileOperation(FLOP)

    If RST <> 0 Then
    MsgBox err.LastDllError, vbCritical Or vbOKOnly
    Else
    If FLOP.fAnyOperationsAborted <> 0 Then
    MsgBox "Falha na cópia!!!", vbCritical Or vbOKOnly
    End If
    End If
    End Sub
    Public Function fncCopiar_G1Industria()
    Dim fso As New FileSystemObject

    If Not fso.FolderExists("C:\Propostas_G1\Nova_Proposta") = True Then ' Verifica se a pasta existe.
    fso.CreateFolder ("C:\Propostas_G1\Nova_Proposta") ' caso não exista, cria a pasta
    End If

    CopiarArq "C:\Propostas_G1\Proposta G1 Industria.docm", "C:\Propostas_G1\Nova_Proposta\"
    Name "C:\Propostas_G1\Nova_Proposta\Proposta G1 Industria.docm" As "C:\Propostas_G1\Nova_Proposta\Data.docm"

    End Function
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Renomear arquivo pelo VBA com data atual Empty Re: [Resolvido]Renomear arquivo pelo VBA com data atual

    Mensagem  criquio 4/5/2012, 18:01

    Teste:

    Código:
    Name "C:\Propostas_G1\Nova_Proposta\Proposta G1 Industria.docm" As "C:\Propostas_G1\Nova_Proposta\" & Format(Now, "ddmmyyyy") & ".docm"


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    MarceloSilva
    MarceloSilva
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 156
    Registrado : 28/02/2011

    [Resolvido]Renomear arquivo pelo VBA com data atual Empty Re: [Resolvido]Renomear arquivo pelo VBA com data atual

    Mensagem  MarceloSilva 22/5/2012, 13:19

    Joia.....Resolvido....!!!!!
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Renomear arquivo pelo VBA com data atual Empty Re: [Resolvido]Renomear arquivo pelo VBA com data atual

    Mensagem  criquio 24/5/2012, 16:12

    Grato pelo retorno. O fórum agradece.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Renomear arquivo pelo VBA com data atual Empty Re: [Resolvido]Renomear arquivo pelo VBA com data atual

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 22:48