日々のDraft

回答原案集

教えてgoo Q6315139

2010-11-13 05:39:02 | 教えてgoo

http://oshiete.goo.ne.jp/qa/6315139.html

以下のようなコードのどちらかで出来ると思ったが、出来なかった。

Sub Main() Dim aProps(0) As new com.sun.star.beans.PropertyValue StarDesktop.loadComponentFromURL(ConvertToURL("C:\hoge.csv","_self", 0, aProps) End Sub

Sub Main() Dim aProps(0) As new com.sun.star.beans.PropertyValue Dim XComponent As Object Set XComponent = StarDesktop.loadComponentFromURL(ConvertToURL("C:\hoge.csv","_blank", 0, aProps) ThisComponent.getSheets().insertByName("abc",XComponent.getSheets().getByName("Sheet1")) End Sub

マクロの記録でやろうとすると、追加用のダイアログを表示するところまでしかやってくれないようだ。仕方ない。悔しいけど検索だ。

どうも一旦リンクして外す、みたいなことをやっているようだが、あまりよく理解出来ているわけではないので回答するかどうかはわからない

XSheetLinkableがそもそもdeprecatedなんだが、代わりにどうしたら良いのだろう