一行ずつ値を取得してみた。

　Calc の見積りワークシートの各セル A11, A12, A13, A14, A15, A16 に入力した文字列を for next を使って取得してみた。

　こんな風に入力してみた。

　実行結果は以下のとおりで予想していた通りで問題はなし。

　コードは以下のとおり。

Sub Main
  Dim Sheet As Object
  Dim SheetName As String
  Dim Cell As Variant

  SheetName = "見積り"
  Doc = ThisComponent
  dim startgyou, endgyou, countgyou
  countgyou = 6-1
  startgyou = 11-1
  endgyou = startgyou + countgyou

  if Doc.Sheets.hasByName(SheetName) then
    Sheet = Doc.Sheets.getByName(SheetName)
    for gyou=startgyou to endgyou
      Cell = Sheet.getCellByPosition(3, gyou).String
      msgbox cell
    next gyou
  else
    msgbox "シート " & SheetName & " がありません。"
  end if

End Sub

countgyou と startgyou の値に -1 を付けているのは Calc では行と列をゼロから数えるため。

　次はこの取得した値を使って Base へアクセスだな。