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

Parazit

Opol4enec написал(а):

Задача: выгружать в ячейку одного из столбца нумерованный список т.е. строчки в ячейке должны разделяться знаком "перевода каретки" 000D-шестнадцатиричный-в уникоде (должен отображтся в WORDe знаком "пи"). Код 000D я в текст вставляю, в файле в двойчном виде просматриваю, а WORDе вижу как не отображаемый символ - квадрат вместо знака "пи". Как побороть MS WORD?

К сожалению символы перевода каретки 0A и 0D пока нельзя выгружать. Можно выводить поабзацно, прибавляя для каждого абзаца VAR_NUM.

Opol4enec

Для наглядности требуется заполнить таблицу (особенно ячейку) такого типа...

Code:

|---------------------------------------------------------|
|   Номер курса  |               Слушатель                |
|---------------------------------------------------------|     
|      BC400     | 1.  Пупкин Сигизмунд Албертович,       |
|                |     11.11.1989д.р., г.Таракань;        |
|                | 2.  Выпендрежник Буян Лыков,           |
|                |     22.10.1985д.р., г.Чугунок          |
|                | 3.  .                                  |
|                |     .                                  | 
|                |     .                                  |
|                | n    XXXXXX                            |
|---------------------------------------------------------|
|                |      .                                 |
|                |      .                                 |
.
.
.

Поэтому использования VAR_NUM здесь не поможет. Как вы понимаете это не мои хотелки, а заказчика. Кстати, если текст короткий меньше чем помещается в ячейке, то текст переносится в следущую строку ячейки (правда использовал разделитель 0007 шеснадцат. юникод - подсмотрел в doc-файле)

Opol4enec

Свою проблему решил через макрос DOC.

Code:

Sub Maсrщ01()

    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "&&&&"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.TypeParagraph
End Sub

В текст выгружаю цепочку '&&&&', а потом через макрос меняю

Еще раз спасибо за ФМ с которым просто работать!

Parazit

Opol4enec написал(а):

Свою проблему решил через макрос DOC.
В текст выгружаю цепочку '&&&&', а потом через макрос меняю

Тоже вариант.

art1m0n

я думаю, что вопрос возникал раньше, но все же.
возникла проблема: выдает пустой шаблон, но!
в квасе все работало просто великолепно. как перенесли в продуктив, так она забрыкалась. переносилось 3 отчета, где при выгрузке используется этот модуль. 2 отчета выводят пустые шаблоны, а один работает как ни в чем не бывало. ограничил диапазон и тоже вывелось (но это список из 20 ОС, а надо вывести 500).
Подозреваю, что проблема в макросе. Стоит поставить параметр оптимизации равным 0 или наоборот ставить больше, но тогда оптимизации не будет?

Parazit

art1m0n написал:

в квасе все работало просто великолепно. как перенесли в продуктив, так она забрыкалась. переносилось 3 отчета, где при выгрузке используется этот модуль. 2 отчета выводят пустые шаблоны, а один работает как ни в чем не бывало. ограничил диапазон и тоже вывелось (но это список из 20 ОС, а надо вывести 500).

Ну, логично предположить, что не донесли что-то до продуктива. Или тестили как то по другому. В общем, какие различия?
А 500 ОС случаем не значит, что нунжно вывести один файл Excel с 500 листами?! Если так, то у Мелкософта есть глючок, он больше 255 не может за раз.

art1m0n

Parazit написал:

art1m0n написал:

в квасе все работало просто великолепно. как перенесли в продуктив, так она забрыкалась. переносилось 3 отчета, где при выгрузке используется этот модуль. 2 отчета выводят пустые шаблоны, а один работает как ни в чем не бывало. ограничил диапазон и тоже вывелось (но это список из 20 ОС, а надо вывести 500).

Ну, логично предположить, что не донесли что-то до продуктива. Или тестили как то по другому. В общем, какие различия?
А 500 ОС случаем не значит, что нунжно вывести один файл Excel с 500 листами?! Если так, то у Мелкософта есть глючок, он больше 255 не может за раз.

Нет, тесты ничем не отличаются. Я тоже сначала подумал, что что-то не донеслось. Создал еще один запрос. Ничего не изменилось.
Нет, 500 ОС - это 500 строк в табличной части на одном из листов. У
меня сейчас стоит оптимизация на 500. В табличку it_values попадает порядка 6500 записей и шаблон выводится пустой. Когда я ограничил диапазон и в it_val попало 497, то все вывелось отлично.
Думаю, поставить значение оптимизации в 10000, но боюсь, что это будет несколько медленно работать.

