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

Nina

Azik написал:

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

Все настроил, но работает только с Word, с Excel открывает только шаблоны без заполнения! В чем может быть проблема?
И еще в INCLUDE LZWWWFORMF01 есть строка

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

ну и соответственно

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

Это что получаеться я дожден в тр. SMW0 запихнуть шаблоны из примера и те шаблоны которые с макросами?

Да должен, но например у меня этот макрос не отрабатывает, я писал уже об этом выше.
Я просто при вызове ставлю optimize = 10000000 к примеру, но это долго выводит много записей, а Макрос вроде как должен ускорить.
Но повторю, у меня макрос не работает почему-то

товарищи-дорогие! помогите разобраться! у меня тоже этот макрос не отрабатывает, VB выдает run-time error 91.
Это при вызове: Call method of App 'Documents' = Doc.
в макросе на строке
Set f = fs.OpenTextFile(FileData, 1, 0)

В smw0 шаблон ZWWW_MACROS_WORD лежит. Положила его коллега со своего компа, она первая эту технологию осваивала. Так вот: запускаю свою программу на ее компе, макрос отрабатывает, большой файл формируется. На моем макрос выдает ошибку. На обоих компах word 2003. Безопасность поставила самую низкую.
В чем может быть проблема? :roll:

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

в ФМ ZWWW_OPENFORM после создания объекта OLE, временно выставить свойства
Код:
Set property of App 'Visible' = 1.
Set property of App 'ScreenUpdating' = 1.
Set property of App 'DisplayAlerts' = 1.
возможно что-то и прояснится...

Поставила. Не прояснилось. То есть ничего не показалось :cry:

Приходится ставить большой optimize, выгрузка идет медленно.
Хотелось бы знать, что с вордом не так? А если у юзверей тоже будут проблемы?

Azik

Тут еще есть вопрос в том что может стоять Антивирус какой-нить и он блокирует выполнение макросов Excel, проверь!

Nina

Azik написал:

Тут еще есть вопрос в том что может стоять Антивирус какой-нить и он блокирует выполнение макросов Excel, проверь!

Azik, спасибо, что откликнулись

У меня стоит Касперский. И на соседнем компе, где макрос работает. Отключила у себя Касперского - все равно не работает.
Поэкспериментировала на разных компьютерах с разными системами и версиями ворда.
Макрос работает ТОЛЬКО на том компе, с которого он был изначально загружен на сервер.
В чем причина, пока не нашли. :roll:

sibrin

С какого компьтера загружен шаблон, очевидно, не должно влиять. R/3 знает помнит только имя пользователя, который это сделал.

Маловероятно, конечно, но могут быть какие-то глупые ошибки, связанные с файловой системой:

1) выгрузка осуществляется в директорию, которая отсутствует или права доступа к ней только на чтение;

2) temp-директория windows недоступна или путь к ней содержит пробелы.

Nina

sibrin написал:

С какого компьтера загружен шаблон, очевидно, не должно влиять. R/3 знает помнит только имя пользователя, который это сделал.

Маловероятно, конечно, но могут быть какие-то глупые ошибки, связанные с файловой системой:

1) выгрузка осуществляется в директорию, которая отсутствует или права доступа к ней только на чтение;

2) temp-директория windows недоступна или путь к ней содержит пробелы.

sibrin, спасибо за отклик

Выгрузка идет в директорию
C:\Documents and Settings\nina\Local Settings\Temp
Она есть, туда идет запись файлов, того же промежуточного *.txt
Ошибка в макросе на строке
Set f = fs.OpenTextFile(FileData, 1, 0) - т. е. не может открыть этот промежуточный txt-файл. Код ошибки 91 - нет объекта.
Объект fs создается ранее:
Set fs = CreateObject("Scripting.FileSystemObject")
В дебуггере при наведении мышки на эту строку выдается сообщение, что объет не создан.
Вопрос - почему не создается объект? Что-то не настроено в VB ?

sibrin

Цитата:

Вопрос - почему не создается объект?
Set f = fs.OpenTextFile(FileData, 1, 0)

