Importação de Texto - Retrocompativel

Visual Basic for Aplication e macros no Excel.
Regras do fórum
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde. Imagem

Importação de Texto - Retrocompativel

Mensagempor kasumo » Qua Fev 13, 2019 7:49 pm

Boa noite,

Tenho o código abaixo, porém o mesmo só funciona no Microsoft Office 16.0 Object Library
Queria saber se tenho como mudar ela pra funcionar na 15.0, pois não tenho como atualizar o computador que a usa, pois é um Thin Client com uma versão 2013 do Excel.
Ele é usado para importar para a planilha o txt anexo.

Código: Selecionar todos
Public Sub ImportarTexto()
    Dim Ficheiro As String
    Dim Resposta As String
    Dim rg As Range
    Dim S As String
       
       
    Ficheiro = "Q:\CPD\FECHAMENTO.TXT"

    Set rg = Range("A1")

    Close #1

    Open Ficheiro For Input As #1


   
    Do Until EOF(1)
        Line Input #1, S
       
       
        rg = Val(Left(S, 10))
        rg.Offset(0, 1) = Mid(S, 25, 6)
        rg.Offset(0, 2) = Mid(S, 31, 40)
        rg.Offset(0, 3) = Mid(S, 71, 14)
        rg.Offset(0, 4) = Mid(S, 85, 17)
        rg.Offset(0, 5) = Mid(S, 101, 8)
        rg.Offset(0, 6) = Mid(S, 109)

        Set rg = rg.Offset(1, 0)
    Loop

    Close #1


End Sub
kasumo
Membro
Membro
 
Mensagens: 15
Registrado em: Qua Nov 28, 2018 7:42 pm
Has thanked: 5 times
Have thanks: 0 time

{ SO_SELECT }

Re: Importação de Texto - Retrocompativel

Mensagempor Mauro Coutinho » Qui Fev 14, 2019 10:23 am

Kasumo, não tenho o excel 2013, mas no 2007 onde a Bibliotece é a 12 funciona corretamente.

Excel 2007
biblioteca12.JPG

Mauro Coutinho
 

Re: Importação de Texto - Retrocompativel

Mensagempor kasumo » Sex Fev 15, 2019 6:32 pm

Conseguir resolver na gambiarra, desmarquei a biblioteca, e compilei. E voilà ... funcionou.
kasumo
Membro
Membro
 
Mensagens: 15
Registrado em: Qua Nov 28, 2018 7:42 pm
Has thanked: 5 times
Have thanks: 0 time


Voltar para VBA & Macros

Quem está online

Usuários navegando neste fórum: Nenhum usuário registrado e 8 visitantes

cron