Interop Excel OpenText
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.
Discussão (0)
Carregando comentários...