Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
1

Перенос данных из excel в excel по запросу

08.10.2016, 00:13. Просмотров 1096. Ответов 19
Метки нет (Все метки)

Привет! Нужна помощь, сто лет не программировала..Надо перенести данные из одного файла в другой. Выгрузка идет из файла 1 в файл 3, причем идет выборка по столбцу VID. В зависимости от цифры в столбце VID данные из столбцов K и R распределяются по столбцам от k1 до k99 и от r1 до r99, со следующим условием: если число в ячейке столбца VID =1, то данные этой строки распределяются в столбцы k1 и r1, и так с каждой цифрой от 1 до 9 и 99. В папке файл 1 откуда брать, файл 3 куда переносить данные, и файл итог, как это должно быть. Буду признательна за помощь.
0
Вложения
Тип файла: rar 1.rar (142.4 Кб, 5 просмотров)
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
08.10.2016, 00:13
Ответы с готовыми решениями:

Перенос данных excel -excel на разные листы
Доброго времени суток. Возникла небольшая проблема: Переношу данные из книги в книгу, но в каждой...

Введение данных по запросу Excel Макрос
Доброго времени суток! Я не очень знаком с макросами Экселя, и хотел бы попросить у вас помощи. Мне...

Перенос данных из Excel в Word
Здравствуйте, Уважаемые! Есть макрос который переносит таблицы и значение ячеек в текст...

Перенос данных из excel в access
Всем добрый день! У меня простой код Sub Inter() DoCmd.TransferSpreadsheet acImport,...

Перенос данных из Access в Excel
Добрый вечер. столкнулся с проблемой, нужно перенести данные из accsse в excel. Option Compare...

