Как отладить VBA макрос?

Salas

Вот возникла проблема.
АБАП приложение использует класс SOFFICEINTEGRATION для заполнения Экселевского шаблона.
Я видоизменил этот шаблон и теперь в бэйсиковском коде хочу внеси изменения по его заполнению. Делаю отладку
и на 3-ей строке:

Code:

Dim HeadW As Object
  Set HeadW = ThisWorkbook.Container.Tables("tab_h_w").Table
  ThisWorkbook.ActiveSheet.Cells(2, 2).Value = HeadW.Cell(1, 1)
* tab_h_w - заполненная внутрення таблица

возникает ошибка: ' "1004" -Application-defined or object-defined error'

Все поля шаблона защищены от ввода, может в этом дело?
Подскажите, как нормально отладить?

Заранее спасибо.

Speelky

Проще всего после появления ошибки сохранить файл на диске (в нем уже будут выгружены данные) и вручную вызывать макрос, отлаживая его средствами редактора VBA.

organmusic

Та же проблема.
Отдельно от SAP в выгруженном EXCEL макрос не работает - доступа к табличным данным нет. Есть ли какой нибудь способ запустить макрос автономно?

hub2002

Запустите макрос непосредственно из документа.

organmusic

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

Запустите макрос непосредственно из документа.

Да вроде так и запускал, из сохраненной книги EXCEL.
Вот здесь выдает ошибку: Method 'Container' of object '_Workbook' failed

Code:

    ' Объект SAP R/3
    Set oContainer = ThisWorkbook.Container     <--
    
    ' Доступ к внутренней таблице
    Set it_all = oContainer.Tables("pers41").Table
...

MantiCore1977

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

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

Да вроде так и запускал, из сохраненной книги EXCEL.
Вот здесь выдает ошибку: Method 'Container' of object '_Workbook' failed

В сохраненной книге не получится потому что Container-а нет в таком режиме
по хорошему нужно вставить проверку на ошибку типа

Code:

On Error Resume Next
Set oContainer = ThisWorkbook.Container
If Err <> 0 Then
    Debug.Print Err.Description 'или какой-то другой обработчик, лучше всего в лог файл
    Exit Sub
End If
On Error GoTo 0

organmusic

То есть я так понял, без SAP, автономно такой макрос не отладить.
В сохраненной книге данные внутренних таблиц (it_all и др) отсутствуют - без SAP нет доступа к этим таблицам

MantiCore1977

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

То есть я так понял, без SAP, автономно такой макрос не отладить.
В сохраненной книге данные внутренних таблиц (it_all и др) отсутствуют - без SAP нет доступа к этим таблицам

да
Set oContainer = ThisWorkbook.Container это и есть как бы SAP, который открыл Excel
если Excel сам по себе открыт, то и контейнера у него нет
заводите в макросе лог-файл и пишите туда все что нужно
типа такого

Code:

Open "d:\log.txt" For Output As #1
Print #1, "message"
Close #1

organmusic

Вообще это очень неудобно.
Я сделал в конце концов так: выгружаю данные из внутренних таблиц в листы EXCEL. И в макросе читаю все уже из этих листов. В автономе данные беру сразу с этих листов.
Пришлось написать класс-эмулятор с теми же методами, что и класс внутр таблицы, который берет данные из листов EXCEL
По идее после отладки можно переключиться обратно на внутренние таблицы.

organmusic

Code:

Set it_tab = ThisWorkbook.Container.Tables("it_tab").table

Вообще интересно что за объекты эти Table. Хинты на них не работают.
Как посмотреть класс, методы и свойства?
Можно ли в VBA самому, без SAP, создавать такие объекты?

MantiCore1977

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

Вообще интересно что за объекты эти Table. Хинты на них не работают.
Как посмотреть класс, методы и свойства?
Можно ли в VBA самому, без SAP, создавать такие объекты?

не получится хинты
так как Container - runtime объект и на момент написания макроса про его методы и свойства ничего не известно
ну кроме стандартных методов Object

Gustav

Коллеги, а как можно выгрузить из SAPа подобный файл, нашпигованный кодом VBA? Что-то в известных мне точках экспорта выгружаются только данные без макросов...

А поковыряться было бы интересно. Нашёл ссылку, где приводится пример такого кода: http://www.mrexcel.com/forum/showthread ... el-and-SAP и такой же, как мой, вопрос.

Спасибо заранее.

MantiCore1977

Gustav написал:

Коллеги, а как можно выгрузить из SAPа подобный файл, нашпигованный кодом VBA? Что-то в известных мне точках экспорта выгружаются только данные без макросов...

А поковыряться было бы интересно. Нашёл ссылку, где приводится пример такого кода: http://www.mrexcel.com/forum/showthread ... el-and-SAP и такой же, как мой, вопрос.

Спасибо заранее.

Code:

REPORT  zexmod.
INCLUDE ole2incl.

CONSTANTS vbext_ct_stdmodule TYPE i VALUE 1.

DATA application  TYPE ole2_object.
DATA workbooks  TYPE ole2_object.
DATA workbook  TYPE ole2_object.
DATA vbproject  TYPE ole2_object.
DATA vbcomponents TYPE ole2_object.
DATA vbcomponent TYPE ole2_object.
DATA codemodule TYPE ole2_object.

START-OF-SELECTION.
  IF application-header = space.
    CREATE OBJECT application 'EXCEL.APPLICATION'.
  ENDIF.

  GET PROPERTY OF
      application
      'Workbooks' = workbooks.
  CALL METHOD OF
      workbooks
      'Add'     = workbook.
  GET PROPERTY OF
      workbook
      'VBProject' = vbproject.
  GET PROPERTY OF
       vbproject
       'VBComponents' = vbcomponents.
  CALL METHOD OF
      vbcomponents
      'Add'        = vbcomponent
    EXPORTING
      #1           = vbext_ct_stdmodule.
  GET PROPERTY OF
     vbcomponent
     'CodeModule' = codemodule.
  SET PROPERTY OF
  codemodule
  'Name' = 'SapModule'.
  CALL METHOD OF
      codemodule
      'InsertLines'
    EXPORTING
      #1            = 1
      #2            = 'Sub HelloWorld()'.
  CALL METHOD OF
      codemodule
      'InsertLines'
    EXPORTING
      #1            = 2
      #2            = 'MsgBox "Hello World!"'.
  CALL METHOD OF
      codemodule
      'InsertLines'
    EXPORTING
      #1            = 3
      #2            = 'End Sub'.
*  SET PROPERTY OF application  'Visible' = 1.

  CALL METHOD OF
      workbook
      'SaveAs'
    EXPORTING
      #1       = 'd:\vba.xls'.
  CALL METHOD OF
      application
      'Quit'.

END-OF-SELECTION.
  FREE OBJECT: application, workbooks, workbook,
               vbproject,vbcomponents,vbcomponent,codemodule.

только в Excel нужно включать птичку Сервис-Макрос-Безопасность-Надежные издатели-Доверять доступ к Visual Basic Project
а это лазейка для макровирусов
по идее ее тоже можно устанавливать и снимать программно, только найти свойство нужное
ну и OLE отлаживать это наказание натуральное

Gustav

MantiCore1977 написал:

только в Excel нужно включать птичку Сервис-Макрос-Безопасность-Надежные издатели-Доверять доступ к Visual Basic Project
а это лазейка для макровирусов
по идее ее тоже можно устанавливать и снимать программно, только найти свойство нужное

MantiCore1977, спасибо за Ваш ответ, но это - в принципе - я уже знаю и умею: http://www.axforum.info/forums/showthread.php?t=12485

наверное, я не очень корректно задал свой вопрос, меня же интересует, В КАКОМ МЕСТЕ (местАХ) в SAPе генерируется (выгружается) код VBA, подобный следующему (беру фрагмент из своей ссылки выше):

Code:

'*******************************************************************************
'   Receive row/column-oriented formats
'*******************************************************************************
Public Sub Workbook_receiveRCFormats()
 
  Dim SAPTable As Object
  Dim SAPTableRow As Object
  
  Dim SAPRCFormat As SAPRCFormat
  
  Dim Index As Long

  Dim NoItems As Long
  Dim I As Long

 
  Set SAPContainer = ThisWorkbook.Container
  Set SAPTable = SAPContainer.tables("RC_FORMATS").Table
  For Each SAPTableRow In SAPTable.Rows
    Index = SAPTableRow("INDEX")
    NoItems = SAPRCFormats.count
    If Index <= NoItems Then
      Set SAPRCFormat = SAPRCFormats.item(Index)
    Else
      For I = NoItems + 1 To Index
        Set SAPRCFormat = New SAPRCFormat
        SAPRCFormats.add SAPRCFormat
      Next I
    End If
    SAPRCFormat.setFormat SAPTableRow
  Next SAPTableRow

End Sub

Т.е. я хочу увидеть (получить) "фирменный" саповский код VBA.

MantiCore1977

Цитата:

Т.е. я хочу увидеть (получить) "фирменный" саповский код VBA.

какая транзакция его генерит?

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

Как отладить VBA макрос?

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