Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.62/13: Рейтинг темы: голосов - 13, средняя оценка - 4.62
0 / 0 / 0
Регистрация: 30.05.2018
Сообщений: 1
1

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

01.06.2018, 10:05. Просмотров 2565. Ответов 2
Метки vba (Все метки)

Доброго времени суток. Допустим есть файл info.txt ( состоит из множества строк, например gsd = 797 .... dig = 7666 и т.д.) в корне в с экселевким(готова таблица) нужно сделать так, чтобы через vba ексель находил в этом файле определенные строки и выставлял в конкретные ячейки ексель при этом, чтобы взятая строка вставлялась в эксель с данными после знака равенства. Пока сам только научился делать простейший импорт данных из открытого файла.
Вот код, но думаю вам он ничем не поможет, т.к. вставляет полностью весь файл.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
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
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
01.06.2018, 10:05
Ответы с готовыми решениями:

Вставка значения Value в ячейку Excel
Помогите пожалуйста вывести значение Value (SpinButon и ScrollBar) в ячейку листа Excel

Excel VBA: вставка символов в ячейку
Всем добрый день! Если кто может, помогите. Нужен макрос для Excel, который вставлял бы после...

Макрос, работающий при вводе определенного текста в ячейку
Помогите составить макрос: 1) Совершающий математические действия (Сложение, Вычитание,...

Пронумеровать (с интервалом 1000) куски определенного текста в файле txt
Здраствуйте, помогите решить: нужно пронумеровать (с интервалом 1000) куски определенного текста в...

2
90 / 87 / 15
Регистрация: 13.04.2015
Сообщений: 545
05.06.2018, 23:56 2
f1eshka,
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
0
6813 / 2756 / 519
Регистрация: 19.10.2012
Сообщений: 8,408
06.06.2018, 00:13 3
Обычно нужно вставлять не одно значение, а много, и разных. Поэтому есть смысл сперва прочитать весь файл в словарь (ну или в коллекцию), а затем циклом по листу всё собранное разложить по местам.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.06.2018, 00:13

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Поиск текста в .txt файле (C#)
Здравствуйте... У меня возникла небольшая проблемка :( Собственно,сама проблема: Пишу интересную...

Вставка данных из буфера в определенную ячейку по событию на кнопке
Всем добрый день! Подскажите пожалуйста, код VBA на элементе управления типа "Кнопка" размещенном...

Как реализовать поиск текста в .txt файле с выводом всех возможных результатов в ListBox?
Здравствуйте! Задачка вот какая. Если документ "1234.txt". В нём содержится примерно такой текст:...

Удалить определенную строку в txt файле
Здравствуйте, необходимо удалить строку в txt файле, во вложении пример, с файла удаляет все, а...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.