Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 MENU DE OPÇÕES

Ir para baixo 
2 participantes
AutorMensagem
santa.ars




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

MENU DE OPÇÕES Empty
MensagemAssunto: MENU DE OPÇÕES   MENU DE OPÇÕES EmptyDom 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 ???????
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

MENU DE OPÇÕES Empty
MensagemAssunto: Re: MENU DE OPÇÕES   MENU DE OPÇÕES EmptyDom 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...
Ir para o topo Ir para baixo
santa.ars




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

MENU DE OPÇÕES Empty
MensagemAssunto: Código   MENU DE OPÇÕES EmptyDom Out 16, 2011 5:05 pm

Só é possível fazer com o código???
Pois tenho dificuldade com código.
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

MENU DE OPÇÕES Empty
MensagemAssunto: Re: MENU DE OPÇÕES   MENU DE OPÇÕES EmptyDom 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..
Ir para o topo Ir para baixo
santa.ars




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

MENU DE OPÇÕES Empty
MensagemAssunto: Exemplo   MENU DE OPÇÕES EmptySeg Out 17, 2011 1:15 am

Por acaso tem algum exemplo simples e mais fácil de entender que possa me passar?
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

MENU DE OPÇÕES Empty
MensagemAssunto: Re: MENU DE OPÇÕES   MENU DE OPÇÕES EmptySeg 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..
Ir para o topo Ir para baixo
Conteúdo patrocinado





MENU DE OPÇÕES Empty
MensagemAssunto: Re: MENU DE OPÇÕES   MENU DE OPÇÕES Empty

Ir para o topo Ir para baixo
 
MENU DE OPÇÕES
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Auto conclusao de celula com base em uma lista de opcoes

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: