faq/6/188

最初の一セルだけ指示し、ある範囲のセルデータを一度に書き込みたい †

ページ	OpenOffice.org FAQの登録ページ
投稿者	Mr_Happy
分類	Q&A要望不具合メンテナンス
優先順位	緊急重要普通低
状態	質問回答中完了完了回答待ち議論中Issues重複却下保留再現不可
カテゴリー	インストール全体Writer ワープロCalc 表計算Impress プレゼンテーションDraw 図形描画Base データベースHTMLエディタMath 数式エディタLinux版StarSuiteその他
投稿日	2011-03-25 17:06:19 (金)
OS	Win7
依存するページ	•faq/6/184
バージョン	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不明

メッセージ †

お世話になります。お陰様で少しわかってきました。

今回の質問：

下記はあるファイルの２頁のセル E6:F8 のデータを 現在使用している０頁のセル G7:H9 に書き込むプログラムで、正常に動作しています。

これを受ける側で G7 のみ指示して書き込む方法はありませんか？

Sub Y_DocYomiKaki_Main()
   Dim oMyCmp As Object, oYuCmp As Object, oYuDoc As Object, oYuDat As Object
   
   oMyCmp = ThisComponent
   '既に開いている特定ブックの有無
   If Y_GetYuCmp(oYuCmp,"絵本.xlsx") = FALSE Then Exit Sub

   oYuDat = oYuCmp.Sheets(2).getCellRangeByName("E6:F8").getDataArray
   oMyCmp.Sheets(0).getCellRangeByName("G7:H9").setDataArray(oYuDat)
End Sub

インデックスで位置を指定してセル範囲を取得 †

はにゃ? (2011-03-25 23:27:01 (金))

次のような感じで、指定したセルアドレスを基点としてデータソースのセル範囲と同じサイズのセル範囲オブジェクトを取得して利用します。

Sub SetDataTest
 oDoc = ThisComponent
 oRange1 = oDoc.getSheets().getByIndex(0).getCellRangeByName("A1:C2")
 oDoc2 = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Array())
 oSheet = oDoc2.getSheets().getByIndex(0)
 
 SetDataToPosition(oRange1, oSheet, "B2")
End Sub


Sub SetDataToPosition(oRange1, oSheet, sDest)
 aRangeAddr = oRange1.getRangeAddress()
 oCell = oSheet.getCellRangeByName(sDest)
 aCellAddr = oCell.getCellAddress()
 oRange2 = oSheet.getCellRangeByPosition(_
   aCellAddr.Column, _
   aCellAddr.Row, _
   aCellAddr.Column + aRangeAddr.EndColumn - aRangeAddr.StartColumn, _
   aCellAddr.Row + aRangeAddr.EndRow - aRangeAddr.StartRow)
 oRange2.setDataArray(oRange1.getDataArray())
End Sub

ありがとうございます。完了です †

Mr_Happy (2011-03-27 16:18:57 (日))

はにゃ?　さん　ありがとうございます。
結局は自分で作るということなのですね。