我是用datagrid来显示excel的数据,不知道合不合你用,代码如下: '读取excel 数据,path是路径,datagrid是datagrid Dim path As String = "excel\专业表.xls" '例子:getexcel(path, Me.DataGrid1) '调用getexcel函数,获取excel表的内容 'path:C:\\Documents and Settings\Administrator\桌面\专业表.xls ;datagrid :DataGrid1 Public Shared Function getexcel(ByRef path As String, ByRef datagrid As DataGrid) As Boolean Dim source As String = path 'execel文件的完整路径 Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + source + ";Extended Properties=Excel 8.0" Dim objConn As New Data.OleDb.OleDbConnection(sConnectionString) objConn.Open() Dim objCmdSelect As New Data.OleDb.OleDbCommand("SELECT * FROM [Sheet1$]", objConn) Dim objAdapter1 As New Data.OleDb.OleDbDataAdapter() objAdapter1.SelectCommand = objCmdSelect Dim objDataset1 As New Data.DataSet() objAdapter1.Fill(objDataset1, "Sheet1") datagrid.DataSource = objDataset1 datagrid.DataBind() objConn.Close() End Function
其实这中系统网上也有较多的现成代码,就不知道是不是你需要的。
请教大侠:如何将Excel文档倒入到html页面中。读出excel的中对应的数据。
我之前在一个项目中也尝试将word直接嵌入web页面,但是这样基本不好实现,所以还是建议楼主在页面生成好以后最后导出到word中。
'例子:getexcel(path, Me.DataGrid1) '调用getexcel函数,获取excel表的内容
'path:C:\\Documents and Settings\Administrator\桌面\专业表.xls ;datagrid :DataGrid1
Public Shared Function getexcel(ByRef path As String, ByRef datagrid As DataGrid) As Boolean
Dim source As String = path 'execel文件的完整路径
Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + source + ";Extended Properties=Excel 8.0"
Dim objConn As New Data.OleDb.OleDbConnection(sConnectionString)
objConn.Open()
Dim objCmdSelect As New Data.OleDb.OleDbCommand("SELECT * FROM [Sheet1$]", objConn)
Dim objAdapter1 As New Data.OleDb.OleDbDataAdapter()
objAdapter1.SelectCommand = objCmdSelect
Dim objDataset1 As New Data.DataSet()
objAdapter1.Fill(objDataset1, "Sheet1")
datagrid.DataSource = objDataset1 datagrid.DataBind()
objConn.Close()
End Function
WebOfficehttp://www.goldgrid.com/Products/Demo/iWebOffice2006Ocxasp/DocumentList.asp
http://www.dianju.cn/weboffice/html/weboffice.html