Если весь этот XML код запихнуть в таблицу, то можно его вытащить таким образом:
Public Function udfRibbonBasKli2010Upload()
Dim RS As ADODB.Recordset
Dim strXML As String
On Error GoTo Err_Heandler
'Загрузка XML-кода ленты
Set RS = New ADODB.Recordset
RS.ActiveConnection = CurrentProject.Connection
RS.Source = "dbo.procCustomUI;03" & "MyPerfectCustomUI"
RS.Open
If Not RS.EOF Then
strXML = RS.Fields("RibbonXML")
End If
RS.Close
'Загрузка ленты, как объекта IRibbonUI
Application.LoadCustomUI "НазваниеЛенты", strXML
Exit_Here:
Set RS = Nothing
Exit Function
Err_Heandler:
Select Case Err
Case 32609 ' Эта ошибка возникает, если лента уже загружена
MsgBox "Лента уже загружена : " & Err.Number & vbCrLf & Err.Description, vbCritical, "LoadAppRibbonInGui()", Err.HelpFile, Err.HelpContext
Case Else
MsgBox "Ошибка : " & Err.Number & vbCrLf & Err.Description, vbCritical, "LoadAppRibbonInGui()", Err.HelpFile, Err.HelpContext
End Select
Resume Exit_Here
End Function
Я там работаю через процедуру... Так что ловите и ёё текст.
CREATE PROCEDURE dbo.procCustomUI;03
@RibbonName nvarchar(20)
AS
SET NOCOUNT ON
SELECT RibbonName, RibbonXML, RibbonDescription
FROM tblRibbonXML
WHERE RibbonName = @RibbonName
GO