vba VBA The file could be corrupted

[ThaisJoffe]

Preciso linkar um arquivo xls com o Access e, para que ele atualize sozinho os dados do banco, preciso me livrar de um erro que está dando ao abrir o arquivo: The file and extension of 'nome_do_arquivo' don't match. The file could be corrupted or unsafe. Unless you trust its source, don't open it. Do you want to open it anyway?

Quando dou "ok" ele abre normalmente e se eu salvar como, o novo arquivo não dá mais essa mensagem de erro. No entanto, não quero precisar abrir manualmente o arquivo e salva-lo todos os dias só para me livrar desse erro. Tenho que dar um tratamento para ele usando VBA e gostaria de me livrar dessa mensagem de erro via macro. Só não sei como fazer isso. Tentei várias maneiras de abrir o arquivo e várias maneiras de fechar salvando como. O novo arquivo salvo mantém essa mensagem, o que impede o Access de atualizar os dados ao tentar lê-lo.

Meu código se encontra abaixo (deletei o que não interessava para tornar mais fácil a ajuda):
Public Sub Busca()
Dim sFile, dire As String

'tirei o diretório propositalmente aqui para que vocês substituam pelo de vocês
dire = "K:\...\"
sFile = Dir(dire & "arquivo1.xls")
If sFile <> "" Then
Set wbTransf = Workbooks.OpenXML(dire & sFile)
wbTransf.Close SaveChanges:=True, Filename:=dire & "arquivo2.xls"
Else
MsgBox "GS Report não encontrado"
End If
End Sub
 

Não é possível anexar o arquivo corrompido aqui para facilitar a vida de vocês, mas testarei todas as soluções que me propuserem.

Desde já, agradeço a ajuda.

[Jhonas]

Referente ao ERRO:

O arquivo e a extensão de 'nome_do_arquivo' não correspondem.
O arquivo pode estar corrompido ou inseguro.
A menos que você confie em sua origem, não o abra.
Você quer abri-lo mesmo assim?
 

Essa mensagem deve aparecer quando um arquivo .xlsx foi renomeado
como .xls, ou quando um arquivo .xlsx foi renomeado como .xlsm

Tente renomear o arquivo para .xlsx e depois para .xlsm
e veja o que acontece

abraço