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êsdire = "K:\...\"sFile = Dir(dire & "arquivo1.xls")If sFile <> "" ThenSet wbTransf = Workbooks.OpenXML(dire & sFile)wbTransf.Close SaveChanges:=True, Filename:=dire & "arquivo2.xls"ElseMsgBox "GS Report não encontrado"End IfEnd 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.