Hi!
I have done solution for this code. but If excel application is not running it give error any idea.
Code:
Private Sub XlExport()
Dim objExcel As Excel.Application = System.Runtime.InteropServices.Marshal.GetActiveObject("Excel.Application")
Dim objWorkBook As Excel.Workbook
Dim sCelR, sCelC As Integer
Dim totalWorkBooks As Integer = objExcel.Workbooks.Count
Dim ActiveBookIndex As Integer = objExcel.ActiveWindow.Index
objWorkBook = objExcel.Workbooks(1)
Dim FullName As String = objWorkBook.FullName
Dim ObjWorkSheet As Excel.Worksheet = objWorkBook.Worksheets.Item(1)
Dim OnlyName As String = objWorkBook.Name
objExcel.ActiveWindow.Activate()
sCelR = objExcel.ActiveCell.Row
sCelC = objExcel.ActiveCell.Column
'MsgBox(sCelC & " " & sCelR)
objExcel.Cells(sCelR, sCelC).Value = TextBox1.Text
objExcel.Cells(sCelR, sCelC + 1).Value = TextBox2.Text
objExcel.Cells(sCelR, sCelC + 2).Value = ComboBox1.Text
'worksheet.Range("A6").Activate()
objExcel.Cells(sCelR + 1, sCelC).activate()
objWorkBook.Save()
any solution?