Excell Working On Visual Basic


‘to the microsoft excel ‘xx’ object library.

‘you need two text boxes and two command buttons
‘on the form, an excel file in c:\book1.xls

Dim xl As New Excel.Application
Dim xlsheet As Excel.Worksheet
Dim xlwbook As Excel.Workbook

Private Sub Command1_Click()
‘the benifit of placing numbers in (row, col) is that you
‘can loop through different directions if required. I could
‘have used column names like “A1? ‘etc.

Text1.Text = xlsheet.Cells(2, 1) ‘ row 2 col 1
Text2.Text = xlsheet.Cells(2, 2) ‘ row 2 col 2

‘don’t forget to do this or you’ll not be able to open
‘book1.xls again, untill you restart you pc.
xl.ActiveWorkbook.Close False, “c:\book1.xls”
xl.Quit
End Sub

Private Sub Command2_Click()
xlsheet.Cells(2, 1) = Text1.Text
xlsheet.Cells(2, 2) = Text2.Text
xlwbook.Save

‘don’t forget to do this or you’ll not be able to open
‘book1.xls again, untill you restart you pc.
xl.ActiveWorkbook.Close False, “c:\book1.xls”
xl.Quit
End Sub

Private Sub Form_Load()
Set xlwbook = xl.Workbooks.Open(“c:\book1.xls”)
Set xlsheet = xlwbook.Sheets.Item(1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Set xlwbook = Nothing
Set xl = Nothing
End Sub

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s