편지함을 사용하여 Libre Office와 병합합니다.

Question

다음 코드 블록은 OpenOffice SDK에서 편지 병합 기능을 자동화하기 위해 완벽하게 작동합니다. 코드 위

Public Function runQueryOnDataSource(ByVal nameOfdDtaource As String, ByVal query As String) As Boolean 
    strLog = strLog + vbCrLf + Now.ToString() + ": runQueryOnDataSource nameOfdDtaource:" + nameOfdDtaource + ",query:" + query + "-Started" 
    Dim oDB As Object, oBase As Object 
    Dim oStatement As Object 
    Dim rSQL As String 
    Dim oRequete As Object 
    Dim oServiceManager As Object, CreateUnoService As Object 
    Try 
     'Creation instance Open office 
     oServiceManager = CreateObject("com.sun.star.ServiceManager") 
     CreateUnoService = oServiceManager.createInstance("com.sun.star.sdb.DatabaseContext") 
     mxMSFactory = (uno.util.Bootstrap.bootstrap()).getServiceManager() 
     oDB = CreateUnoService.getByName(nameOfdDtaource) 'oDB=XDataSource 
     'Connection 
     oBase = oDB.getConnection("", "") 'oBase=XConnection 
     oStatement = oBase.createStatement 'XStatement 
     'rSQL = "SELECT * FROM ""26_MailMergeResult_DEMO" 
     rSQL = query 
     oRequete = oStatement.execute(rSQL) 
     Return True 
    Catch ex As Exception 
     strLog = strLog + vbCrLf + Now.ToString() + ": Exception" + ex.ToString() 
     Throw ex 
    Finally 
     oDB = Nothing 
     oBase.Close() 
     oBase.Dispose() 
    End Try 
    strLog = strLog + vbCrLf + Now.ToString() + ": runQueryOnDataSource-Finished" 
    Return True 
End Function 

는 내가 그것을 사용하려고 지금 때 이미 무료 무료 office.But에 등록 된 데이터 소스에 데이터를 삽입하는 데 사용됩니다, 라인 oServiceManager = CreateObject("com.sun.star.ServiceManager") 오류 "오류 만들기 ActiveX 객체"를 생성합니다. 누구나 아이디어가 있습니까, 어떻게 수정합니까?

Answer 1

이 코드는 제대로 보이지 않으므로이 코드는 효과가 있습니다. 다른 예에서는 항상 bootstrap() 줄이 먼저 나타납니다. 그런 다음 별도의 oServiceManager 변수 대신 해당 서비스 관리자를 사용하십시오.

예를 들어 Java 코드 https://www.openoffice.org/udk/common/man/spec/transparentofficecomponents.html을 참조하십시오.

편집 :

당신은 거의 다 왔어. getByName() 메서드는 uno.Any을 반환하며 Value이라는 DirectCast이라는 속성을 사용할 수 있습니다.

Dim oDB As XDataSource 
Dim oBase As XConnection = Nothing 
Dim xContext As XComponentContext = uno.util.Bootstrap.bootstrap() 
Dim xMSFactory As XMultiServiceFactory = DirectCast(
    xContext.getServiceManager(), XMultiServiceFactory) 
Dim xNameAccess As XNameAccess = DirectCast(
    xMSFactory.createInstance("com.sun.star.sdb.DatabaseContext"), XNameAccess) 
oDB = DirectCast(xNameAccess.getByName("Bibliography").Value, XDataSource) 
oBase = DirectCast(oDB.getConnection("", ""), XConnection)