![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Пользователь
Регистрация: 28.02.2008
Сообщений: 70
|
![]()
добрый день!
прошу помощь решить следующую задачу: есть таблица, в каждой строчке которой находятся данные. пример: book1.xls на основании этой таблицы необходимо создать отчеты (файл report.xls), в который вставляются данные из файла book1.xls. Действие выполняется до первой пустой строчки. Заранее благодарю, с уважением, Владимир. |
![]() |
![]() |
#2 | |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]() Цитата:
Чем шире угол зрения, тем он тупее.
|
|
![]() |
![]() |
#3 |
Пользователь
Регистрация: 28.02.2008
Сообщений: 70
|
![]()
необходимо, чтобы для каждой строки формировался отдельный файл
|
![]() |
![]() |
#4 |
Старожил
Регистрация: 05.12.2007
Сообщений: 4,180
|
![]()
Посмотрите вложение. Запустите макрос "Main".
Сформированные файлы будут сохранены в той же папке. Какое имя присваивать файлам Вы не указали (придумал сам). Если нужно, перед сохранением можно вставить проверку, есть ли уже файл с таким именем. Что в этом случае делать Вы так же не оговорили. Поэтому такая проверка вообще отсутствует.
Чем шире угол зрения, тем он тупее.
|
![]() |
![]() |
#5 |
Пользователь
Регистрация: 28.02.2008
Сообщений: 70
|
![]()
спасибо, это то, что я хотел получить.
но у меня есть еще вопрос, я сейчас пытаюсь соединить в несколько ячеек. но у меня появляется сообщение об ошибке. вот как я написал: .[c12] = (Cells(i, "m") + ", " + Cells(i, "n") + " " + Cells(i, "o")) еще я пытался записать подобное так: .[b10] = CONCATENATE(Cells(i, "j"), """", Cells(i, "i")) прошу подсказать мне мою ошибку. с уважением, Владимир. |
![]() |
![]() |
#6 | |
Форумчанин
Регистрация: 17.10.2008
Сообщений: 239
|
![]() Цитата:
В вашем выражении Cells(i, "m") значение column - символьное. Замените на цифру должно работать |
|
![]() |
![]() |
#7 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,858
|
![]()
Попробуйте так:
.[c12] = Cells(i, "m") & ", " & Cells(i, "n") & " " & Cells(i, "o") Для конкатенации строк лучше использовать оператор & |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 28.02.2008
Сообщений: 70
|
![]()
всем - спасибо.
все сделал, все работает. |
![]() |
![]() |
#9 |
Форумчанин
Регистрация: 24.01.2009
Сообщений: 625
|
![]()
что хочу - в приложенном файле
|
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание отчета в 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 |