Notifications
Clear all

Uma macro abre arquivos que não são do Excel??

9 Posts
2 Usuários
0 Reactions
4,005 Visualizações
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Estou precisando de um comando que ordene a macro abrir outros arquivos que não são do Excel, ou sequer do office (no caso seria um arquivo .PDI, que é de um software utilizado onde trabalho).

Obrigado.

 
Postado : 14/07/2011 12:04 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


syberyan,

veja se desta forma consegue (indicando o caminho e nome do arquivo correto):


Sub AbrirArquivo()
Application.DisplayAlerts = False
Workbooks.OpenText Filename:="C:Mutirão.ods"
Application.DisplayAlerts = True
End Sub

 
Postado : 14/07/2011 12:56 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

error =/

Diz que o tipo de arquivo é inválido, este comando é para abrir arquivos do tipo texto não é??

O arquivo que estou tentando abrir é um visualizador de dados estatísticos de processo.

 
Postado : 14/07/2011 1:00 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


syberyan,

você consegue abrir este arquivo manualmente??

 
Postado : 14/07/2011 1:02 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Sim consigo!

Workbooks não são para arquivos do Excel??

 
Postado : 14/07/2011 1:06 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

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

 
Postado : 14/07/2011 4:31 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 


Agora sim....
Eu havia entendido que o arquivo poderia ser aberto pelo Excel...

 
Postado : 14/07/2011 5:21 pm
(@fernandofernandes)
Posts: 43750
Illustrious Member
Topic starter
 

Pouts rsrsrs deu certinho O.o

Embora eu não tenha entendido nada =/

mas blz sou novo nisso, eu aprendo rsrs

Muito obrigado amigos!!

 
Postado : 15/07/2011 7:26 am
 PEKO
(@peko)
Posts: 0
New Member
 

Pessoal:

A minha dúvida é parecida, mas um pouco diferente.
Estou no word e desejo abrir um arquivo do Excel em uma 'aba' específica a partir de um click num botão específico do word.

Tentando ser mais específico: tenho no arquivo "Relatório Final" em word 3 botões: 'A', 'B' e 'C' e quero que o usuário ao clicar no botão:
a) 'A' a macro abra o arquivo em Excel "Detalhes.xls" na 'aba' 1;
b) 'B' a macro abra o arquivo em Excel "Detalhes.xls" na 'aba' 2;
c) 'C' a macro abra o arquivo em Excel "Detalhes.xls" na 'aba' 3.

Alguém poderia me ajudar?

Desde já muitíssimo grato !

 
Postado : 08/10/2015 4:26 pm