Ir ao conteúdo

Posts recomendados

Postado

Boa Tarde Pessoal,

Estou desenvolvendo uma planilha para uma empresa,
Dentro dessa planilha, vai ter lugar para que a pessoa que há esteja utilizando anexe documentos,
Esses documentos irão ser buscados em uma pasta comum que temos na empresa "F:\"
A ideia é desenvolver um botão que ao clicar ele abra essa pasta, ao abrir essa pasta a pessoa busca o pdf que quer, e ao clicar nele para abrir, ele salve o endereço do pdf,
A ideia é clicar no botão, ele abrir a pasta e nessa pasta eu conseguir salvar um pdf no excel (salvar no sentido de inserir um link - é basicamente inserir o link do pdf, porém com uma macro)
O botão teria que ter o nome "Anexo" e o link deveria ser salvo na célula do lado deste botão
Alguém poderia me ajudar a desenvolver uma Macro para isso?

Postado

Segue exemplo, a macro insere o hyperlink na celula a lado da celula selecionada.

 

Sub SEU_BOTAO()

    With Application.FileDialog(msoFileDialogFilePicker)
        .Title = "Selecione um Arquivo Pdf"
        .AllowMultiSelect = False
        .Filters.Clear
        .Filters.Add "Pdf Files", "*.pdf; *.pdf; *.pdf; *.pdf", 1
        .Show
        On Error GoTo ex
        fullpath = .SelectedItems.Item(1)
    End With
    
    If VBA.InStr(fullpath, ".pdf") = 0 Then
ex:
        Exit Sub
    End If
    
        Set objFSO = CreateObject("Scripting.FileSystemObject")
          
     ActiveSheet.Hyperlinks.Add Anchor:=ActiveCell.Offset(, 1), _
     Address:=fullpath, TextToDisplay:=objFSO.Getfile(fullpath).Name, ScreenTip:=objFSO.Getfile(fullpath).Name
     
End Sub

 

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!