Excel Abrir arquivo .txt em instâncias diferentes VBA 2016

[Rodrigo Masson]

Boa Tarde!

 

Venho tendo um grande problema com o Excel 2016 para abrir arquivos em instâncias diferentes,

Pelo comando Executar (WIn+r) -> Excel -x  consigo fazer ele abrir em instâncias diferentes, porém via vba não estou conseguindo achar uma possibilidade para abrir um arquivo .txt separado da instância do código.

 

Alguém teria alguma solução?  Dei uma olhada de modo geral no fórum e não consegui achar algo parecido.

Muito Obrigado.

[Edson Luiz Branco]

@Rodrigo Masson  bom dia

 

E se você abrisse não uma nova instância do txt, mas o mesmo txt em uma nova instância do Excel?

 

Sub NovaInstânciaExcel()
  Dim xlApp As Excel.Application
  Dim wb As Workbook
  Set xlApp = New Excel.Application
  Set wb = xlApp.Workbooks.Add
  xlApp.Visible = True
  'Comando para abrir o txt na instância recém criada
  '.....
  '.....
  '.....
  wb.Close SaveChanges:=False
  xlApp.Quit
  Set wb = Nothing: Set xlApp = Nothing
End Sub

 

[Rodrigo Masson]

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

[Edson Luiz Branco]

Tem que qualificar o objeto para abrir na nova instância:

 

     xlApp.Workbooks.OpenText Filename:= blá,blá,blá

[Rodrigo Masson]

Edson,

 

Muita Obrigado pela ajuda!!  Funcionou certinho!!!!

 

Agradeço muito!!!