create a new page, using OOobbs2/52 as a template.
Front page
Search
掲示板
Reload
Help
Browse Log
掲示板の使い方
OOo 掲示板３
OOo 掲示板２
OOo 掲示板
掲示板
雑談掲示板
New
List of pages
Recent changes
Backup
簡単ヘルプ
整形ルール
Start:
** [[OOobbs2/52]] [#pd71a8a8]
-''サマリ'': ドキュメント間でセル範囲のコピー
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[とうし]]
-''投稿日'': 2007-07-26 (木) 14:00:59
*** 質問 [#i3dc2237]
ひとつのドキュメントでセル範囲をコピーするのは、
oSheet.copyRange( aCellAddress, aCellRangeAddress )
で、できるのですが、違うドキュメント間でセル範囲をコピー...
方法が分かりません。
どなたか教えてください。
*** 回答 [#rf1e6945]
- dispatch で行います。DispatchHelper はフレームオブジェ...
コピー先ドキュメントのフレームの取得はいろいろあると思い...
Sub Main
Dim oDoc As Object, oSourceFrame As Object
oDoc = ThisComponent
oController = oDoc.CurrentController
oSourceFrame = oController.Frame
Dispatch(".uno:Copy",oSourceFrame)
oFrames = StarDesktop.getFrames()
For i = 0 To oFrames.getCount()-1
oDestFrame = oFrames.getByIndex(i)
If InStr(oDestFrame.Title,"無題2") Then
Dispatch(".uno:Paste",oDestFrame)
Exit For
End If
Next i
End Sub
sub Dispatch( sCommand As String, oLocFrame As Object)
dim dispatcher as object
dispatcher = createUnoService("com.sun.star.frame.Disp...
dispatcher.executeDispatch(oLocFrame, sCommand, "", 0,...
end sub
これでほかに問題になるのは、選択範囲がコピーされ、コピー...
コピー元とコピー先で特定のセルを選択する必要があります。...
フレームオブジェクトからドキュメントオブジェクトを取得す...
oDestDoc = oDestFrame.Controller.Model
-- [[はにゃ?]] &new{2007-07-26 (木) 14:58:33};
#comment
*** 感想，コメント，メモ [#x00201d4]
#comment
End:
** [[OOobbs2/52]] [#pd71a8a8]
-''サマリ'': ドキュメント間でセル範囲のコピー
-''環境'': Calc
-''状態'': 解決
-''投稿者'': [[とうし]]
-''投稿日'': 2007-07-26 (木) 14:00:59
*** 質問 [#i3dc2237]
ひとつのドキュメントでセル範囲をコピーするのは、
oSheet.copyRange( aCellAddress, aCellRangeAddress )
で、できるのですが、違うドキュメント間でセル範囲をコピー...
方法が分かりません。
どなたか教えてください。
*** 回答 [#rf1e6945]
- dispatch で行います。DispatchHelper はフレームオブジェ...
コピー先ドキュメントのフレームの取得はいろいろあると思い...
Sub Main
Dim oDoc As Object, oSourceFrame As Object
oDoc = ThisComponent
oController = oDoc.CurrentController
oSourceFrame = oController.Frame
Dispatch(".uno:Copy",oSourceFrame)
oFrames = StarDesktop.getFrames()
For i = 0 To oFrames.getCount()-1
oDestFrame = oFrames.getByIndex(i)
If InStr(oDestFrame.Title,"無題2") Then
Dispatch(".uno:Paste",oDestFrame)
Exit For
End If
Next i
End Sub
sub Dispatch( sCommand As String, oLocFrame As Object)
dim dispatcher as object
dispatcher = createUnoService("com.sun.star.frame.Disp...
dispatcher.executeDispatch(oLocFrame, sCommand, "", 0,...
end sub
これでほかに問題になるのは、選択範囲がコピーされ、コピー...
コピー元とコピー先で特定のセルを選択する必要があります。...
フレームオブジェクトからドキュメントオブジェクトを取得す...
oDestDoc = oDestFrame.Controller.Model
-- [[はにゃ?]] &new{2007-07-26 (木) 14:58:33};
#comment
*** 感想，コメント，メモ [#x00201d4]
#comment
Page:
