Mendapatkan Value Tinggi (Height) Pada Row (A1) MS.Excel

PERSIAPAN
NO	REFERENCES			KETERANGAN
1.	Microsoft Excel 11.0 Object Library			Cara menambahkannya adalah pilih menu : Project-references. Office yg Digunakan MS 2003
PERSIAPAN			PROPERTIES
NO	CONTROL	PCS	NAME	VALUE	KETERANGAN
2.	TextBox	1	Text	""	kosongkan
3.	CommandButton	1	Caption	Height

Masukkan souce ini ke dalam Form :Dim xls As New Excel.Application Dim xlsw As Excel.Workbook Dim xlsws As Excel.Worksheet Private Sub Command1_Click() Set xlsw = xls.Workbooks.Open(App.Path & "\New Microsoft Excel Worksheet.xls") 'sheet yang ditampilkan xlsw.Sheets("Sheet1").Select 'Menampilkan Tinggi Pada Text1 Text1 = xlsw.Application.Cells(1, 1).Height xlsw.Close False xls.Quit Set xlsw = Nothing Set xls = Nothing End Sub