Поиск определенного текста в файле .txt и вставка в определенную ячейку в Excel

@f1eshka · Регистрация: 30.05.2018

Доброго времени суток. Допустим есть файл info.txt ( состоит из множества строк, например gsd = 797 .... dig = 7666 и т.д.) в корне в с экселевким(готова таблица) нужно сделать так, чтобы через vba ексель находил в этом файле определенные строки и выставлял в конкретные ячейки ексель при этом, чтобы взятая строка вставлялась в эксель с данными после знака равенства. Пока сам только научился делать простейший импорт данных из открытого файла.
Вот код, но думаю вам он ничем не поможет, т.к. вставляет полностью весь файл.

Visual Basic

Sub find
Set imprng =activecell
Open "файл" for input as #1
Do until eof(1)
Line input #1, text
Sheets("Лист1").Select
Range("A5").Select 
activeCell = text
Loop
Close #1
End sub

@Aleks777 · 05.06.2018, 23:56

f1eshka,

Visual Basic

Sub test()     '
    strFilePath = "MyTestFile.txt"
    Call ImportFromTxt("D:\1.txt", "*строка*")
End Sub
 
Sub ImportFromTxt(ByVal strFilePath As String, ByVal strLike As String)
  Const ForReading As Byte = 1
  
  Dim i As Long
  Dim fso As Object, tso As Object
  Dim strLine As String
  Dim x As Long: x = 1
 
  Set fso = CreateObject("Scripting.FileSystemObject")      '
  Set tso = fso.OpenTextFile(strFilePath, ForReading)
 
  i = 1
  Do While Not tso.AtEndOfStream        '
        strLine = tso.ReadLine
    If strLine Like strLike Then
        Cells(x, 1).Value = strLine
        x = x + 1
    End If
    i = i + 1
  Loop
 
  tso.Close
  Set tso = Nothing
 
  Set fso = Nothing
End Sub

@Hugo121 · 06.06.2018, 00:13

Обычно нужно вставлять не одно значение, а много, и разных. Поэтому есть смысл сперва прочитать весь файл в словарь (ну или в коллекцию), а затем циклом по листу всё собранное разложить по местам.

@Hugo121 6813 / 2756 / 519 Регистрация: 19.10.2012 Сообщений: 8,408
	06.06.2018, 00:13	3
	Обычно нужно вставлять не одно значение, а много, и разных. Поэтому есть смысл сперва прочитать весь файл в словарь (ну или в коллекцию), а затем циклом по листу всё собранное разложить по местам. 0

Опции темы