Setting the name if a saved file in Excel.

[FreedomP]

I am trying to data in an excel file to store it. I am able to save a file but I cannot set the actual files name.

Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim path As String
'Start a new workbook in Excel
Set oExcel = CreateObject("Excel.Application&quot
Set oBook = oExcel.Workbooks.Add


'Add data to cells of the first worksheet in the new workbook
Set oSheet = oBook.Worksheets(1)
oSheet.Range("A1&quot.Value = First
oSheet.Range("A2&quot.Value = Last
oSheet.Range("A3&quot.Value = Gender
oSheet.Range("A4&quot.Value = Age
oSheet.Range("A5&quot.Value = Weight
oSheet.Range("A6&quot.Value = Feet
oSheet.Range("A7&quot.Value = Inches
oSheet.Range("A8&quot.Value = User
oSheet.Range("A9&quot.Value = Password
oSheet.Range("A10&quot.Value = Question
oSheet.Range("A11&quot.Value = Answer
path = "C:\MyFiles\Visual Basic 6.0\Excel Storage\" + User
'Save the Workbook and Quit Excel
oBook.SaveAs path
oExcel.Quit

 

[FreedomP]

Well nevermind, I just forgot to source my variables from their form.