Gostaria de saber se é possível importar uma coluna especifica de um arquivo txt pra minha planilha do excel? E como poderia ser feito
Tenho uma macro que importa o arquivo txt já pronto, porém preciso de um botão onde eu clico, seleciono meu arquivo e ele já importa os dados daquela coluna com os dados específicos que eu quero
OBS: Preciso que importe apenas a coluna de "Status"
Código feito para importação de txt:
Sub EncontrarTXT()
Dim arquivo As String
Dim sheet As Worksheet
Set Objeto = CreateObject("scripting.filesystemobject") 'Criando objeto
arquivo = Application.GetOpenFilename(Filefilter:="Texto, *.txt") 'Para abrir o documento, janelinha do explorer
If arquivo = "" Or arquivo = "Falso" Then 'Se arquivo for igual a vazio, ou se ele clicar em cancelar retornar "falso", usu�rio n�o selecionou nenhum documento
Exit Sub
End If
Open arquivo For Input As #1
Worksheets("Status").Activate 'Referencia o objeto para que seja ativada a opção de abrir uma nova planilha
lin = 1
Do Until EOF(1)
Line Input #1, valorLin
Cells(lin, 4).Value = valorLin
lin = lin + 1
Loop
Close #1
Range("D4:D" & lin - 1).TextToColumns Other:=True 'Intervalo em que é inserido os dados e separando por colunas para o tipo de dado escolhido
Columns().EntireColumn.AutoFit 'Faz o ajuste de colunas para obter a melhor largura
End Sub
Total:86
CCD (20)
ARE-SIS ID Status Resumo
999 - 10 CCD-XXXXXXXXXXX HOMOLOGADA Consulta saldo devedor no portal consignado
999 - 11 CCD-XXXXXXXXXXX SOLICITADA Compensação do IOF no redirecionamento
999 - 12 CCD-XXXXXXXXXXX EM EXECUÇÃO Consignação Siape - Alteração de Contratos
999 - 13 CCD-XXXXXXXXXXX EM HOMOLOGAÇÃO Alterar opção de baixa manual de parcelas para que sempre seja condicionada a saldo.
999 - 14 CCD-XXXXXXXXXXX SOLICITADA Transferência de conta corrente - CCD
999 - 15 CCD-XXXXXXXXXXX CANCELADA Contabilização Individualizada na conciliação BRBSERV
999 - 16 CCD-XXXXXXXXXXX SOLICITADA Cartão consignado
999 - 17 CCD-XXXXXXXXXXX CANCELADA Melhoria de performance CCDJM400 / CCDP62
999 - 18 CCD-XXXXXXXXXXX SOLICITADA Melhoria de Performance CCDJ1700 - CCDPZE - CCDPQR
999 - 19 CCD-XXXXXXXXXXX EM EXECUÇÃO Melhoria CCDJD300 / CCDP20
999 - 20 CCD-XXXXXXXXXXX SOLICITADA Melhoria de Performance CCDJM100 - CCDP40
999 - 09 CCD-XXXXXXXXXXX SOLICITADA Alteração do simulador de campanha
999 - 08 CCD-XXXXXXXXXXX SOLICITADA Consignado Privado
999 - 07 CCD-XXXXXXXXXXX SUSPENSA Liquidação e baixa de parcelas
999 - 06 CCD-XXXXXXXXXXX SUSPENSA Cobrança de IOF complementar das parcelas atrasadas do CCD
999 - 05 CCD-XXXXXXXXXXX EM TESTE Alterar o envio da informação da CONTA EXTERNA pelo CCD para os arquivos CTRAA2 e CTRAA5
999 - 04 CCD-XXXXXXXXXXX SUSPENSA 2ª fase do e-Consignado API: Averbação on-line
999 - 03 CCD-XXXXXXXXXXX SUSPENSA Criação de relatório e consignado
999 - 02 CCD-XXXXXXXXXXX SUSPENSA E-consignado 2a parte
999 - 01 CCD-XXXXXXXXXXX EM IMPLANTAÇÃO Ajuste CCD para 144 parcelas - Automação
CTC (8)
ARE-SIS ID Status Resumo
999 - 08 CTC-XXXXXXXXXXX EM TESTE Melhoria de Performance CTCP07
999 - 07 CTC-XXXXXXXXXXX HOMOLOGADA Melhoria Performance CTCN48
999 - 06 CTC-XXXXXXXXXXX SOLICITADA Envio da quantidade de parcelas em aberto CTC
999 - 05 CTC-XXXXXXXXXXX SOLICITADA Reter portabilidade pelo motivo mais adequado
999 - 03 CTC-XXXXXXXXXXX SOLICITADA Sistema CTC apresentar XML's recebidas
899 - 04 CTC-XXXXXXXXXXX EM EXECUÇÃO Preparar o sistema CTC para portar contratos do TSP
005 - 02 CTC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO Atualização arquivos CTC (Troca de modalidade e Cheque Especial)
005 - 01 CTC-XXXXXXXXXXX HOMOLOGADA Inclusão de novos arquivos (Troca de Modalidade e Cheque Especial)
DSC (3)
ARE-SIS ID Status Resumo
999 - 03 DSC-XXXXXXXXXXX EM EXECUÇÃO Atualizar Conta Externa COSIF enviada do DSC para o CTR
999 - 02 DSC-XXXXXXXXXXX REJEITADA Baixa com consulta saldo Sim
999 - 01 DSC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO Resolução 4.790 do Bacen-Autorização e cancelamento de autorização de débitos em conta
EAC (10)
ARE-SIS ID Status Resumo
999 - 10 EAC-XXXXXXXXXXX SOLICITADA Transferência de Conta Corrente - EAC
999 - 09 EAC-XXXXXXXXXXX SOLICITADA Criar opções de Estorno e de Cancelamento da Baixa e da Liberação
999 - 08 EAC-XXXXXXXXXXX EM CANCELAMENTO Projeto DT-e Criação de Antecipação EAC
999 - 07 EAC-XXXXXXXXXXX SOLICITADA Marcação dos Índices Flutuantes - Integração EAC-CTR
999 - 06 EAC-XXXXXXXXXXX EM EXECUÇÃO Baixa com consulta saldo Sim
999 - 05 EAC-XXXXXXXXXXX SUSPENSA Atualizar Conta Externa COSIF enviada do EAC para o CTR
999 - 04 EAC-XXXXXXXXXXX SUSPENSA ADEQUAR SISTEMA LEGADO A NOVA TABELA DE TAFIFAS.
999 - 03 EAC-XXXXXXXXXXX REJEITADA Baixa não integrada com o DCC
010 - 02 EAC-XXXXXXXXXXX HOMOLOGADA [Carta Circular 3.896] Carga inicial do enquadramento contábil
010 - 01 EAC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO [Carta Circular 3.896] Marcação no contrato de "possui garantia de imóvel do próprio devedor"
ECC (14)
ARE-SIS ID Status Resumo
999 - 10 ECC-XXXXXXXXXXX SOLICITADA Ajuste de operações encerradas no ECC
999 - 11 ECC-XXXXXXXXXXX SOLICITADA Gerar arquivos e relatórios - Normativo SARB 019/2018
999 - 12 ECC-XXXXXXXXXXX SOLICITADA Ajuste contabilidade PF e PJ - atividade
999 - 13 ECC-XXXXXXXXXXX SOLICITADA Correção de erros de integração com CTR (CTRRR8)
999 - 14 ECC-XXXXXXXXXXX HOMOLOGADA Melhoria de Performance ECCPZ8
999 - 15 ECC-XXXXXXXXXXX EM EXECUÇÃO Melhoria de Performance ECCJD300
999 - 16 ECC-XXXXXXXXXXX SOLICITADA Transferência de conta corrente - ECC
999 - 17 ECC-XXXXXXXXXXX SOLICITADA Melhoria de Performance ECCJS400/ECCPC7
999 - 09 ECC-XXXXXXXXXXX SOLICITADA Alteração das sub-rotinas ECC (pré-aprovado) para inclusão de indicador de Seguro SIM ou NÃO
999 - 08 ECC-XXXXXXXXXXX EM EXECUÇÃO Renovacao Automatica Produto CBE 030 ECC
999 - 07 ECC-XXXXXXXXXXX SUSPENSA Atualizar Conta Externa COSIF enviada do ECC para o CTR
999 - 06 ECC-XXXXXXXXXXX EM TESTE Alteração da Funcionalidade Vencimento Antecipado
999 - 05 ECC-XXXXXXXXXXX AGUARDANDO HOMOLOGAÇÃO Alteração na Forma de Contratação de Limites de Cheque Especial
005 - 04 ECC-XXXXXXXXXXX EM EXECUÇÃO [Res. 4.762] Portabilidade Crédito Rotativo
FCG (4)
ARE-SIS ID Status Resumo
999 - 07 FCG-XXXXXXXXXXX SOLICITADA Transferência de conta corrente - FCG
999 - 03 FCG-XXXXXXXXXXX REJEITADA Baixa com consulta saldo Sim
999 - 02 FCG-XXXXXXXXXXX SUSPENSA Atualizar Conta Externa COSIF enviada do FCG para o CTR
999 - 01 FCG-XXXXXXXXXXX EM EXECUÇÃO Manutenção da Antecipação de Recebíveis CIP
OCA (8)
ARE-SIS ID Status Resumo
999 - 08 OCA-XXXXXXXXXXX SOLICITADA Apropriação de rendas
999 - 07 OCA-XXXXXXXXXXX SOLICITADA Transferência de conta corrente - OCA
999 - 06 OCA-XXXXXXXXXXX SOLICITADA Ajuste Sub-rotina Simulador de Renegociação SBE
999 - 05 OCA-XXXXXXXXXXX SOLICITADA Alterações de acessos no OCA pelo perfl GECAT
999 - 04 OCA-XXXXXXXXXXX EM EXECUÇÃO Baixa por arquivo - VENDA DE CARTEIRA
999 - 03 OCA-XXXXXXXXXXX EM TESTE Integração OCA e MGF - prejuízo
999 - 02 OCA-XXXXXXXXXXX EM EXECUÇÃO Criar relatório de conciliação PCLD para o sistema OCA
999 - 01 OCA-XXXXXXXXXXX REJEITADA Evolução da renegociação OCA
OCG (19)
ARE-SIS ID Status Resumo
999 - 10 OCG-XXXXXXXXXXX SOLICITADA Correção de erros de integração com CTR (CTRRR8)
999 - 11 OCG-XXXXXXXXXXX SOLICITADA Compensação do IOF no redirecionamento
999 - 12 OCG-XXXXXXXXXXX SOLICITADA Reconhecimento da liquidação dos contratos com situação Portabilidade
999 - 13 OCG-XXXXXXXXXXX SOLICITADA Marcação de índices flutuantes - Integração OCG-CTR
999 - 14 OCG-XXXXXXXXXXX SOLICITADA Cartão Construção
999 - 15 OCG-XXXXXXXXXXX SOLICITADA Novo Simulador de Operações Parceladas
999 - 16 OCG-XXXXXXXXXXX SOLICITADA Repactuação OCG
999 - 17 OCG-XXXXXXXXXXX EM CANCELAMENTO Projeto DT-e Criação de Antecipação OCG
999 - 18 OCG-XXXXXXXXXXX SOLICITADA Parcelamento de fatura via canal
999 - 19 OCG-XXXXXXXXXXX SOLICITADA Transferência de conta corrente - OCG
999 - 09 OCG-XXXXXXXXXXX SOLICITADA Alteração de valor informado Portabilidade OCG
999 - 08 OCG-XXXXXXXXXXX SUSPENSA Liquidação e baixa de parcelas
999 - 07 OCG-XXXXXXXXXXX SOLICITADA Remodelar o produto 324 – BRB Credreforma, com alteração do nome para BRB Energia renovável
999 - 06 OCG-XXXXXXXXXXX EM EXECUÇÃO Compra Carteira FGTS Banco PAN - Etapa II
999 - 05 OCG-XXXXXXXXXXX EM EXECUÇÃO Criação de Limite de Pré-aprovado para liberação nos Canais
999 - 04 OCG-XXXXXXXXXXX EM EXECUÇÃO Consulta/Bloqueio do Saldo Saque Aniversário FGTS via API
999 - 03 OCG-XXXXXXXXXXX EM EXECUÇÃO API para comunicação entre o BRB e a Caixa Econômica Federal (FGTS)
999 - 02 OCG-XXXXXXXXXXX EM EXECUÇÃO Troca de arquivos para operacionalização do produto Antecipação FGTS
999 - 01 OCG-XXXXXXXXXXX EM EXECUÇÃO Automatização Carga Compra Carteira