タイトル : OpenOffice.org (OOo) の操作について 投稿日 : 2009/05/27(Wed) 15:43 投稿者 : ぴよこ
いつも参考にさせてもらっています。 今回、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()) ====== 以上です |