hi
I am just a starter in programming.
i am trying to read and write data to Excel from asp.net
i am able to read a particular cell from my Excel sheet but i am not able to write and save into it.
any help would be appreciated..
thanks.
*************** ***********My Code*********** ***********
Dim MyExcel As Microsoft.Offic e.Interop.Excel .Application
Dim MyWorkbook As Microsoft.Offic e.Interop.Excel .Workbook
Dim MySheet As Microsoft.Offic e.Interop.Excel .Worksheet
Dim MyCell As Microsoft.Offic e.Interop.Excel .Range
MyExcel = New Microsoft.Offic e.Interop.Excel .Application
MyExcel.Workboo ks.Open("C:\Ine tpub\wwwroot\Ad dNewPromotion\E xcel1.xls", , False)
MyWorkbook = MyExcel.Applica tion.ActiveWork book
MySheet = MyWorkbook.Acti veSheet
Label1.Text() = MySheet.Cells.I tem(1, 1).value
MySheet.Cells.I tem(2, 2).value = "madhu"
MyExcel.ActiveW orkbook.SaveAs( "C:\Inetpub\www root\AddNewProm otion\Excel2.xl s")
MyExcel.ActiveW orkbook.Close()
MyExcel = Nothing
MyWorkbook = Nothing
MySheet = Nothing
*************** *******End***** *************** **************
I am just a starter in programming.
i am trying to read and write data to Excel from asp.net
i am able to read a particular cell from my Excel sheet but i am not able to write and save into it.
any help would be appreciated..
thanks.
*************** ***********My Code*********** ***********
Dim MyExcel As Microsoft.Offic e.Interop.Excel .Application
Dim MyWorkbook As Microsoft.Offic e.Interop.Excel .Workbook
Dim MySheet As Microsoft.Offic e.Interop.Excel .Worksheet
Dim MyCell As Microsoft.Offic e.Interop.Excel .Range
MyExcel = New Microsoft.Offic e.Interop.Excel .Application
MyExcel.Workboo ks.Open("C:\Ine tpub\wwwroot\Ad dNewPromotion\E xcel1.xls", , False)
MyWorkbook = MyExcel.Applica tion.ActiveWork book
MySheet = MyWorkbook.Acti veSheet
Label1.Text() = MySheet.Cells.I tem(1, 1).value
MySheet.Cells.I tem(2, 2).value = "madhu"
MyExcel.ActiveW orkbook.SaveAs( "C:\Inetpub\www root\AddNewProm otion\Excel2.xl s")
MyExcel.ActiveW orkbook.Close()
MyExcel = Nothing
MyWorkbook = Nothing
MySheet = Nothing
*************** *******End***** *************** **************
Comment