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 7 anos atrás
4 Posts
2 Usuários
0 Reactions
1,417 Visualizações
RSS
 Cisneiro
(@cisneiro)
Posts: 75
Trusted 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious Member
 

Cisneiro,

Boa tarde!

Segue um exemplo que faz o que você quer.

Abrir arquivos PDF e JPG.zip

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

 
Postado : 20/06/2018 9:08 am
 Cisneiro
(@cisneiro)
Posts: 75
Trusted 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
(@wagner-morel-vidal-nobre)
Posts: 0
Illustrious 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.

Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)

Atenciosamente
Wagner Morel

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