'Why are you not using the Excel object library reference?
[b]Private[/b] xlsQuotation As [b]Excel.Application[/b]
'I take it you've got code already to set the object?
[b]Private Sub form_activate()
me.show
set xlsQuotation = new Excel.Application
End Sub[/b]
Private Sub cmd_Make_Click()
' The above variable is xlsQuotation, yet the below code
' references a "xls" named Excel object variable...
[b]xlsQuotation.[/b]Workbooks.Add
[b]xlsQuotation.[/b]Workbooks(1).Activate
'You haven't referenced the Excel object that the sheet is part of
[b]xlsQuotation.[/b]Worksheets("Sheet1").Cells(1, 1).Value = "Sl. No"
'Ditto Here
[b]xlsQuotation.[/b]ActiveWorkbook.SaveAs App.Path & _
"\Excel\" & strFileName, xlExcel9795
[b]xlsQuotation.[/b].ActiveWorkbook.Close
End Sub
Private Sub Form_Unload(Cancel As Integer)
[b]xlsQuotation.[/b].Quit
'You haven't put the object name in here
Set [b]xlsQuotation[/b] = Nothing
End Sub