Макрос для загрузки значений из текстового файла по строкам

@Mikky Mous · Регистрация: 01.12.2014

Студворк — интернет-сервис помощи студентам

Подскажите макрос для загрузки значений из текстового файла по строкам,

т.е. допустим есть текстовый файл, где находятся значения
123
213
321

как мне этими значениями заполнить заданные ячейки ????????

@Hugo121 · 04.06.2015, 12:19

Заданные где/кем?
А так то просто - запись макроса, импорт файла...

@Mikky Mous · 04.06.2015, 12:42 **[ТС]**

нужен макрос, который считывает значения в определенные ячейки

@Hugo121 · 04.06.2015, 12:59

Visual Basic
1
A = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath$).OpenasTextStream(1).ReadAll, vbNewLine)

и раскладывайте массив по этим определённым ячейкам.

@Mikky Mous · 05.06.2015, 09:41 **[ТС]**

а по-подробнее можно немного??

@Vlad999 · 05.06.2015, 09:55

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub vvv()
Dim iTempPath$, a, i%
iTempPath = "d:\123.txt" 'адрес где находится текстовый файл
a = Split(CreateObject("Scripting.FileSystemObject").Getfile(iTempPath).OpenasTextStream(1).ReadAll, vbNewLine)
' если заносить в определенные ячейки без некой закономерности.
Range("A1") = a(0)
Range("B3") = a(1)
Range("C7") = a(2)
'или так если в один столбец все по порядку
'For i = 1 To UBound(a) + 1
'Cells(i, 1) = a(i - 1)
'Next
End Sub

@otakuneka · 05.06.2015, 10:16

Я всё делаю более прозаично, как для чайников, но зато понятно тем, кто в VBA не очень

Никого не обижаю, просто не очень люблю массивы :3

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub text_str()
    Dim j As Integer
    j = 1
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set file1 = FSO.opentextfile("D:\a.txt")
    Do Until file1.AtEndOfStream
        read_line = file1.readline
        If read_line <> "" Then
            For i = 1 To Len(read_line)
                Cells(j, i) = Mid(read_line, i, 1)
            Next i
        End If
        j = j + 1
    Loop
End Sub

@Hugo121 · 05.06.2015, 10:20

Так будет побыстрее:

Visual Basic
1
2
'или так если в один столбец все по порядку
Cells(1, 1).Resize(UBound(a) + 1) = Application.Transpose(a)

главное чтоб Application.Transpose() справилось.

Добавлено через 4 минуты
.readline тоже вполне применимо, особенно если текст огроменный, и в массив не лезет или лезет со скрипом... (т.е. работает долго, памяти может не хватить...)
А так то массив приятнее перебирать

@Mikky Mous · 05.06.2015, 14:23 **[ТС]**

спасибо всем!

@Hugo121 · 05.06.2015, 15:12

Да, иногда бывают файлы, которые по vbNewLine не бьются

Тогда пробуйте chr(10)/vbcr/vblf, в общем по ситуации нужно смотреть.

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Mikky Mous 0 / 0 / 1 Регистрация: 01.12.2014 Сообщений: 133

	Макрос для загрузки значений из текстового файла по строкам 04.06.2015, 09:58. Показов 4049. Ответов 9 Метки нет (Все метки) Подскажите макрос для загрузки значений из текстового файла по строкам, т.е. допустим есть текстовый файл, где находятся значения 123 213 321 как мне этими значениями заполнить заданные ячейки ???????? 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	04.06.2015, 12:19
	Заданные где/кем? А так то просто - запись макроса, импорт файла... 0

@Mikky Mous 0 / 0 / 1 Регистрация: 01.12.2014 Сообщений: 133
	04.06.2015, 12:42 [ТС]
	нужен макрос, который считывает значения в определенные ячейки 0

@Mikky Mous 0 / 0 / 1 Регистрация: 01.12.2014 Сообщений: 133
	05.06.2015, 09:41 [ТС]
	а по-подробнее можно немного?? 0

@Mikky Mous 0 / 0 / 1 Регистрация: 01.12.2014 Сообщений: 133
	05.06.2015, 14:23 [ТС]
	спасибо всем! 0

@Hugo121 6998 / 2896 / 555 Регистрация: 19.10.2012 Сообщений: 8,804
	05.06.2015, 15:12
	Да, иногда бывают файлы, которые по vbNewLine не бьются Тогда пробуйте chr(10)/vbcr/vblf, в общем по ситуации нужно смотреть. 0