tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^3: OpenOffice.org (OOo) の操作について
投稿日： 2009/06/09(Tue) 17:15
投稿者： ぴよこ
>①OpenOfficeインストールしたのみで、ほかに参照追加やコンポーネントの追加の必要があるのか
>②シート名の変更の仕方がわからない
この２点のうち、
①については必要ないのかな？と自分自身の中では思っている段階です。
②に関しては解決しましたので、下記に掲載いたします。
===================================================================
Dim ServiceManager As Object
Dim Desktop As Object
Dim document As Object
Dim args()

    'OpenOfficeサービスマネージャ
    Set ServiceManager = CreateObject("com.sun.star.ServiceManager")
　　'オープンオフィスデスクトップ
    Set Desktop = ServiceManager.CreateInstance("com.sun.star.frame.Desktop")
        
    '新しいフォルダの作成　
    Set document = Desktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, args())
    
    'ここから========================================================
    Dim dispatcher As Object
    Set dispatcher = ServiceManager.CreateInstance("com.sun.star.frame.DispatchHelper")
    
    Dim args1(0)
    Set args1(0) = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
    args1(0).Name = "Name"
    args1(0).Value = "シート変更"
    Call dispatcher.executeDispatch(document.CurrentController.Frame, ".uno:RenameTable", "", 0, args1())
    'ここまで========================================================
===================================================================
上記の内容で、シート名の変更が行えました。

今後、マナー違反にならないよう気を付けます。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。