макрос по составлению отчета - Microsoft Office Excel

Volodymyr · 20.01.2009, 12:55

добрый день!
прошу помощь решить следующую задачу:
есть таблица, в каждой строчке которой находятся данные.
пример: book1.xls

на основании этой таблицы необходимо создать отчеты (файл report.xls), в который вставляются данные из файла book1.xls.
Действие выполняется до первой пустой строчки.

Заранее благодарю,
с уважением, Владимир.

SAS888 · 20.01.2009, 13:08

Цитата:

на основании этой таблицы необходимо создать отчеты (файл report.xls), в который вставляются данные из файла book1.xls.
Действие выполняется до первой пустой строчки.

Как формировать? Друг под другом? (через сколько строк?)? На отдельных листах? Или еще как?

Volodymyr · 20.01.2009, 14:05

необходимо, чтобы для каждой строки формировался отдельный файл

SAS888 · 20.01.2009, 14:34

Посмотрите вложение. Запустите макрос "Main".
Сформированные файлы будут сохранены в той же папке. Какое имя присваивать файлам Вы не указали (придумал сам).
Если нужно, перед сохранением можно вставить проверку, есть ли уже файл с таким именем. Что в этом случае делать Вы так же не оговорили. Поэтому такая проверка вообще отсутствует.

Volodymyr · 20.01.2009, 15:28

спасибо, это то, что я хотел получить.
но у меня есть еще вопрос, я сейчас пытаюсь соединить в несколько ячеек. но у меня появляется сообщение об ошибке.
вот как я написал:
.[c12] = (Cells(i, "m") + ", " + Cells(i, "n") + " " + Cells(i, "o"))
еще я пытался записать подобное так:
.[b10] = CONCATENATE(Cells(i, "j"), """", Cells(i, "i"))
прошу подсказать мне мою ошибку.

с уважением, Владимир.

Юнлинг · 20.01.2009, 15:51

Цитата:

Сообщение от Volodymyr

спасибо, это то, что я хотел получить.
но у меня есть еще вопрос, я сейчас пытаюсь соединить в несколько ячеек. но у меня появляется сообщение об ошибке.
вот как я написал:
.[c12] = (Cells(i, "m") + ", " + Cells(i, "n") + " " + Cells(i, "o"))
еще я пытался записать подобное так:
.[b10] = CONCATENATE(Cells(i, "j"), """", Cells(i, "i"))
прошу подсказать мне мою ошибку.

с уважением, Владимир.

Если я не ошибаюсь в функция Cells(row, column) значения row и column задают в виде цифр.
В вашем выражении Cells(i, "m") значение column - символьное. Замените на цифру должно работать

EducatedFool · 20.01.2009, 16:00

Попробуйте так:

.[c12] = Cells(i, "m") & ", " & Cells(i, "n") & " " & Cells(i, "o")

Для конкатенации строк лучше использовать оператор &

Volodymyr · 20.01.2009, 16:07

всем - спасибо.
все сделал, все работает.

kzld · 24.01.2009, 16:28

что хочу - в приложенном файле

20.01.2009, 16:00	#7
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Попробуйте так: .[c12] = Cells(i, "m") & ", " & Cells(i, "n") & " " & Cells(i, "o") Для конкатенации строк лучше использовать оператор & __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
создание отчета в delphi	Pang	БД в Delphi	7	10.01.2012 16:35
Создание отчета!!!	Viento	Microsoft Office Excel	12	26.01.2009 09:26
Печать отчета	Nikolaeva	Общие вопросы Delphi	0	17.11.2008 13:53
Сохранение отчета	Nikolaeva	Общие вопросы Delphi	0	22.09.2008 11:24
Дипломная работа: Программа по составлению расписания...	bizkit-leech	Общие вопросы Delphi	3	21.04.2007 04:31

20.01.2009, 14:05	#3
Volodymyr Пользователь Регистрация: 28.02.2008 Сообщений: 70	необходимо, чтобы для каждой строки формировался отдельный файл

20.01.2009, 15:28	#5
Volodymyr Пользователь Регистрация: 28.02.2008 Сообщений: 70	спасибо, это то, что я хотел получить. но у меня есть еще вопрос, я сейчас пытаюсь соединить в несколько ячеек. но у меня появляется сообщение об ошибке. вот как я написал: .[c12] = (Cells(i, "m") + ", " + Cells(i, "n") + " " + Cells(i, "o")) еще я пытался записать подобное так: .[b10] = CONCATENATE(Cells(i, "j"), """", Cells(i, "i")) прошу подсказать мне мою ошибку. с уважением, Владимир.

20.01.2009, 16:07	#8
Volodymyr Пользователь Регистрация: 28.02.2008 Сообщений: 70	всем - спасибо. все сделал, все работает.