WJSRamos

Rapaz, funcionou perfeitamente, muito obrigado mesmo!

Boa tarde Srs.

Estou criando um banco de dados no Excel integrado com documentos e diversos tipos de arquivos salvos em diretórios do computador.

Ele tem UserForm que lista em uma ListBox todos os arquivos e pastas do cliente, e lista o caminho da pasta selecionada.

Preciso fazer um botão que quando ativado, abra o arquivo, independente de sua extensão.

Por exemplo tenho o seguinte caminho e quero que ao clicar o sistema abra o mesmo:

C:\Users\TOSHIBA\Desktop\C.I.ematur\Wellington Jackson de Souza Ramos [2]\1-Documentos Pessoais\Novo Documento de Texto.txt

Procurei na internet porém achei apenas como abrir tipos separados de arquivos (XLS, WORD, PDF, TXT, JPG), mas preciso de um geral, pois ele trabalhará em conjunto com outros programas que geram arquivos com extensões diferenciadas, tipo KML, CSV, DWG, BAK entre outros.

Agradeço desde já...

Segue anexo a solução.

Foi inserido a formula =SOMASE($A$3:$A$25798;E3;$B$3:$B$25798) na primeira célula da tabela 2 e copiada para as demais, assim ele verifica o nome e soma os valor destes nomes.

Por favor, verifique lá se é isto mesmo.

Calculo da Moda.xls

Bom dia MooM,
 
Por favor, verifique se este código deu certo para você, alterei algumas coisas aqui para ele funcionar:
 

--------------------------------------------------

Sub PDF()
 
Dim Nome As String
Dim SDate As String
Dim MyLocal As String
 
Nome_Arq = MyLocal & "SI FCL --- " & Nome & " --- " & Export & " --- " & Agent & " --- " & PO & " --- " & Day(Now) & _
"-" & Month(Now) & "-" & Year(Now) & ".pdf"
 
MyLocal = "G:\INTERNACIONAL\SI -MODELO DE  INSTRUÇÃO DE EMBARQUE\MODELO NOVO SI MARÍTIMA FCL - 2015\PDF\"
Nome = Range("AB12").Value
Export = Range("T12").Value
Agent = Range("AB10").Value
PO = Range("AB6").Value
SDate = Now
 
If MsgBox("Gerar PDF", vbYesNo) = vbYes Then
Sheets("SEA FCL - SHIPPING INSTRUCTIONS").Select
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Nome_Arq, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
Application.DisplayAlerts = False
Else
Application.DisplayAlerts = False
End If
 
End Sub

------------------------------------------