importar arquivo TXT de forma automática para Planilha
Enviado: 15 Dez 2017 às 19:12
Galera, recentemente surgiu uma ideia de importar um arquivo TXT de uma pasta qualquer do meu computador para a planilha do Excel, até ai tudo bem...
porém este arquivo TXT é um arquivo que fica atualizando constantemente, sendo assim gostaria que essas informações fossem transferidas para a planilha, mantendo as atualizações do arquivo. Sendo assim gostaria de saber como importar o arquivo TXT de forma automática, ficando na mesma tabela da planilha Excel os dados mais recentes do arquivo TXT? O Objetivo final é eu adicionar uma Macro para que me envia por e-mail as ultimas atualizações feita na planilha.
Ficaria bem agradecido se alguém conseguir me ajudar!



porém este arquivo TXT é um arquivo que fica atualizando constantemente, sendo assim gostaria que essas informações fossem transferidas para a planilha, mantendo as atualizações do arquivo. Sendo assim gostaria de saber como importar o arquivo TXT de forma automática, ficando na mesma tabela da planilha Excel os dados mais recentes do arquivo TXT? O Objetivo final é eu adicionar uma Macro para que me envia por e-mail as ultimas atualizações feita na planilha.
Ficaria bem agradecido se alguém conseguir me ajudar!



Código: Selecionar todos
Private Sub Worksheet_Change(ByVal Target As Range)
Select Case Target.Address
Case "$F$3"
Call AutoSend
End Select
End Sub
Sub AutoSend()
'
' AutoSend Macro
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(olMailItem)
With myItem
.To = Range("G5")
.CC = Range("G6")
.Subject = Range("G7")
.Body = Range("F3")
.send
End With
End Sub
Código: Selecionar todos
Sub ImportarFile()
'
' Macro2 Macro
'
'
With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;C:\Users\RPSZ\Desktop\elfscript.log", Destination:=Range("$B$2"))
.Name = "elfscript"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = 1252
.TextFileStartRow = 1
.TextFileParseType = xlFixedWidth
.TextFileTextQualifier = xlTextQualifierNone
.TextFileConsecutiveDelimiter = False
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = False
.TextFileColumnDataTypes = Array(3, 1, 9)
.TextFileFixedColumnWidths = Array(12, 66)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
ActiveWindow.SmallScroll Down:=-9
Range("B2").Select
End Sub