怎样用html读取excel数据

luanjinling · 发表于 2009-8-19 12:21

已经存在一个excel文件（比如“统计表.xls”），怎样在网页中读取并显示该文件中的数据呢？请高手赐教。

smhf_6 · 发表于 2009-8-19 13:00

这个问题太大了，还是先到http://club.excelhome.net/thread-377077-1-1.html这里（网页分析不求人）学习，先了解一下internet对象模型的相关概念，再切入您的主题。
或者搜索一下，有现成的产品。

hupanshan · 发表于 2009-8-19 13:12

这不是Excel+VBA的问题,网页上能放的东西太多了,放的方法也很多,比如,把一个Excel表"另存为"就可以做成Html格式

luanjinling · 发表于 2009-8-20 08:26

谢谢回复！—怎样给回复者打分呀？我想以分数谢你们和继续给我指教的人。
其实，我所提问题的真实意思是：
在网页中简单控制Excel（严格地说，不能称为控制。因为前者只是读取后者的数据，并不对后者进行任何改变），而不是把Excel存成html形式，也不是在Excel内部对网页进行分析，诚如3楼所说——更不是Excel+VBA的问题。就是这么一个问题——在html内部，读取Excel里的数据。
——如果我们的Excel精英们解决不了这个问题，那么html的设计者就更解决不了啦。
请高手们继续回贴指教，谢谢了！

hupanshan · 发表于 2009-8-20 08:46

——如果我们的Excel精英们解决不了这个问题，那么html的设计者就更解决不了啦。
这句话是不正确的.对于大部分Excel使用者(一般够不上精英),一般不会熟悉网页调用Excel数据,而对网页制作者,这应该属于常用技能.目前这个栏目是Excel+VBA的栏目,不乏利用Excel+VBA读取网页的高手,但反过来从网页调用Excel数据,就不是这个栏目所涉及的范围,估计难找这方面的高手.

luanjinling · 发表于 2009-8-20 14:26

告诉大家一个好消息，我已经从网上搜到这个问题的解决办法了！代码不长，感觉很爽！为了记忆调用，我把它写进了博客里（别是宣传自已的博客吧？！呵呵，这好办，看一下博客的写作时间及其上下文章的写作时间。），
最终还是要谢谢大家！

stqiao_di · 发表于 2010-4-20 11:07

你博客地址是？

luanjinling · 发表于 2010-7-30 18:41

http://luanjinling.blog.163.com/ ... 542820097202435936/

HHAAMM · 发表于 2010-7-30 19:02

浏览器访问本地目录是受限的，所以这种方式价值不大
给你个JavaScript的
<html>
<head>
<title>Untitled Page</title>
</head>
<script language="javascript" type="text/javascript">
function importXLS(fileName)
{
objCon = new ActiveXObject("ADODB.Connection");
objCon.Provider = "Microsoft.Jet.OLEDB.4.0";
objCon.ConnectionString = "Data Source=" + fileName + ";Extended Properties=Excel 8.0;";
objCon.CursorLocation = 1;
objCon.Open;
var strQuery;
var strSheetName = "Sheet1$";
var rsTemp = new ActiveXObject("ADODB.Recordset");
rsTemp = objCon.OpenSchema(20);
while(!rsTemp.EOF)
{
if (rsTemp("TABLE_TYPE")=="TABLE")
{
//alert(rsTemp("TABLE_NAME"));
rsExcel = new ActiveXObject("ADODB.Recordset");
strQuery = "SELECT * FROM [" + rsTemp("TABLE_NAME") + "]";
rsExcel.ActiveConnection = objCon;
rsExcel.Open(strQuery);
mm=rsTemp("TABLE_NAME")+"表内容<br><table border='1' cellspacing='0' cellpadding='0'>"
for(i = 0;i<rsExcel.Fields.Count;++i)
{
mm=mm+"<td>"+rsExcel.Fields(i).name+"</td>";
}
while(!rsExcel.EOF)
{
mm=mm+"<tr>"
for(i = 0;i<rsExcel.Fields.Count;++i)
{
mm=mm+"<td>"+rsExcel.Fields(i).value+"</td>";
}
mm=mm+"</tr>"
rsExcel.MoveNext;
}
}
document.write(mm+"</table><br>")
mm=""
rsExcel = null
rsTemp.MoveNext;
}
objCon.Close;
objCon =null;
rsExcel = null;
}
</script>
</head>
<body>
<input type="file" id="f" />
<input type="button" id="b" value="显示工作簿内容" onClick="if(f.value=='')alert('请选择xls文件');else importXLS(f.value)" />
</body>
</html>

HHAAMM · 发表于 2010-7-30 19:06

复制上面代码到记事本，另存为xx.html
双击xx.html这个文件，浏览器要同意阻止的内容

		自动登录	找回密码
密码			免费注册