asp.net 读取Excel数据

asp教程.net 读取excel数据

imports microsoft.office.interop

partial class _excel
inherits system.web.ui.page

protected sub btnrexcel_click(byval sender as object, byval e as system.eventargs) handles btnrexcel.click
dim strpath as string = file1.postedfile.filename
if strpath = "" then
me.response.write("请选择要导入的excel数据文件！")
else

dim excelfilepath as string = strpath
dim myexcel as excel.application = new excel.applicationclass() '创建一个excel对象
dim omissing as object = system.reflection.missing.value
myexcel.application.workbooks.open(excelfilepath, omissing, omissing, omissing, omissing, omissing, omissing, omissing, omissing, omissing, omissing, omissing, omissing, omissing, omissing)
dim mybook as excel.workbook = myexcel.workbooks(1) '定义一个工作表组
dim mysheet as excel.worksheet = ctype(mybook.worksheets(cint(textbox3.text)), excel.worksheet) '定义一个工作表

dim r as excel.range = ctype(mysheet.cells(cint(textbox1.text), cint(textbox2.text)), excel.range)

me.response.write("excel中第" & textbox1.text & "行 第" & textbox2.text & "列的值：" & (r.value).tostring)
excelgc(myexcel, mybook, mysheet, r)

end if

end sub

'关闭excel进程

private shared sub excelgc(byref myexcel as excel.application, byref mybook as excel.workbook, byref mysheet as excel.worksheet, byref r as excel.range)
mybook.close(false, type.missing, type.missing)
myexcel.quit()
system.runtime.interops教程ervices.marshal.releasecomobject(r)
system.runtime.interopservices.marshal.releasecomobject(myexcel)
system.runtime.interopservices.marshal.releasecomobject(mysheet)
system.runtime.interopservices.marshal.releasecomobject(mybook)
mysheet = nothing
mybook = nothing
myexcel = nothing
r = nothing
gc.collect()
end sub
end class

%>