Excel ( Menampilkan Value Pada Kolom A1 )

Persiapan :
- Microsoft Office 2003
- 1 command button ( Name: Value )
- 1 textbox ( Name: text1 )

masukkan souce ini ke dalam form :

'keterangan
'menambahkan micosoft excell object
'caranya :
'buka Project-->References--> beri tanda centang pada microsoft excel

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")

'memilih sheet yang digunakan
xlsw.Sheets("Sheet1").Select

'menampilkan cell Text1.text
Text1.text = xlsw.Application.Cells(1, 1).Value

xlsw.Close False
xls.Quit
Set xlsw = Nothing
Set xls = Nothing

End Sub