Macro - Identificar o tipo de extensão do arquivo

[jealita]

Olá, pessoal. Estou precisando de uma ajuda.

 

Tenho uma pasta com várias sub pastas onde terceiros coloca um arquivo diariamente. Estou fazendo uma macro para que eu pegue esse arquivo em cada uma destas pastas e compile em um único arquivo. Porém como o aquivo vem de terceiros alguns vem com formato .xls e outros com formato .xlsx, então a macro dá erro. Queria saber se tem uma forma de identificar o tipo do arquivo para que eu possa abrir os dois.

 

No caso eu estava usando, mas como disse as vezes o formato vem como .xlsx então apresenta erro na macro.

 

Workbooks.Open Filename:="Y:\PastaPrincipal\SubPasta01\Arquivo.xls", _ UpdateLinks:=3

 

Alguém consegue me ajudar?

[Visitante]

Olá.

 

Experimente substituir a linha de comando que você postou pelas linhas abaixo.

On Error Resume NextWorkbooks.Open Filename:="Y:\PastaPrincipal\SubPasta01\Arquivo.xls", UpdateLinks:=3Workbooks.Open Filename:="Y:\PastaPrincipal\SubPasta01\Arquivo.xlsx", UpdateLinks:=3On Error GoTo 0

[jealita]

Acho que deu certo. Obrigada!