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

Parazit

Justudent написал:

у нас все работает!!! PARAZIT, МЕГА СПАСИБО!!!! :pivo:

Поздравляю!

lestat

Parazit написал:

lestat написал:

Добрый день! Подскажите пожалуйста... У меня такая проблема...
Так все отлично работает, файл создается... Но когда ставлю CLOSE_FORM = 'X' - тогда ничего не происходит, когда фм отрабатыват - пишет "ХХХ байт перенесено и тп.", но ни файл не появляется, ни икселевское окно тоже не появляется... Мне нужно, чтобы иксель обратно закрылся, а файлик появился (нужно несколько файлов выгружать подряд).... Подскажите в чем может быть дело или может я что-то не так делаю..

По умолчанию параметр DELETE_FILE = 'X', сбросьте его

Спасибо!

lestat

Как убить процесс EXCEL.EXE *32 после выболения OPEN_FORM?
За раз выгружается несколько файлов.. после выполнения вышеупомянутый процесс остается висеть в диспетчере задач в количестве N штук, где N-кол-во выгружаемых файлов... Иксель дохнет напрочь

Code:

  CALL FUNCTION 'ZWWW_OPENFORM'
    EXPORTING
      FORM_NAME   = 'ZLO_STORE_ZWAPPQN'
      PRINTDIALOG = ''
      FILE_NAME   = file_name
      PROTECT     = 'X'
      OPTIMIZE    = 0
      CLOSE_FORM  = 'X'
      DELETE_FILE = ''
    TABLES
      IT_VALUES   = IT_xlstable
    EXCEPTIONS
      PRINTCANCEL = 1
      OTHERS      = 2.

Подскажите плис, че делать?

Parazit

lestat написал:

Как убить процесс EXCEL.EXE *32 после выболения OPEN_FORM?
За раз выгружается несколько файлов.. после выполнения вышеупомянутый процесс остается висеть в диспетчере задач в количестве N штук, где N-кол-во выгружаемых файлов... Иксель дохнет напрочь

Подскажите плис, че делать?

Какие версии офиса, системы, логона?
Когда то были такие проблемы, но это было еще с офисом 2000 и 4.6.
Зависит ли данная трабла от количества N?
Вышлите мне шаблон и содержимое IT_VALUES, я посмотрю
misterxyz(собака)mail(тчк)ru

lestat

Parazit написал:

lestat написал:

Как убить процесс EXCEL.EXE *32 после выболения OPEN_FORM?
За раз выгружается несколько файлов.. после выполнения вышеупомянутый процесс остается висеть в диспетчере задач в количестве N штук, где N-кол-во выгружаемых файлов... Иксель дохнет напрочь

Подскажите плис, че делать?

Какие версии офиса, системы, логона?
Когда то были такие проблемы, но это было еще с офисом 2000 и 4.6.
Зависит ли данная трабла от количества N?
Вышлите мне шаблон и содержимое IT_VALUES, я посмотрю
misterxyz(собака)mail(тчк)ru

Все отправил.

Parazit

lestat написал:

Parazit написал:

Все отправил.

Цитата:

ОС: Windows 7 Профессиональная 64-разрядная
Офис 2010
SAP Logon 720

Я протестил пример на такой же конфигурации - всё работает без проблем, сессий Excel не остается.
Может SAP-Logon обновить?! Тестировалось на 7.20 - 5-й патч.
На моем компе (XP, 2007, 7.10 - 14) тоже проблем нет.

p.s.
Я полагаю мой модуль не изменяли?!

lestat

Нет, не трогал... Может иксель у меня глючный..

Parazit

lestat написал:

Нет, не трогал... Может иксель у меня глючный..

SAP-Logon, какой патч?

wz_

Подскажите, как передать значение переменной из АВАР'а в макрос Excel ?

Извеняюсь, если повторяю чей то вопрос.

Parazit

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

Подскажите, как передать значение переменной из АВАР'а в макрос Excel ?

Извеняюсь, если повторяю чей то вопрос.

Можно через любую вспомогательную ячейку.

wz_

Parazit написал:

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

Подскажите, как передать значение переменной из АВАР'а в макрос Excel ?

Извеняюсь, если повторяю чей то вопрос.

Можно через любую вспомогательную ячейку.

тоесть сделать еще одну метку для вывода значения переменной и потом считывать ее макросом?

Parazit

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

тоесть сделать еще одну метку для вывода значения переменной и потом считывать ее макросом?

