GetObject в 1С 7.7 и OpenOffice

Книга знаний

Автор статьи: jbond
Последняя редакция №1 от 16.03.08
URL: http://kb.mista.ru/article.php?id=648

Функция Visual Basic GetObject
http://msdn2.microsoft.com/en-us/library/e9waz863(VS.80).aspx

отсутствует в 1С 7.7 и OpenOffice.

Данный код позволяет реализовать ее без использования COM-Обьектов, в т.ч. и скриптовых:

Option VBASupport 1
Public scr As Object
Public acc As Object

Sub TestWSC()
    Set fs = GetObject("script:C:\...\ScriptCodingInfo.wsc#FileSystem")

    fs.CreateDirs ("D:\Temp\tmp1\tmp2\tmp3")
    Set fs = Nothing
    
    FileName = "C:\Users\User\Documents\Northwind 2007.accdb"
    Set acc = GetObject(FileName)
    
    On Error Resume Next
    Set objExcel = GetObject("","Excel.Application")
    
    If Err.Number > 0 Then
        Set objExcel = CreateObject("Excel.Application")
    End If
    
    On Error GoTo 0
End Sub


Public Function GetObject(Optional ByVal PathName As String, Optional ByVal Class As String) As Object
    If scr Is Nothing Then
        Set scr = New ScriptControl
        scr.Language = "VBScript"
        scr.AddCode ("Function GetObj(PathName,[Class]): Set GetObj = GetObject(PathName,[Class]): End Function")
    End If
    
    If IsMissing(PathName) Then
        PathName = ""
    End If
    
    If IsMissing(Class) Then
        Class = ""
    End If
    
    Set GetObject = scr.CodeObject.GetObj(PathName, Class)
End Function