OpenOffice.org コミュニティーフォーラム

コード: 全て選択

Sub hoge
  ' baseファイルがOOoデータソースとして登録されているとき。
  oDBCon = CreateUnoService("com.sun.star.sdb.DatabaseContext")
  oSource = oDBCon.getByName("データソース名")
  oSource.DatabaseDocument.ReportDocuments.getByName("レポート名").open()
End Sub

コード: 全て選択

Sub hoge
'  oDoc = ThisComponent  
'  If oDoc.supportsService("com.sun.star.text.TextDocument") Then
'    oDoc = ThisComponent.parent
'  End If
' 今は↓でいけるみたい

  oDoc = ThisDatabaseDocument  
  If oDoc.supportsService("com.sun.star.sdb.OfficeDatabaseDocument") = false Then
    Exit Sub
  End If
  oDoc.ReportDocuments.getByName("レポート名").open()
End Sub