Как показали тесты макрос в продуктиве запускается, но не хочет отрабатывать, хотя в текстовом файле все есть. По тому отчету, где все работает макрос просто не запускался, поэтому все вывелось - видимо, оптимизация не потребовалась. В квасе макрос отрабатывал нормально по всем отчетам.

Parazit

art1m0n написал:

У меня сейчас стоит оптимизация на 500. В табличку it_values попадает порядка 6500 записей и шаблон выводится пустой. Когда я ограничил диапазон и в it_val попало 497, то все вывелось отлично.
Думаю, поставить значение оптимизации в 10000, но боюсь, что это будет несколько медленно работать

Кажется я догадался, в чем дело. Проблема действительно известная. У вас представление юникодных символов отличается от наших. Нужно найти и заменить эту подпрограмму:

Code:

Constants: 
  X_TAB(1) TYPE X VALUE '09', 
  X_0D(1)  TYPE X VALUE '0D', 
  X_0A(1)  TYPE X VALUE '0A'. 

DATA: 
  CHAR_TAB type C, 
  CHAR_0D  TYPE C, 
  CHAR_0A  TYPE C. 
...

FORM AssignCharX .
  Data: L type i,
        CHAR_A value 'A',
        CHAR_B value 'B'.
  Field-symbols:
    <X>, <EI>.

  Assign CHAR_A to <X>  type 'X'.
  Assign CHAR_B to <EI> type 'X'.
  <EI> = <EI> - <X>.

  Assign CHAR_TAB to <X> type 'X'.
  Clear <X>.
  <X> = X_TAB * <EI>.
  Assign CHAR_0D to <X> type 'X'.
  Clear <X>.
  <X> = X_0D * <EI>.
  Assign CHAR_0A to <X> type 'X'.
  Clear <X>.
  <X> = X_0A * <EI>.
ENDFORM.                    " AssignCharX

art1m0n

Parazit написал:

Кажется я догадался, в чем дело. Проблема действительно известная. У вас представление юникодных символов отличается от наших. Нужно найти и заменить эту подпрограмму:

вопрос такой: "я не один использую данный модуль выгрузки. его еще до меня сюда внедрили. если я поменяю исходник, то это как-то скажется на работе других программ, которые используют этот модуль? не хотелось бы стать виновником всех бед, если прочие отчеты вдруг перестанут работать"

Parazit

art1m0n написал:

Parazit написал:

если я поменяю исходник, то это как-то скажется на работе других программ, которые используют этот модуль?

Нет, не скажется, эта подпрограмма специально доработана для работы в любых системах кодировки.

mofo

Parazit, ОГРОМНОЕ СПАСИБО ЗА ФМ и ЗА ПОМОЩЬ!Я ИДИЁТ, УБЕЙТЕ МИНЯ КТО-НИБУДЬ!

Всё отлично работает!!!

УРА!!!

Rand

Parazit написал:

При чем они будут работать даже при включенном максимальном уровне безопасности макросов MS-Office, также не требуется разрешения доступа к VB, что позволяет соблюсти политику безопасности компании.

А расскажите, пожалуйста, каким образом SAP это осуществляет? Что из документа Word, например, при высоком уровне безопасности макрос не запускается, а из SAP без проблем?

Parazit

Rand написал(а):

Parazit написал:

При чем они будут работать даже при включенном максимальном уровне безопасности макросов MS-Office, также не требуется разрешения доступа к VB, что позволяет соблюсти политику безопасности компании.

А расскажите, пожалуйста, каким образом SAP это осуществляет? Что из документа Word, например, при высоком уровне безопасности макрос не запускается, а из SAP без проблем?

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

Rand

Нифига. Я создал макрос без входных параметров, чтобы тестить его в Word в процессе написания. И потом и из программы так же вызывал этот макрос. Отрабатывал. И плевал он на политику безопасности Майкрософт

Rand

И к тому же, спорная логика, что он известный макрос, раз с параметрами. Мало ли какое приложение его хочет запустить.
P.S. Это, конечно, очень удобно. Очень. Но ведь парадокс. Стороннее приложение запускает в офисе что ни попадя. Не знал, что SAP дружит с Майкрософт

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

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

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