Файл открыть не может, вот и ошибка.
Проверьте, совпадает ли FileData в Office с file_data в R/3 после выполнения

Code:

 PERFORM downloadmacros
   USING it_bookmarks 'ZWWW_MACROS'
   CHANGING file_macros macrosname file_data.

Nina

sibrin написал:

Цитата:

Вопрос - почему не создается объект?
Set f = fs.OpenTextFile(FileData, 1, 0)

Файл открыть не может, вот и ошибка.
Проверьте, совпадает ли FileData в Office с file_data в R/3 после выполнения

Code:

 PERFORM downloadmacros
   USING it_bookmarks 'ZWWW_MACROS'
   CHANGING file_macros macrosname file_data.

FileData в Office = file_data в R/3 - проверила
файл ZWWW_DATA_071435.txt, создан во временной папке, лежит там.
пути совпадают

Parazit

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

Вопрос - почему не создается объект?

А попробуйте описать переменные Dim fs As Object, f As Object, _

sibrin

Я невнимательно прочитал:

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

В дебуггере при наведении мышки на эту строку выдается сообщение, что объет не создан.
Вопрос - почему не создается объект? Что-то не настроено в VB ?

Вот что пишет microsoft:

FileSystemObject can be found in Scrrun.dll. In addition to FileSystemOject, Scrrun.dll includes four other objects available for File I/O and other tasks. These objects include the File object, the TextStreamObject object, the Folder object, and the Drive object. All of these objects have properties and methods that are detailed in the Help files.

You can obtain Scrrun.dll by installing one of the following packages:

Windows Script Host
Windows NT Option Pack
Microsoft Internet Information Server 3.0
Scripting 3.1 upgrade
Visual Studio 6.0
Visual Basic 6.0

Nina

Parazit написал:

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

Вопрос - почему не создается объект?

А попробуйте описать переменные Dim fs As Object, f As Object, _

Не помогло

Повторюсь - на соседнем компьютере макрос срабатывал и в прежней редакции. Ворд у нас 2003.

Сейчас увидела ответ sibrin.
Насколько я поняла, не подключается библиотека Microsoft Scripting Runtime? Я пыталась ее подключать принудительно - слетает галка.
Придется устанавливать один из предложенных пакетов? И на компе у юзверей тоже

sibrin

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

Может не подключается библиотека Microsoft Scripting Runtime?

Так проверьте!
Создайте пустой документ Word, нажмите Alt+F11, пункт меню Insert->Module, скопируйте код

Code:

Sub test()
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.OpenTextFile("c:\temp.txt", 1, 0)
End Sub

и изучайте.

Parazit

Меня смущает вот эта фраза:

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

Макрос работает ТОЛЬКО на том компе, с которого он был изначально загружен на сервер.

Непонятно, как такое вообще может быть. Вы уверены, что все именно так?
А при инсталляции MS Office на всех компах включали Visual Basic?

Nina

Parazit написал:

Меня смущает вот эта фраза:

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

Макрос работает ТОЛЬКО на том компе, с которого он был изначально загружен на сервер.

Непонятно, как такое вообще может быть. Вы уверены, что все именно так?
А при инсталляции MS Office на всех компах включали Visual Basic?

Спасибо, мы уже поняли - на том компе офис установлен в полном объеме. Остальные офис установливали выборочно, по минимуму - из экономии ресурсов. И я тоже

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

Огромное спасибо всем за участие и помощь!

Preatos

а у меня вот такая трудность возникла при компиляции модуля:
в строке:

Code:

If not <IT_VALUES>-VALUE cs Char_TAB or
                 ( <IT_VALUES>-VAL_TYPE = space or
                   <IT_VALUES>-VAL_TYPE = 'S' ).

выдаёт мне ошибку:
CHAR_TAB must be a character type data object (C, N, T, D, or String)

Что делать????

sibrin

Цитата:

CHAR_TAB must be a character type data object (C, N, T, D, or String)

Определить CHAR_TAB как char:

Code:

data:
  Char_tab type C value cl_abap_char_utilities=>horizontal_tab,
  Char_0D0A(2) type C value cl_abap_char_utilities=>cr_lf.

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

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

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