Fórum Excel Bácico, Avançado e Vba

Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 MENU DE OPÇÕES

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
santa.ars



Mensagens : 136
Data de inscrição : 07/09/2011

MensagemAssunto: MENU DE OPÇÕES   Dom Out 16, 2011 12:45 am

Pessoal,

como criar um MENU no excel que me possibilite clicar e abrir os arquivos que podem ser diversos, em WORD / em EXCEL / em PDF / em POWERPOINT ???????
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: MENU DE OPÇÕES   Dom Out 16, 2011 2:20 pm

Bom dia!!

A rotina abaixo faz mas, terá que fazer uma adaptação..
Código:
Option Explicit
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Private Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
                      (ByVal hwnd As Long, _
                      ByVal lpOperation As String, _
                      ByVal lpFile As String, _
                      ByVal lpParameters As String, _
                      ByVal lpDirectory As String, _
                      ByVal nShowCmd As Long) As Long

Private Sub cmdListaArquivos_Click()
    ShellExecute Application.hwnd, "open", txtCaminho.Text & ".pdf", vbNullString, "C:\", SW_SHOWMAXIMIZED
    lstArquivos.Clear

    Dim arquivos() As String

    Dim lCtr As Long

    arquivos = ListaArquivos(txtCaminho.Text)

    For lCtr = 0 To UBound(arquivos)

      lstArquivos.AddItem arquivos(lCtr)

 

    Next

End Sub


Private Sub lstArquivos_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    'Obtém o item selecionado
    Dim FileName As String, Path As String
    Path = Me.txtCaminho.Text
    'adiciona a barra, se não houver
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    'monta o caminho completo do arquivo
    FileName = Path & lstArquivos.List(lstArquivos.ListIndex)
    'abre o arquivo
    Call ShellExecute(0, "open", FileName, "", _
                          Path, _
                          SW_SHOWMAXIMIZED)
End Sub


Private Sub UserForm_initialize()
txtCaminho.Text = "C:\Documents and Settings\alexandre\Desktop\Excel"
  txtCaminho.SetFocus


End Sub

Att...
Voltar ao Topo Ir em baixo
Ver perfil do usuário
santa.ars



Mensagens : 136
Data de inscrição : 07/09/2011

MensagemAssunto: Código   Dom Out 16, 2011 5:05 pm

Só é possível fazer com o código???
Pois tenho dificuldade com código.
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: MENU DE OPÇÕES   Dom Out 16, 2011 5:46 pm

Boa tarde!!

Se entendi bem sua questão, quer que o excel a um comando abra outro aplicativo ....

De dentro do excel seria por intermédio do VBA

Att..
Voltar ao Topo Ir em baixo
Ver perfil do usuário
santa.ars



Mensagens : 136
Data de inscrição : 07/09/2011

MensagemAssunto: Exemplo   Seg Out 17, 2011 1:15 am

Por acaso tem algum exemplo simples e mais fácil de entender que possa me passar?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: MENU DE OPÇÕES   Seg Out 17, 2011 2:03 am

Boa noite!!!

Após altera o diretório via VBA, os arquivos especificados de acordo com as extensões dos mesmo, será possível abri-los.

http://www.4shared.com/document/yV819p2Y/MINUTA_DE_TRANSPORTEII.html

Att..
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: MENU DE OPÇÕES   Hoje à(s) 1:33 pm

Voltar ao Topo Ir em baixo
 
MENU DE OPÇÕES
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» [engine] Super Menu Tk_Mouse 8D
» Hyper Menu 2.0
» Menu apontado por setas usando imagens
» Simples sistema de menu 1.0
» Como criar um pause menu diferente via GML?

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: