Добрый день!
Есть такая задачка:
Необходимо из рабочей книги Excel вызывать с помощью VBA RFC программа, которая в свою очередь в зависимости от заданных параметров должна открыть новую рабочую книгу.
Создана RFC программа, при запуске из SAP все отрабатывает отлично, нужная рабочая книга запускается.
Пробую вызвать RFC программу из рабочей книги, и получаю следующую ошибку:
в заголовке: Microsoft Visual C++ Runtime Library
текст ошибки:
Runtime Error!
Program: C:\Program Files\Microsoft\Microsoft Office\Office\Excel.exe
abnormal program termination

После этого Excel зыкрывается.
Поиск в интеренете дает только следующее решиние проблемы: Переставить Винды, переставить программу.

Заранее спасибо за ответы.
P.S.
Стоят Windows 2000
Office 2000

Может быть, параметры передаются криво из Excel в вашу RFC -ку?
И еще, на другом компе пробовали запускать?

Да на другом компе <я не знать русский языка>, таже ситуация! <я не знать русский языка> просто вызвать транзакцию rrmx из VBA. Таже ошибка, так что думаю RFC не причем тут.

Гм... Попробуйте сделать финт ушами, описанный в ноте 709141, может и поможет...

Да, данный финт ушами пока не помог, т.е:
For this coding correction to take effect, an entry has to be made in
RSADMIN table. To do this, execute transaction se38 -> Program -->
SAP_RSADMIN_MAINTAIN -> press F8

OBJECT -> REUSE_XL_INSTANCE

VALUE -> DISABLE

это уже стояло в таблице.

Гм...мы запускали простой ФМ. Все кошерно
...может что-то с кодом на VBA?

НА VBA написан следующий код:

Dim sapConn As Object
Set sapConn = CreateObject("SAP.Functions")

If sapConn.Connection.Logon(0, False) <> True Then
MsgBox "Cannot Log on to SAP"
End If
If Not sapConn.RRMX Then
MsgBox "Call cannot be done"
End If

Тут просто я решил <я не знать русский языка> вызвать транзакцию RRMX соответственно результат тотже.

Косяк наверное из-за того что обращаешься к объекту "SAP.Functions"
Ещё раз повторюсь, а что мешает вызвать функцию?
А в ней уже (в функции) вызывать rrmx, предварительно грузанув в мемори книжечку.

Логон проходит?

Да Логон проходит, но потом вываливается ошибка которая описана выше! Причем когда я вызываю ФМ тоже самое. ФМ как раз и вызывает рабочую книгу.

Если можно, примерчик как вызвать ФМ из VBA.

Function Get_FIO(User) As String
Dim BI_connect
Get_FIO = ""
Set BI_connect = Run("sapbex.xla!sapBEXgetConnection")

If BI_connect.IsConnected <> 1 Then
Get_FIO = ""
Else
Dim funcControl, RFC_READ_USER, importData
Set funcControl = CreateObject("SAP.Functions")
funcControl.Connection = BI_connect
Set RFC_READ_USER = funcControl.Add("Z_RFC_GET_USER_FIO")
RFC_READ_USER.Exports("USER_ID").Value = User

If RFC_READ_USER.Call = True Then
Get_FIO = RFC_READ_USER.Imports("NAME").Value
End If
End If

End Function
копирихт, все дела...бла-бла-бла

Спасибо.
Доработал свой код согласно вашему примеру^
Dim sapConn As Object
Set sapConn = CreateObject("SAP.Functions")
Dim objRfcFunc As Object
Set objRfcFunc = sapConn.Add("ZRUN_REPORT")
и в строке:
Set objRfcFunc = sapConn.Add("ZRUN_REPORT") , где ZRUN_REPORT - название ФМ вылазит ошибк:
Run-time error 1001

SAP Remote Function Call

причем ФМ не содержит пока входных параметров.

а галка стоит в ФМ что он RFC?

В общем так: сделал след код:
Sub RunRFC()

Dim sapConn As Object
Dim objData As Object
Set sapConn = CreateObject("SAP.Functions")
If sapConn.Connection.Logon(0, False) <> True Then
MsgBox "Cannot Log on to SAP"
End If
Dim objRfcFunc As Object
Set objRfcFunc = sapConn.Add("Z_RUN_MYFUNC")
If objRfcFunc.Call = True Then
MsgBox "Done"
End If
End Sub

Z_RUN_MYFUNC - ФМ, который запускает другой ФМ, который запускает рабочую книгу

соответственно при запуске ТЕПЕРЬ ничего не происходит, т.е objRfcFunc.Call <> True, ручками когда запускаю Z_RUN_MYFUNC все нормально - рабочая книга открывается.
Z_RUN_MYFUNC в свойствах стоит - Дистанционный модуль, запускать немедленно.
В чем тут теперь проблема не понятно....