Sim consigo!
Workbooks não são para arquivos do Excel??
syberyan, de fato esta instrução é para arq Excel, e pelo que entendi, me corrija se estiver errado, você quer uma rotina para abrir um arquivo gerado por outro aplicativo mas que não pode ser lido no excel, é somente para abri-lo com o programa associado ao mesmo, por exemplo :
.doc = arquivo Word
.xls, .xlsx, xlsxm e por ai vai arq do Excel,
.pdf arq Acrobate, Foxit Reader, e outros.
Então o arquivo que citou tem a extensão PDI, como não sei o nome do mesmo e nem qual o programa em que o mesmo é executado, vamos utilizar a seguinte Function aonde usamos a função ShellExecute :
A função ShellExecute é capaz de “executar” um determinado arquivo, abrindo o arquivo associado a este, parâmetro determinado pelo Windows. É útil quando sabemos apenas o caminho do arquivo, e não de seu aplicativo, até porque isso pode mudar de computador para computador.
Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3
Public 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
Sub AbrirArquivo()
On Error Resume Next
Call ShellExecute(0, "open", "C:Meus documentosNOMEdoARQUIVO.PDI", "", _
"", _
SW_SHOWMAXIMIZED)
End Sub
Fonte :
http://www.tomasvasquez.com.br/blog/mic ... ute-no-vba
Acerte o Caminho e Nome do arquivo, faça os testes e veja se era isto oque queria, qq duvida retorne.
[]s
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 14/07/2011 4:31 pm