Problems Automating Excel from Vb

[DvsStyle]

Firstly i should mention that Im relativey New to VB, and programming in general - Only starting in the last 12 months or so for school, So plz dont take anything for granted and act like i know nothing :)

Im making a program at the moment which should be able to create (or load) a database, then edit it from the users input - sort of like an order form type of thing.

I Used excel for my database - against the advice of my teacher who likes Access, but i was unable to use it at the time - and have been able to manage to get by so far, however now i keep getting a "ComException was unhandled" Error.

    Private Sub DBASEdefaultVals()
 
        For i = 2 To 61 Step 11
 
            xlSheet.Cells(i, 1).value = "Depot " + CStr(i)
            xlSheet.Cells(i + 1, 1).Value = "TYPE A"
            xlSheet.Cells(i + 2, 1).Value = "TYPE B"
            xlSheet.Cells(i + 3, 1).Value = "TYPE C"
            xlSheet.Cells(i + 4, 1).Value = "TYPE D"
            xlSheet.Cells(i + 5, 1).Value = "TYPE E"
            xlSheet.Cells(i + 6, 1).Value = "TYPE F"
            xlSheet.Cells(i + 7, 1).Value = "TYPE G"
            xlSheet.Cells(i + 8, 1).Value = "TYPE H"
            xlSheet.Cells(i + 9, 1).Value = "TYPE I"
            xlSheet.Cells(i + 10, 1).Value = "TYPE J"
 
        Next
 
        xlSheet.Cells(1, 1).Value = "DATE"
 
        'Figures out the number of days in the user indicated amount of years by subtracting the current date from the date as it will be in the specified amount of years
 
        TSDayRec = DateTime.Today.AddYears(YearsToLog) - DateTime.Today
        IntDayRec = TSDayRec.Days
 
         For i = 1 To IntDayRec
            xlSheet.Cells(1, i + 1).value = DateTime.Today.AddDays(i)
 
            For a = 1 To 10
                xlSheet.Cells(2 + a, i + 1).value = QtyDepot1(a)
                xlSheet.Cells(13 + a, i + 1).value = QtyDepot2(a)
                xlSheet.Cells(24 + a, i + 1).value = QtyDepot3(a)
                xlSheet.Cells(35 + a, i + 1).value = QtyDepot4(a)
                xlSheet.Cells(46 + a, i + 1).value = QtyDepot5(a)
 
            Next
        Next
 
 
 
    End Sub

I Only get the error in the underlined area. Before that it runs fine.


Also another small problem, i have a SaveFileBox where the user indicates a place to svae the file, and the database is saved at that location. Ive got teh box working fine, im jsut a bit lost of how to save the file at that spot.

    Private Sub SaveDatabase()
        SaveFileDialog1.ShowDialog()
        WhatFile = SaveFileDialog1.FileName
 
        If My.Computer.FileSystem.FileExists(WhatFile) Then
            intReply = MsgBox(WhatFile & " already exists. Would you like to overwrite it?", YesNoCancel Or Exclamation, "Overwrite File?")
            If intReply = 2 Then
                Exit Sub
            ElseIf intReply = 6 Then
                xlBook.SaveAs(WhatFile)        
            Label6.Text = "Successfully Saved"
            ElseIf intReply = 7 Then
                SaveDatabase()
            End If
 
        End If
    End Sub

The file doesnt save in the spot inicated - or as far as i can tell at all .. I dont think the underlined part uses the correct syntax, but i dont know what else it could be.. Any Ideas?

[DvsStyle]

Sorry to Pop so many questions on you at once, but in the part of my code where i try write the values in Excel, it has to enter hundreds - if not thousands - of values into it, depending on the size of the variable IntDayRec. I was wondering if anyone knew a more efficiant way to achieve this than teh couble loop im using at the moment, as im sure having an hour long wait wouldnt be appealing to anyone using a program...

For i = 1 To IntDayRec
            xlSheet.Cells(1, i + 1).value = DateTime.Today.AddDays(i)
 
            For a = 1 To 10
                xlSheet.Cells(2 + a, i + 1).value = QtyDepot1(a)
                xlSheet.Cells(13 + a, i + 1).value = QtyDepot2(a)
                xlSheet.Cells(24 + a, i + 1).value = QtyDepot3(a)
                xlSheet.Cells(35 + a, i + 1).value = QtyDepot4(a)
                xlSheet.Cells(46 + a, i + 1).value = QtyDepot5(a)
 
            Next
 
        Next

Sorry agani for dumping so much here and seeming to push you into it, but ive only got another week or so to finish this and im totally stumped...

[DvsStyle]

I Just realised My probelm with the saving of the file, was a total noob mistake that resulted totally from not looking over it properly...

So Feel free to point and laugh at me for that stupid mistake....

Ive fixed it now so thats good noone needs tos help me witht hat anymore.

But my 1st - major - problem and the one in the 2nd post are still bothering me if anyone can help.

Please?

Thanks