Notifications
Clear all

Macro para atualizar múltiplos vínculos automaticamente

4 Posts
2 Usuários
0 Reactions
2,538 Visualizações
(@caiocito)
Posts: 37
Eminent Member
Topic starter
 

Galera boa noite. Tenho um problema que se alguém conseguir resolver, facilitaria e muito a minha vida. Dei uma pesquisada no forum, mas não achei especificamente o que eu estou buscando.

É o seguinte, tenho várias planilhas para atualizar diariamente, que estão linkadas com boletins que são postados diretamente nas pastas da rede aqui da empresa. Gostaria de ter uma macro que pudesse trocar esses vínculos automaticamente, onde somente o último arquivo postado em cada diretório fosse trocado no vínculo. Se não entenderam posso explicar melhor. Obrigado!

 
Postado : 15/09/2014 4:01 pm
(@caiocito)
Posts: 37
Eminent Member
Topic starter
 

Pra facilitar, existe a possibilidade de eu encontrar via código vba, a pasta de trabalho mais recente salva em um diretório específico na rede? Independentemente do nome?

 
Postado : 15/09/2014 5:17 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Quanto a atualização dos hyperlynks, pesquise por Vinculo e até mesmo por hyperlynk e encontrara vários tópicos.

Quanto ao arquivo mais recente, você pode estar adaptando a rotina abaixo :

Sub MostrarAcessoAoArquivo()
    Dim fs, f, s
    
    'Definir o arquivo especifico na rotina
    filespec = "C:Documents and SettingsMvcHardMeus documentosTESTEdeletar.xls"
    
    'Ou Abrir Cx de dialogo para selecionar um arquivo
    'filespec = Application.GetOpenFilename
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
        s = UCase(filespec) & vbCrLf
        s = s & "Criado em : " & f.DateCreated & vbCrLf
        s = s & "Último Acesso : " & f.DateLastAccessed & vbCrLf
        s = s & "Última Modificação : " & f.DateLastModified
    MsgBox s, 0, "Informações de Acesso ao arquivo"
    
End Sub

Ajuste o Caminho e o nome do arquivo que pretende ter detalhes.

A rotina acima foi postado no Tópico abaixo:
Data de atualização
http://planilhando.com.br/forum/viewtop ... 180&p=4367

[]s

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 15/09/2014 6:49 pm
(@caiocito)
Posts: 37
Eminent Member
Topic starter
 

Quanto a atualização dos hyperlynks, pesquise por Vinculo e até mesmo por hyperlynk e encontrara vários tópicos.

Quanto ao arquivo mais recente, você pode estar adaptando a rotina abaixo :

Sub MostrarAcessoAoArquivo()
    Dim fs, f, s
    
    'Definir o arquivo especifico na rotina
    filespec = "C:Documents and SettingsMvcHardMeus documentosTESTEdeletar.xls"
    
    'Ou Abrir Cx de dialogo para selecionar um arquivo
    'filespec = Application.GetOpenFilename
    
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(filespec)
        s = UCase(filespec) & vbCrLf
        s = s & "Criado em : " & f.DateCreated & vbCrLf
        s = s & "Último Acesso : " & f.DateLastAccessed & vbCrLf
        s = s & "Última Modificação : " & f.DateLastModified
    MsgBox s, 0, "Informações de Acesso ao arquivo"
    
End Sub

Ajuste o Caminho e o nome do arquivo que pretende ter detalhes.

A rotina acima foi postado no Tópico abaixo:
Data de atualização
http://planilhando.com.br/forum/viewtop ... 180&p=4367

[]s

Tudo bem, mas acho que vc não entendeu. Eu gostaria de descobrir dentro do próprio código qual seria o arquivo mais recente que foi criado no diretório especificado, para que eu possar rodar a macro e atualizar esse vínculo automaticamente, do arquivo antigo para o mais novo. Entendeu?

 
Postado : 09/10/2014 6:45 pm