[VB6,Excel] Excel bestand openen in Visual Basic 6.0

[NickyVermeersch]

Het is de bedoeling dat mijn VB App een Excel bestand kan openen, de cel uitlezen, en dan opnieuw opslaan (zonder dat Excel zichtbaar opgestart wordt)

Echter geeft hij mij de volgende fout :

code:

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

Private Sub cmdOpen_Click()
'rij , kolom
Text1.Text = xlsheet.Cells(2, 1)
Text2.Text = xlsheet.Cells(2, 2)

xl.ActiveWorkbook.Close False, "c:\test\Bestand.xls"
xl.Quit
End Sub

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

xl.ActiveWorkbook.Close False, "c:\test\Bestand.xls"
xl.Quit
End Sub

Private Sub Form_Load()
    Set xlwbook = xl.Workbooks.Open("C:\test\Bestand.xls")
    Set xlsheet = xlwbook.Sheets.Item(1)
End Sub

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

[TeeDee]

En als je je exacte foutmeldingen eens door google haalt? Dan krijg ik in ieder geval aardig wat resultaten. (Ik vermoed dat je het Worksheet nog moet declareren)

[sopsop]

xlwbook.Sheets.Item(1)

Is die items collectie niet 0-based? Dus dat dit beter werkt?

xlwbook.Sheets.Item(0)