OpenOffice VBAの練習 セルのコピー

　仕事上、エクセルのVBAを使えたらもっと効率が上がるのになあと思うことがしばしばあって、VBAを覚えたいなあと思っています。

　しかしながら、いかんせん生活費に余裕がなく、お高いExcelを購入するのが若干厳しいため、OpenOfficeを使ってみることにしました。

　とりあえず、一枚目のシートのセルの内容を二枚目のシートにコピーするスクリプトを書いてみました。

Sub Main
	Dim Doc As Object
	Dim Sheet1 As Object
	Dim Sheet2 As Object
	Dim Cell1 As Object
	Dim Cell2 As Object
	Dim Str As String
	
	Doc = StarDesktop.CurrentComponent

	Sheet1= Doc.Sheets(0)
	Sheet2= Doc.Sheets(1)
	
	For i = 0 To 1000
	
		For j = 0 To 1000
		
			Cell1 = Sheet1.getCellByPosition(i,j)
			Str = Cell1.String
			Cell2 = Sheet2.getCellByPosition(i,j)
			Cell2.String = Str
			
		Next j
		
	Next i

End Sub