How to connect vb6 to excel worksheet

Please send me any example for connecting vb6 to excel work sheet , Just I am creating a application for college attendance that is periods wise so I like to use this ms excel 2003 or 2007

Please help me

What have you done so far?

Hello
Just I am creating a application using students period attendance so I like to connect vb6 to excel
Help me….

Yes, we understand that, but what have you done so far?

Please help me I don’t know well about vb6

We want to help you, but you are not answering our question: what have you done so far?

I created a vb6 form what I want now that contains number of check box, now I link that check box to excel worksheet, each check box to each Colum

Okay... your starting point will be to study our Automating Excel from VB 6.0 (http://www.xtremevbtalk.com/showthread.php?t=135815) tutorial. This will begin to give you some ideas about the sort of code required to interact between VB6 and Excel.

Good luck!

Any sample files have

hi

I got the code for link vb6 to excel
Now I am using that code but it is creating new file always, so I want to save that data in one file always , please answer me.


Option Explicit
'Add a reference to MS Excel xx.0 Object Library
Private moApp As Excel.Application
Private moWB As Excel.Workbook

Private Sub Check1_Click()
If Check1.Value = vbChecked Then
Check1.Caption = "19"
Check1.Value = "1"
ElseIf Check1.Value = vbUnchecked Then
Check1.Caption = "A"
Check1.Value = "0"
End If
End Sub

Private Sub Form_Load()
Check1.Caption = "A"
Set moApp = New Excel.Application
moApp.Visible = False
End Sub

'Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
' If TypeName(moWB) <> "Nothing" Then
' moWB.Close True, "C:\Hello.xls"
' End If
' Set moWB = Nothing
' If TypeName(moApp) <> "Nothing" Then
' moApp.Quit
' End If
' Set moApp = Nothing
'End Sub

Private Sub Command2_Click()
Set moWB = moApp.Workbooks.Add
moApp.Visible = True
moWB.Sheets("Sheet1").Cells(1, 2).Value = (Check1.Value)
moWB.Sheets("Sheet1").Cells(1, 1).Value = (Text1.Text)
'moWB.Sheets("Sheet1").Cells(1, 1).Value = moWB.Sheets("Sheet2").Cells(1, 1).Value
End Sub
Private Sub Command1_Click()
End
End Sub

I got the code for link vb6 to excel
Now I am using that code but it is creating new file always, so I want to save that data in one file always , please answer me.

Instead of using the Workbooks.Add method, which creates a new workbook each time, you need to use the Workbooks.Open method, which opens an existing workbook.