Este fórum está sendo desativado

[daniexcel]

Boa tarde pessoal
Sei que já possuo um topico em aberto de outro assunto, mas gostaria de solicitar mais um auxilio
O Robson (Parkeless) já me ajudou em um tópico anterior.
Estou importando um arquivo txt para meu excel... inseri alguns campos, como nome de origem do arquivo txt e seu respectivo endereço.
Gostaria de uma ajuda que pra vocês, acredito que seja bem simples
Quando importar o arquivo txt, gostaria que aparecesse o número de linhas do txt original no meu excel .
Segue abaixo o codigo

Código: Selecionar todos

 Sheets("Import").Visible = True
 Sheets("Import").Select
  Range("A1").Select
 Cells.Select
 Selection.Delete Shift:=xlUp




 ' Apaga Dados.
 Application.ScreenUpdating = False

 ' Define variaveis.
 Set DestBook = ActiveWorkbook
 Set DestCell = ActiveCell


 ' abre caixa de dialogo.
 RetVal = Application.Dialogs(xlDialogOpen).Show("*.txt")



 ' Se Retval for falso, cancelar caixa de dialogo
 If RetVal = False Then Exit Sub
 
  ' variavel para texto
 Set SourceBook = ActiveWorkbook
 
 
 'Modificação Parkeless nº 1 - obter nome do arquivo e endereço
 Dim Endereço As String
 Dim Nome_Arquivo As String
 Nome_Arquivo = ActiveSheet.Name
 Endereço = SourceBook.FullName
 

 ' copia os dados da planilha
 Range(Range("A1"), Range("A1").SpecialCells(xlLastCell)).Copy

 ' Ativar workbook destino e colar valores do arquivo.
 ' DestBook.Activate
 ' DestCell.PasteSpecial Paste:=xlValues
  Range("A1").Select
DestBook.Activate
 DestCell.PasteSpecial Paste:=xlAll

 ' Fechar arquivo de conexao
 SourceBook.Close False

  Selection.End(xlUp).Select




 ' RETORNAR PARA MAIN
  Sheets("Main").Select
 'Modificação Parkeless nº 2 - incluir nome e endereço na célula A1 e B1
 Range("A1") = Nome_Arquivo
 Range("B1") = Endereço
  
  Range("A1").Select

 'Mensagem de Texto para próxima ETAPA
 MsgBox "Dados importados com sucesso", 64


End Sub

mais uma vez, agradeço pela ajuda

[daniexcel]

Desculpem ressuscitar este tópico, mas gostaria de saber se alguem poderia me auxiliar
Super obrigado

[alexandrevba]

Boa tarde!!

Use essa rotina como apoio, eu não sei se é isso que deseja.

Tente adaptar caso necessário.

Código: Selecionar todos

Sub AleVBA_1136()

Dim fso As Object, txtData, lCount As Long
Set fso = CreateObject("Scripting.FileSystemObject")
    txtData = fso.OpenTextFile("C:\Users\alexandreVBA\Downloads\dd.txt", 1).ReadAll  'Escola o diretório corretamente
    With CreateObject("vbscript.regexp")
        .Global = True
        .Pattern = "\r\n"
        lngCount = .Execute(txtData).Count + 1
    End With
    MsgBox lngCount & " linha[s]."
    Set fso = Nothing

End Sub

Att

[daniexcel]

Super obrigado. Consegui adequar a minha necessidade.
Fiz algumas alterações, mas deu tudo certo.