faq/5/76

calcマクロ †

ページ	OpenOffice.org FAQの登録ページ
投稿者	かず
分類	Q&A要望不具合メンテナンス
優先順位	緊急重要普通低
状態	質問回答中完了完了回答待ち議論中Issues重複却下保留再現不可
カテゴリー	インストール全体Writer ワープロCalc 表計算Impress プレゼンテーションDraw 図形描画Base データベースHTMLエディタMath 数式エディタLinux版StarSuiteその他
投稿日	2009-09-18 17:29:09 (金)
OS	winxp
依存するページ
バージョン	3.4.53.4.43.4.33.4.23.4.13.4.03.3.53.3.43.3.33.3.23.3.13.3.03.2.13.2.03.1.13.1.03.0.13.0.02.4.32.4.22.4.12.42.3.12.32.2.12.22.12.0.42.0.32.0.22.0.12.01.1.51.1.41.1.31.1.21.11.0.31.0.21.0.11.0Dev3.3Dev3.2Dev3.1Dev3.0不明

メッセージ †

calcマクロ †

kazu (2009-09-18 17:30:45 (金))

下記のエクセルマクロは、ボタンをおしたら
エクセルを終了させるプログラムです。
これを　ｃａｌｃで実行させたところエラーが
でました。

ｃａｌｃマクロでは　どのように記述するので
しょうか？

Sub ボタン1_Click()
Application.Quit
End Sub

Calcでは †

M.Kamataki (2009-09-18 21:13:52 (金))

以下のようなマクロではどうでしょうか。

sub CloseCalc
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:CloseDoc", "", 0, Array())
end sub

もっとVBAに近いコード †

M.Kamataki (2009-09-18 22:23:58 (金))

Application.Quit に近いのは、StarDesktop.terminate() でしょうか。ただ、このコードはドキュメントのライブラリに記述するとクラッシュしちゃいます。マイマクロのライブラリにすれば良いようです。以下を参考にしてください。

StarDesktop.terminate()で落ちる
http://hermione.s41.xrea.com/pukiwiki/pukiwiki.php?OOobbs%2F72

;; Application.Quit が実行できちゃうとCalcはクラッシュするかも。

vba編集の画面が表示されます。 †

かず (2009-09-24 08:44:13 (木))

ご回答のとおり、以下のプログラムを実行しましたが、vba編集画面が表示され、ｃａｌｃを終了できませんでしたが・・・・
sub CloseCalc
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:CloseDoc", "", 0, Array())
end sub

サンプルをご提供ください †

M.Kamataki (2009-09-24 12:03:09 (木))

コードを見比べたところ、同じようですね。

さて、コメントからは、どのように実行されたのかわかりません。現在、お試しのファイルをサンプルとして当ページに添付していただけますでしょうか。たぶん、直接ファイルをチェックさせていただいたほうがわかりやすいと思います。ご検討ください。

解決しました。 †

かず (2009-09-24 16:15:06 (木))

上記の方法で解決しました。

皆様　ありがとうございました