RDM
não registrado
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2011 13:51 hs
Boa Tarde! Pessoal, Eu tenho uma planilha em excel e gostaria de abrir esta planilha ao clicar em um botão na minha aplicação, como eu faço isto? Pois ja tentei conforme abaixo, mas não deu certo! obrigado! |
|
|
|
|
|
SRick
|
LAVRAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2011 14:07 hs
|
|
|
|
RDM
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2011 14:08 hs
|
|
|
|
RDM
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2011 14:09 hs
opa, agora foi, tinha um ponto no final, vou tentar e depois posto novamente, valeu! |
|
|
|
RDM
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 26/05/2011 14:46 hs
não deu certo não, eu preciso apenas abrir um arquivo xls |
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
Postada em 27/05/2011 10:31 hs
insira um common dialog control em seu projeto.
depois em um módulo cole
Public Const SW_SHOW As Long = 5
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
No form insira o commondialog e um commandbutton e cole
Private Sub Command1_Click()
Dim Caminho As String
With CommonDialog1
.InitDir = "C:\SUA_PASTA" 'Pasta padrão que deseja usar
'.DefaultExt = "*.xls" 'Extensão preferida
.ShowOpen 'Abre a janela para seleção do arquivo
Caminho= .FileName
End With
Dim i&
i& = ShellExecute(0, "open", Caminho, "", "", SW_SHOW)
End Sub
faça um teste e veja se funciona a contento
|
|
TÓPICO EDITADO
|
|
|
|
