ZWWW - ФМ для выгрузки данных в WORD, EXCEL

Azik

Parazit написал:

Упс, про макросы то я и забыл, можно ведь ими копировать листы. Главное сделать это до заполнения данных, а значит имя переменной, через который будем его вызывать, должно быть выше других по алфавиту, например начинаться с подчеркивания '_Макрос'.

Ну допустим... потом после твоей сортировки в Open_form макрос испонится первым, допустим мы знаем что будет еще 2 листа дополнительных, макрос исполним 2 раза, и в новых листах не понятно как забивать данные.... ну или мне не понятно....
даже если в одном макросе мы и сделаем закладку для таблицы, то при втором выполнении эта закладка повторится и программа не сможет определить в какую данные вставлять...

Parazit

Azik написал:

Ну допустим... потом после твоей сортировки в Open_form макрос испонится первым, допустим мы знаем что будет еще 2 листа дополнительных, макрос исполним 2 раза, и в новых листах не понятно как забивать данные.... ну или мне не понятно....
даже если в одном макросе мы и сделаем закладку для таблицы, то при втором выполнении эта закладка повторится и программа не сможет определить в какую данные вставлять...

Все работает, выбирается и заполняется. Написал такой макрос:

Code:

Sub CopySheets(R As Range)
  Dim N
  
  N = R.Value
  R.Value = ""
  
  For I = 2 To N
    Worksheets("Лист1").Copy after:=ActiveSheet
    ActiveSheet.Name = "Лист" & I
  Next I
End Sub

Для выбора переменной листа лепим ее имя:

Code:

    
Data: NumSheet(3).

    NumSheet = NumSheet + 1.
    Condense NumSheet.
    Concatenate 'Лист' NumSheet '!Строка' into Var_Name.

Присвоил ячейке на листе имя "_Макрос". Вызов макроса:

Code:

Define SetLine.
  it_Val-Var_Name = &1.
  it_Val-Var_Num = &2.
  it_Val-Find_Text = &3.
  it_Val-Val_Type  = &4.
  it_Val-Value = &5.
  Append it_Val.
End-of-Definition.

SetLine '_Макрос' '' '' ''  NumSheet. "помещаем в ячейку количество листов
SetLine '_Макрос' '' '' 'M' 'CopySheets'. "вызываем макрос

В общем все работает, кроме одного - создаются лишние незаполненные строки на каждом листе при параметре Optimize = 99999, и наоборот, не хватает строк при Optimize = 0. Но это из-за особенностей моего алгортима копирования строк, это поправимо. Займусь этим.

Azik

Ну щас посмотрим :wink:

Azik

Parazit написал:

Code:

    
Data: NumSheet(3).

    NumSheet = NumSheet + 1.
    Condense NumSheet.
    Concatenate 'Лист' NumSheet '!Строка' into Var_Name.

В общем все работает, кроме одного - создаются лишние незаполненные строки на каждом листе при параметре Optimize = 99999, и наоборот, не хватает строк при Optimize = 0. Но это из-за особенностей моего алгортима копирования строк, это поправимо. Займусь этим.

Вот этот код не понятно как работает, зачем в наименование листа вставлять строку? В итоге получается копирование листа а строка остается той же... и вообще Var_Name не декларирована...

Ich Will

Интересно а можно оценить сколько времени ваша программа будет выгружать 1000 ячеек ?

Parazit

Ich Will написал:

Интересно а можно оценить сколько времени ваша программа будет выгружать 1000 ячеек ?

Это зависит от метода, которым вы будете выводить. У меня вывод таблицы методом VAL_TYPE='T' объемом ~2000 строк и 30 полей занимал ~8-10 сек.

Parazit

Обновился ФМ и шаблоны. Скачивать все там же (см. первый пост в теме). Добавился шаблон ZWWW_MACROS_WORD.doc для ускорения вывода данных в WORD. Появился пример вывода в Excel с размножением листов ZWWW_MANY_SHEETS. Соответственно изменился и ФМ.

Azik написал:

Вот этот код не понятно как работает, зачем в наименование листа вставлять строку? В итоге получается копирование листа а строка остается той же... и вообще Var_Name не декларирована...

Это не наименование листа, а полное наименование переменной. В общем скачивай и смотри пример ZWWW_MANY_SHEETS.

Skif

Parazit написал:

.

всё кайф. вот тока в 40в зад...ся портировать ((( может кто перенёс?

Parazit

Skif написал:

Parazit написал:

.

всё кайф. вот тока в 40в зад...ся портировать ((( может кто перенёс?

А какие проблемы в 4.0?

Azik

Что-то всё равно косячно работает

Code:

  Perform DownloadMacros
           using it_Bookmarks 'ZWWW_MACROS'
           changing File_Macros MacrosName File_Data.

вот это что такое в "FORM RunExcelMacros"?

А вообще это будет работать если мне надо вывести на 1 лист 15 записей с итогами, а потом на другой лист оставшиеся 5. тоже с итогами, а то может я зря :roll:

P.S. вообще-то эту подпрограмму можно не запускать если параметр optimize не выставлять, тогда вроде работает, и листы множатся, вот еще надо <я не знать русский языка> с итоговыми данными, буду дальше тестировать

Parazit

Azik написал:

Что-то всё равно косячно работает

Что именно? Мой пример вроде нормально работает.

Azik написал:

Code:

  Perform DownloadMacros
           using it_Bookmarks 'ZWWW_MACROS'
           changing File_Macros MacrosName File_Data.

вот это что такое в "FORM RunExcelMacros"?

Обычный вызов обычной подпрограммы... А в чем проблема? Или у вас операнд changing не поддерживается? Ну тогда перенести параметры в using.

Azik написал:

А вообще это будет работать если мне надо вывести на 1 лист 15 записей с итогами, а потом на другой лист оставшиеся 5. тоже с итогами, а то может я зря :roll:

Да хоть сколько и хоть куда. Модуль сам не занимается переносами на листы, он только выводит данные в указанные переменные шаблона. Все остальное уже задача АБАП-ера, как разделит, так и будет.

Azik

Parazit написал:

Обычный вызов обычной подпрограммы... А в чем проблема? Или у вас операнд changing не поддерживается? Ну тогда перенести параметры в using.

Дело в том что дальше программа пытается найти этот объект (ZWWW_MACROS), а зачем? Мы же загрузили объект ZWWW_MANY_SHEETS.... а так ДАМП получается

Parazit

Azik написал:

Дело в том что дальше программа пытается найти этот объект (ZWWW_MACROS), а зачем? Мы же загрузили объект ZWWW_MANY_SHEETS.... а так ДАМП получается

Вообще то ZWWW_MACROS обязательно должен быть загружен в smw0, он используется для оптимизации вывода.

Azik

Ну что сказать....
Всё круто работает :lol:

Респект....
Все разбивает и выводит по разным страницам....
Очень помогла мне учитывая что я вообще никогда не далал выгрузку в Excel

Parazit

Azik написал:

Ну что сказать....
Всё круто работает :lol:

Респект....
Все разбивает и выводит по разным страницам....

Ну, слава богу!

Azik написал:

Очень помогла мне учитывая что я вообще никогда не далал выгрузку в Excel

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

Правила форума

ZWWW - ФМ для выгрузки данных в WORD, EXCEL

Кто сейчас на конференции