Да, именно так. Посмотрите мой пример ZWWW_MANY_LIST, где перед выводом сначала размножается лист Excel. Там в ячейку A_CopyList кладется число - количество листов. И для нее же запускается макрос CopySheets, который в первых же строках считывает значение ячейки и чистит ее.

Code:

Sub CopySheets(R As Range)
  Dim N As Long, I As Long, CurSheet As Worksheet
  
  'получаем количество листов
  N = R.Value
  R.Value = ""
  .....

wz_

Parazit написал:

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

тоесть сделать еще одну метку для вывода значения переменной и потом считывать ее макросом?

Да, именно так. Посмотрите мой пример ZWWW_MANY_LIST, где перед выводом сначала размножается лист Excel. Там в ячейку A_CopyList кладется число - количество листов. И для нее же запускается макрос CopySheets, который в первых же строках считывает значение ячейки и чистит ее.

Code:

Sub CopySheets(R As Range)
  Dim N As Long, I As Long, CurSheet As Worksheet
  
  'получаем количество листов
  N = R.Value
  R.Value = ""
  .....

спасибо, разобрался! работает как часы

Twister

Parazit написал:

Twister написал:

Подскажите как решить проблему. Система WindowsXP SP3, MS Office 2010. SAP 7.20 патч 4.

При выгрузке из программы данных в Excel, выдает ошибку при обращении к файлу ZWWW_MACROS_****.xls

Ошибка: Run-time error 429 "ActiveX component can't create object" и два варианта - End и Debug

При работе с Office 2007 ошибок не возникало, проверялось как на ХР так и на Win7. После установки Office 2010 на ХР выдало эту ошибку, на Windows7 данные выгружает, но перед выгрузкой предлагает сохранить данный макрос.

Может в Office 2010 что-то поменяли для VB?

Как я уже ответил в теме, вероятней всего, что Вы при установке MS Office 2010 не включили какую то компонету, типа VBA.
Но, в общем то, я неоправданно использовал объект "Scripting.FileSystemObject", можно обойтись и без него. Что я и сделал: я исправил макросы выгрузки и выложил версию 2.72. Скачивайте, как всегда, по ссылке в первом сообщении темы!

p.s.
Версия 2.72 также содержит доработку для корректного вывода вложенных таблиц Word и прочее.

Parazit решил проблему с выгрузкой, код макроса по сути оказался ни причем. Зарегистрировал дополнительные библиотеки и все пошло нормально (сколько гугл было перекопано:)). На всякий случай добавил следующие:

Code:

regsvr32 atl.dll
regsvr32 corpol.dll
regsvr32 dispex.dll
regsvr32 jscript.dll
regsvr32 scrrun.dll
regsvr32 scrobj.dll
regsvr32 vbscript.dll
regsvr32 wshext.dll
regsvr32 wshom.ocx
regsvr32 msxml3.dll
regsvr32 ole32.dll
regsvr32 oleaut32.dll
wscript /regserver

Но почитав комментарии по поводу ошибки CreateObject("Scripting.FileSystemObject"), нашел следующий комментарий:

Цитата:

Похоже, что очередные ужесточения политики безопасности Microsoft.

Ранее была описана процедура отключения FileSystemObject. Вполне возможно, что теперь эту процедуру попросту ВКЛЮЧИЛИ ... официальной информации пока не видел.

Securing Internet Information Services

Disabling the FileSystemObject Component
ASP, Windows Script Host, and other scripting applications use the FileSystemObject (FSO) component to create, delete, gain information about and manipulate drives, folders, and files. Consider disabling the FSO component, but be aware that this will also remove the Dictionary object. Also, verify that no other programs require this component.
Requirements
You will need the following to complete this task:
· Credentials. You must be logged on as a member of the Administrators group on the Web server.
· Tools. Command prompt.

To disable the FileSystemObject component
1. Click Start, click Run, type cmd in the Open box, and then click OK.
2. Type cd c:\Windows\system32 and press ENTER to change to the C:\Windows\system32 directory.
3. At the command prompt, type regsvr32 scrrun.dll /u and then press ENTER. The following message will display:
DllUnregisterServer in scrrun.dll succeeded.
1. Click OK.
2. At the command prompt, type exit and press ENTER to close the command prompt window.

Parazit

Twister написал:

Parazit решил проблему с выгрузкой, код макроса по сути оказался ни причем. Зарегистрировал дополнительные библиотеки и все пошло нормально (сколько гугл было перекопано:))...
Но почитав комментарии по поводу ошибки CreateObject("Scripting.FileSystemObject"), нашел ...

Спасибо за развернутый ответ! И рад, что всё получилось.

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

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

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

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