いつも参考にさせてもらっています。
今回、ExcelとOpenOfficeが入った環境とOpenOfficeのみの環境で
ExcelまたはCalcどちらからでも使用できるようにするための調査を行っています。
※Excelが入った環境がある場合はExcelを優先

環境はWindows2000
　　　VB6.0
　　　を使用しています
現在、下記の内容につまづいておりまして、
こちらに書かせてもらいました。

OpenOfficeのみの環境下の場合についての質問になるのですが、
�@OpenOfficeインストールしたのみで、ほかに参照追加やコンポーネントの追加の必要があるのか
�Aシート名の変更の仕方がわからない
　※マクロのコードをみたのですが、どこを変えればよいのか・・・
＝＝＝＝＝＝
'マクロから引っ張ってきたものです。
Dim document   As Object
Dim dispatcher As Object

document = ThisComponent.CurrentController.Frame
dispatcher = CreateUnoService("com.sun.star.frame.DispatchHelper")

Rem ----------------------------------------------------------------------
Dim args1(0) As New com.sun.star.beans.PropertyValue
args1(0).Name = "Name"
args1(0).Value = "シート変更"

dispatcher.executeDispatch(document, ".uno:RenameTable", "", 0, args1())
＝＝＝＝＝＝
以上です

下記サイトで質問されている方と同じ方では？
(マナー違反をされるとレスがつきません。)
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200905/09050021.txt

因みに、当サイトの過去のログには、OpenOffice についての記事はありません。
--------------------------------------------------------------------------------
ちょっと便利な検索ソフト(http://hanatyan.sakura.ne.jp/yybbs/read.cgi?no=117)
を使って、キーワード【OpenOffice】での検索結果(当サイト内・外の検索でも同じ)

　　ヒット件数　　　　検索対象サイト名　　　　検索結果のURL(短く変換しています)
     34,500,000 件  ■ウェブ全体から検索       http://tinyurl.com/n6vsfd
            265 件  ●msdn.microsoft.com/      http://tinyurl.com/luojvn
             40 件  わんくま同盟               http://tinyurl.com/mbx955
              9 件  moug モーグ                http://tinyurl.com/km67k9
              4 件  DOBON.NET                  http://tinyurl.com/m2hbhf
              3 件  Programing Library         http://tinyurl.com/ncs2kv
              3 件  アットマーク・アイティ     http://tinyurl.com/nkx7v3
              1 件  Visual Basic 中学校        http://tinyurl.com/m8njmm
              1 件  ★VBレスキュー(花ちゃん)   http://tinyurl.com/lcwa36
              1 件  pin's Laboratory           http://tinyurl.com/kwbpo4
              0 件  WinAPI Database for VB...  http://www.google.com/webhp?hl=ja
              0 件  Visual Basic Station       http://www.google.com/webhp?hl=ja
              0 件  C# と VB.NET の入門サイト  http://www.google.com/webhp?hl=ja
              0 件  HIRO's.NET                 http://www.google.com/webhp?hl=ja
--------------------------------------------------------------------------------

> 下記サイトで質問されている方と同じ方では？
> (マナー違反をされるとレスがつきません。)
> http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi?print+200905/09050021.txt

返答が遅れてしまいました。
すみません。質問内容がかぶってしまっていた為、削除を行いました。
以後気を付けます。

上記のその他の内容についても、まだ解決していないため、
わかり次第掲示致します。

>�@OpenOfficeインストールしたのみで、ほかに参照追加やコンポーネントの追加の必要があるのか
>�Aシート名の変更の仕方がわからない
この２点のうち、
�@については必要ないのかな？と自分自身の中では思っている段階です。
�Aに関しては解決しましたので、下記に掲載いたします。
===================================================================
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())
    'ここまで========================================================
===================================================================
上記の内容で、シート名の変更が行えました。

今後、マナー違反にならないよう気を付けます。