Interop Excel OpenText

[ZecaLoteiro 0]

Bom dia,

Estou tentando importar um TXT para um novo arquivo Excel mas não estou tendo sucesso. Poderiam me ajudar?

 

Estou utilizando o seguinte código:

 Private Sub importaDados()
    Dim xL As New Application
    xL.Application.Workbooks.OpenText(
      Filename:=caminhoDados.FullName,
      Origin:=XlPlatform.xlWindows,
      StartRow:=1,
      DataType:=XlTextParsingType.xlDelimited,
      TextQualifier:=XlTextQualifier.xlTextQualifierNone,
      ConsecutiveDelimiter:=False,
      Tab:=False,
      Semicolon:=False,
      Comma:=False,
      Space:=False,
      Other:=True,
      OtherChar:="#",
      Local:=True
    )
    Dim arquivo As Workbook = xL.Workbooks(1)
    Dim planilha As Worksheet = arquivo.Worksheets(1)
    MsgBox(planilha.Range("A1").Value)
    arquivo.SaveAs(caminhoDestino)
    arquivo.Close()
    Process.Start("Excel", caminhoDestino)
  End Sub

O programa executa corretamente, porém o excel não consegue abrir o arquivo gerado.

Recebo a seguinte mensagem de erro:

O Excel não pode abrir o arquivo 'Texte1.xlsx' porque o formato ou a extensão de arquivo não é válida. Verifique se o arquivo não está corrompido e se a extensão corresponde ao formato do arquivo.

Estou anexando o projeto para ajudar na identificação do problema.

https://drive.google.com/file/d/0B5Ky7jhytNroTzBfdVN2TDV4WjA/view?usp=sharing

 

Desde já obrigado.