Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Abrir Diretório - P...
 
Notifications
Clear all

Abrir Diretório - PDF

 
2024 - VBA & Macros
Post Recente por ccaciano 8 anos atrás
3 Posts
2 Usuários
0 Reactions
1,017 Visualizações
RSS
ccaciano
 ccaciano
(@ccaciano)
Posts: 47
Eminent Member
Topic starter
 

A SUB deveria abrir um arquivo em PDF, porém a mesma retorna um erro de Variável.

ccaciano = PastaDeTrabalho
xOrcamento = UserForm
caminho_txt = TextBox

No TextBox (Caminho_txt) contém o diretório do arquivo PDF

No endereço K1 = contém o diretório do AdobeReader

C:Program FilesAdobeReader 10.0ReaderAcroRd32.exe
Sub ABRIR_PDF2()

zPrograma = ccaciano.Sheets("ORCAMENTO").Range("K1").Text
zPDF = xOrcamento.caminho_txt.Text

If ccaciano.Sheets("ORCAMENTO").Range("K1") = "" Then
DIRETORIO_CURTO_PDF
Else
Shell "zPrograma zPDF", vbMaximizedFocus
End If
End Sub
 
Postado : 10/01/2017 1:42 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Aparentemente pela mensagem de erro seu projeto VBA está como "Option Explicit", isso obriga a quetoda variavel deva ser declarada.

Experimente:

Sub ABRIR_PDF2()
Dim zPrograma as String, zPDF as string
zPrograma = ccaciano.Sheets("ORCAMENTO").Range("K1").Text
zPDF = xOrcamento.caminho_txt.Text

If ccaciano.Sheets("ORCAMENTO").Range("K1") = "" Then
DIRETORIO_CURTO_PDF
Else
Shell "zPrograma zPDF", vbMaximizedFocus
End If
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/01/2017 7:49 pm
ccaciano
 ccaciano
(@ccaciano)
Posts: 47
Eminent Member
Topic starter
 

Reinaldo,

Já arrumei o Código e deu tudo certo... Obrigado.

Sub ABRIR_PDF2()

Dim zPDF As String
Dim zPrograma As String
Dim zShell As String

zPDF = xOrcamento.caminho_txt
zPrograma = ccaciano.Sheets("ORCAMENTO").Range("K1")
zShell = zPrograma & " " & zPDF

If ccaciano.Sheets("ORCAMENTO").Range("K1") = "" Then
DIRETORIO_CURTO_PDF

Else
Shell zShell, vbMaximizedFocus

End If
End Sub
 
Postado : 11/01/2017 10:30 am
Forum Jump:
  Tópico Anterior
Próximo Tópico