座標形式によるセルの指定

書式１　Public Pos(ByVal sx As Integer, ByVal sy As Integer)
書式２　Public Pos(ByVal sx As Integer, ByVal sy As Integer, ByVal ex As Integer, ByVal ey As Integer)

sx , sy　：　対象セルの座標を指定。
ex , ey　：　対象セルの範囲設定を行う場合、終了の座標を指定。

Posクラスで、A1セルを(0,0)として座標でセル指定を行います。ExcelのR1C1参照形式といった方がピンと来るかもしれません。
（Posクラスは0オリジンなので気を付けよう）



セルの値を取得するサンプル

ExcelFile左のExcelファイルのセル値を取得します


Dim xlsCr As New ExcelCreator.XlsCreator

'ExcelFileを開く
If xlsCr.OpenBook("c:\セル設定.xls", "") > -1 Then

	'１番目のシートを操作対象とする
	xlsCr.SheetNo = 0

	'文字列を取得
	Dim strA1 As String = xlsCr.Pos(0, 0).Str
	'整数を取得
	Dim intA2 As Integer = xlsCr.Pos(0, 1).Long
	'実数を取得
	Dim dblA3 As Double = xlsCr.Pos(0, 2).Double

	'保存して閉じる
	xlsCr.CloseBook(True)

	MessageBox.Show("A1 = " & strA1 & vbCrLf & _
    	            "A2 = " & intA2.ToString & vbCrLf & _
        	        "A3 = " & dblA3.ToString, _
            	    "座標形式によるセルの指定")
End If

xlsCr.Dispose()

実行結果は以下の通り
結果

ページの先頭へ戻る

セルの値を設定するサンプル

実行前 実行後
ExcelFile
ExcelFile 結果
 
Dim xlsCr As New ExcelCreator.XlsCreator
Dim i As Integer

'ExcelFileを開く (読み書きOpen)
If xlsCr.OpenBook("c:\セル設定.xls", "") > -1 Then
	
	'１番目のシートを操作対象とする
    xlsCr.SheetNo = 0

    '整数をセット
     For i = 0 To 9
     	xlsCr.Pos(2, i).Long = i * 1000
     Next

    '保存して閉じる
    xlsCr.CloseBook(True)

End If
xlsCr.Dispose()
ページの先頭へ戻る

履歴

2011/09/24
公開
ページの先頭へ戻る
Loading