Bom Dia Edson,
Muito Obrigado pela ajuda, é isso que preciso, esta abrindo a instancia nova no excel porém quando tento abir o .txt ele abre na instancia do código, será que o método que estou abrindo esta incorreto?
segue o código que estou fazendo,
Dim xlApp As Excel.Application
Dim wb As Workbook
Set xlApp = New Excel.Application
Set wb = xlApp.Workbooks.Add
xlApp.Visible = True
Workbooks.OpenText Filename:=Diretorio_Arquivos_XML & Data_Str & "\" & Data_Arq & "_v_401\" & Nome_XML & ".txt", Origin:=xlMSDOS, StartRow:=1, _
DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, 1), TrailingMinusNumbers:=True
wb.Close SaveChanges:=False
xlApp.Quit
Set wb = Nothing: Set xlApp = Nothing