19
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 11:56  [ТС] 2
неужели никто не делал((
0
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
09.10.2016, 15:33 3
Лучший ответ Сообщение было отмечено yulianna2501 как решение

Решение

В соответствии с расположением данных в прикрепленных файлах
1
Вложения
Тип файла: rar 1.rar (20.5 Кб, 6 просмотров)
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 15:41  [ТС] 4
Цитата Сообщение от Step_UA Посмотреть сообщение
В соответствии с расположением данных в прикрепленных файлах
да именно это расположение и нужно. спасибо, но что-то не получилось запустить
0
09.10.2016, 15:41
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
09.10.2016, 15:49 5
Цитата Сообщение от yulianna2501 Посмотреть сообщение
но что-то не получилось запустить
Для локализации проблемы используйте в отладчике пошаговый режим F8 - на какой строке и какая ошибка?
0
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 15:53  [ТС] 6
Rez(i, Dic("k" & Mas(i, 3))) = Mas(i, 1)

Добавлено через 2 минуты
а все, названия ячеек другие, сейчас попробую исправить
0
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
09.10.2016, 16:06 7
Если наименования могут быть как в верхнем, так и в нижнем регистре, то добавьте строку
Visual Basic
1
Dic.CompareMode = 1 ' сравнение как текст - добавить после: Set Dic = CreateObject("scripting.dictionary")
0
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 16:08  [ТС] 8
не получилось, переименовала но ошибка возникает, посмотрите пожалуйста
0
Вложения
Тип файла: rar последнее.rar (153.6 Кб, 3 просмотров)
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 16:53  [ТС] 9
Цитата Сообщение от Step_UA Посмотреть сообщение
на какой строке и какая ошибка?
у меня в столбце r в файле 1 есть отрицательные числа. На это ругается
0
Вложения
Тип файла: rar 1.rar (147.4 Кб, 3 просмотров)
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
09.10.2016, 17:10 10
Для определения столбца, в который размещается значение используются подписи из заголовка файла 3: k1, k2 ... - у вас они уже подписаны по другому.
у меня в столбце r в файле 1 есть отрицательные числа. На это ругается
Числа не причем, причина таже
1
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 17:23  [ТС] 11
Цитата Сообщение от Step_UA Посмотреть сообщение
у вас они уже подписаны по другому.
да подписаны по другому, но на старом варианте попробовала, с положительными числами все нормально, а с отрицательными нет. проверьте.

Добавлено через 4 минуты
а все получилось. спасибо! а если я хочу изменить заголовки столбцов, мне где их нужно заменить?

Добавлено через 3 минуты
в полном файле все равно ошибка вылазиет( на эту срочку ссылается Rez(i, Dic("k" & Mas(i, 3))) = Mas(i, 1)
0
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 17:28  [ТС] 12
Проверь пожалуйста с этими данными. Не пойму в чем проблема
0
Вложения
Тип файла: rar 1.rar (1.11 Мб, 3 просмотров)
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
09.10.2016, 17:29 13
Берем архив из 3 поста, заменяем имеющийся файл 3, запускаем файл 1: добавляем/изменяем данные (в том числе и отрицательные числа) - запускаем макрос.
в полном файле все равно ошибка вылазиет( на эту срочку ссылается Rez(i, Dic("k" & Mas(i, 3))) = Mas(i, 1)
полный файл у Вас, дебагер тоже ... смотрите значение Mas(i, 3) и есть ли такой заголовок с префиксом K
0
Вложения
Тип файла: rar 3.rar (20.6 Кб, 3 просмотров)
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 17:54  [ТС] 14
Цитата Сообщение от Step_UA Посмотреть сообщение
смотрите значение Mas(i, 3) и есть ли такой заголовок с префиксом K
не поняла что и где мне нужно найти, извините за глупость, давно в VBA не работала =(

Добавлено через 10 минут
удалила лишние столбцы, ошибка осталась та же, видимо проблема в значениях..
0
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
09.10.2016, 17:57 15
Цитата Сообщение от yulianna2501 Посмотреть сообщение
Не пойму в чем проблема
строка 2286: VID (столбец J) = 0 - заголовок k0 в файле 3 отсутствует
1
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 18:15  [ТС] 16
out of range пишет, что может быть не так?вроде как там только числа

Добавлено через 9 минут
все, нашла, спасибо! нет столбцов для нулевых значений, добавила столбцы k0 и r0 но ничего не вшло, снова ошибка. а заменив значения 0 на 1 все прошло успешно. есть идеи?
0
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
09.10.2016, 18:26 17
Есть предположение, что как минимум один из добавленых столбцов находится до столбца BS - используйте прикрепленный файл
0
Вложения
Тип файла: xlsx 3.xlsx (8.8 Кб, 3 просмотров)
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 18:42  [ТС] 18
Step_UA СПАСИБО ОГРОМНОЕ!ДОБАВИЛА ВСЕ С НУЖНОГО СТОЛБЦА И ЗАРАБОТАЛО!ОЧЕНЬ ВЫРУЧИЛИ!!

Добавлено через 11 минут
блин, еще не все. ошибок теперь не выдает но нулевые значения в k0 и r0 не заносит..в чем проблема?
0
Вложения
Тип файла: rar Новая папка.rar (3.94 Мб, 4 просмотров)
yulianna2501
25 / 27 / 0
Регистрация: 28.01.2011
Сообщений: 530
09.10.2016, 19:39  [ТС] 19
не получается
0
Step_UA
1527 / 613 / 212
Регистрация: 09.06.2011
Сообщений: 1,264
10.10.2016, 00:44 20
Цитата Сообщение от yulianna2501 Посмотреть сообщение
ошибок теперь не выдает но нулевые значения в k0 и r0 не заносит..в чем проблема?
А в этом файле нет нулевых значений, поэтому в k0 и r0 ничего и не заносится
1
10.10.2016, 00:44
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.10.2016, 00:44

Перенос данных из Excel в Word ?
Уважаемые форумчане, помогите решить загадку. Имеется, например 6 документов в ворде, где одолжны...

Перенос данных из Excel в Access
Здравствуйте ! Очень прошу спуститься до нулевого уровня VBA и подсказать, как нажав на кнопку в...

Перенос данных из Excel в Access
День Добрый!Есть таблица Excel и база данных Access.Нужно написать код на кнопку,который бы...


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

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

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