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

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.

Preatos

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.

Спасибо!

Mousemike

ПОдкиньте пож-та макрос для защиты листа......

Parazit

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

ПОдкиньте пож-та макрос для защиты листа......

Вот пример:

Code:

Worksheets("Лист1").Protect Password:=Time, DrawingObjects:=True, Contents:=True, Scenarios:=True

Я же добавлял в модуль защиту листов, параметр PROTECT = 'X'.

Mousemike

Parazit написал:

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

ПОдкиньте пож-та макрос для защиты листа......

Вот пример:

Code:

Worksheets("Лист1").Protect Password:=Time, DrawingObjects:=True, Contents:=True, Scenarios:=True

Я же добавлял в модуль защиту листов, параметр PROTECT = 'X'.

Спасибо!!! Сорри, про такую возможность забыл!!! просто у меня старая версия ФМ, возьму новую.

man

Выводим первичные документы через Вашу (Parazit) функциональность.
Требуется на каждой следующей странице (при выводе списка) печатать шапку таблицы.
Подскажите пожалуйста как это лучше реализовать.

Parazit

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

Подскажите пожалуйста как это лучше реализовать.

В Excel есть такая вещь, как "сквозные строки". Настраивается в "параметрах печати".

man

Спасибо за "сквозные строки".
Еще вопрос: надо при переходе на след.страницу запретить разрыв набора строк. Например "итоги + подписи" должны печататься на одной странице.
Спасибо.

Parazit

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

Например "итоги + подписи" должны печататься на одной странице.

Что то не нашел в Excel для этого ничего специального. Попробовал вот такой макросик написать, вроде работает. Выделить неделимую область, назвать, например "ИтогиПодписи". Вставлять его нужно в область Wokbook (Microsoft Excel Objects/ЭтаКнига):

Code:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
  Dim R As Range
  Set R = Range("ИтогиПодписи")
  R.Rows.PageBreak = xlPageBreakNone
  For Each Rw In R.Rows
    If Rw.PageBreak = xlPageBreakAutomatic Then
      R.Rows.PageBreak = xlPageBreakManual
    End If
  Next
End Sub

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

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

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