Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
botão de comando ab...
 
Notifications
Clear all

botão de comando abrir arquivos de um diretório

 
2024 - VBA & Macros
Post Recente por Wagner Morel 6 anos atrás
4 Posts
2 Usuários
0 Reactions
1,212 Visualizações
RSS
 Cisneiro
(@cisneiro)
Posts: 0
New Member
Topic starter
 

galera bom dia,

Na minha planilha tem um form com um botão de comando, cujo objetivo é abrir arquivos do seguinte diretório: \M2500SMEL313N32Sublotrabalhos - SUBLOPAINEL SUBLOMÍDIA

nessa pasta midia tem arquivos do tipo pdf e jpg. Mas o código que eu estou usando só abre o pdf, jpg não abre. Como fazer com que ele abra os dois tipos de arquivo.

estou usando este codigo no botão:

Private Sub CommandButton1_Click()
Dim arquivomidia As String



    
    arquivomidia = "\M2500SMEL313N32Sublotrabalhos - SUBLOPAINEL SUBLOMÍDIA" & ComboBox1.Value & ".pdf"
    
    
    
    
    Shell "C:WINDOWSexplorer.exe """ & arquivomidia & "", vbNormalFocus
End Sub

agradeço desde já

 
Postado : 20/06/2018 9:00 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Cisneiro,

Boa tarde!

Segue um exemplo que faz o que você quer.

Abrir arquivos PDF e JPG.zip
 
Postado : 20/06/2018 9:08 am
 Cisneiro
(@cisneiro)
Posts: 0
New Member
Topic starter
 

Wagner,

Apareçeu a seguinte mensagem: o tipo definido pelo usuário não foi definido

na combobox do form é listado os arquivos da pasta e do lado da combobox tem um botão de comando "abrir arquivo", quero que ao clicar nele ele abra o arquivo cujo nome é o mesmo que consta na combobox.

o rowsource da combobox é uma coluna de uma sheet onde consta o nome dos arquivos da pasta midia.

 
Postado : 20/06/2018 9:23 am
 Wagner Morel
(@wagner-morel-vidal-nobre)
Posts: 4063
Famed Member
 

Cisneiro,

Você precisa adicionar a referência no VBA. No próprio código que fiz está informando isso.

Referência:

    '************************************************
    'NECESSITA DA REFERÊNCIA Microsoft Scripting Runtime
    '************************************************

Faça essa alteração e rode o exemplo. Depois é só estudar e fazer as necessárias adaptações, pois, no meu exemplo, o arquivo ao selecionar o nome do arquivo no Combo o que é o padrão e qualquer programa.

 
Postado : 20/06/2018 11:05 am
Forum Jump:
  Tópico Anterior
Próximo Tópico