Sub Page_Load(sender As Object, e As EventArgs) T1.Text="AAAAAA" Dim oExcel As Object Dim oBook As Object Dim xlSheet As Object 'Start a new workbook in Excel. oExcel = CreateObject("Excel.Application") oBook = oExcel.Workbooks.Open(Server.MapPath(".")+"\wx.xls" ) xlsheet = obook.Worksheets(1)
T1.Text=xlsheet.Cells(3,2).Value oExcel.Workbooks.Close( ) xlSheet = Nothing oBook = Nothing oExcel.Quit() oExcel = Nothing GC.Collect() End Sub
T1.Text="AAAAAA"
Dim oExcel As Object
Dim oBook As Object
Dim xlSheet As Object 'Start a new workbook in Excel.
oExcel = CreateObject("Excel.Application")
oBook = oExcel.Workbooks.Open(Server.MapPath(".")+"\wx.xls" )
xlsheet = obook.Worksheets(1)
T1.Text=xlsheet.Cells(3,2).Value
oExcel.Workbooks.Close( )
xlSheet = Nothing
oBook = Nothing
oExcel.Quit()
oExcel = Nothing
GC.Collect() End Sub
Excel.Application myExcel = new Excel.Application ( ) ;
myExcel.Application.Workbooks.Add ( true ) ;//取值
string cellval = myExcel.Cells[3,2];
object oMissing =System.Reflection.Missing.Value;
Excel.Workbook oBook =oExcel.Workbooks.Add(oMissing);
Excel.Sheets oSheets=oBook.Worksheets;
Excel._Worksheet worksheet=(Excel._Worksheet)oSheets.get_Item(1);
worksheet.Name="Main";string s=worksheet.Cells[1,2]
选择Microsoft Excel,配置其属性,身份验证级别选“无”,身份标识选“交互式用户”,安全性页面,启动和访问均给everyone。
注意:查看当前进程中是否有excel进程存在,如果有且不能被结束,那么重启动计算机再次运行你的代码即OK。