santa.ars
Mensagens : 138 Data de inscrição : 07/09/2011
| Assunto: 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 ??????? | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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... | |
|
santa.ars
Mensagens : 138 Data de inscrição : 07/09/2011
| Assunto: Código Dom Out 16, 2011 5:05 pm | |
| Só é possível fazer com o código??? Pois tenho dificuldade com código. | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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.. | |
|
santa.ars
Mensagens : 138 Data de inscrição : 07/09/2011
| Assunto: Exemplo Seg Out 17, 2011 1:15 am | |
| Por acaso tem algum exemplo simples e mais fácil de entender que possa me passar? | |
|
alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: 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.. | |
|
Conteúdo patrocinado
| Assunto: Re: MENU DE OPÇÕES | |
| |
|