Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Rodrigo Masson

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

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

@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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×