如何在网页上读取EXCEL文件的内容?急,高分!!!

bing71 2000-09-01 01:28:00
我在网页上插入了一个Office电子表格,如何将硬盘上的EXCEL文件输出到
这个表格,并读取其中的某些格的内容?请给源码!
...全文
1144 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
huntout 2000-09-01
  • 打赏
  • 举报
回复
需要匯入的 Web 畫面或文字檔中的資料必須位於 HTML 表格中,且必須與試算表在相同的 Web 伺服器或電腦上。如果 Web 畫面或文字檔是從其他 Web 伺服器或電腦儲存到區域電腦上的,則不能從該 Web 畫面或文字檔中匯入資料。

備註 資料總是從試算表的儲存格 A1 處開始匯入。在覆寫既存資料時,沒有小心警告資訊。

在設計視窗中,請確實啟動試算表。有關說明,請參閱設計程式的 [說明] 。


在試算表工具列上按一下 [屬性工具箱] 按鈕 。


如果 [匯入資料] 部份沒有展開,請按一下 [匯入資料] 欄。
在 [URL] 方塊中,要從中匯入 已鍵入HTML 表格的 Web 畫面或文字檔的地址或路徑。
Web 畫面的範例:http://example.microsoft.com/example.htm。

檔案路徑的範例:file://c:\windows\example.txt。

按一下 [立即匯入] 按鈕。


每次在瀏覽器中開啟試算表時,如果需要試算表根據 Web 畫面或文字檔中的最新資料進行更新整理,則請選取 [執行時從 URL 更新] 核取方塊。
備註

不能使用此方法匯入影像或控制項。只能匯入 HTML 表格。


本指令只適用於設計程式中,不適用於執行階段的瀏覽器中。
bing71 2000-09-01
  • 打赏
  • 举报
回复
我用“在浏览器中预览”运行市,出现以下错误,是怎么一回事。
Microsoft VBScript 运行时错误 错误 '800a01ad'
ActiveX 部件不能创建对象: 'createobject'
bing71 2000-09-01
  • 打赏
  • 举报
回复
SpreadSheet就是在FrontPage中的“普通”页面上选择“插入”-“Office电子表格”
生成的东西。
蝈蝈俊 2000-09-01
  • 打赏
  • 举报
回复
SpreadSheet 是个控件????没有用过。
bing71 2000-09-01
  • 打赏
  • 举报
回复
ghj1976,我并不是要将数据存入EXCEL中,我已在网页上插入SpreadSheet,
现在想把某一路径的EXCEL读入到这个SpreadSheet中。
蝈蝈俊 2000-09-01
  • 打赏
  • 举报
回复
下面虽然不是专门读取execl的范列,但也用到了这一部分,我就都贴出来了
Q: 如何用ASP建立图表

A: Here we go again with another sample for Excel, this time we will be using ASP to create a chart. You all asked me for it, now here is the solution. Thanks again for all your nice comments :)
现在我们针对EXCEL举另外一个例子,大家都询问如何用ASP建立图表的问题,以下就是解决方案

First we set the type of script
首先设定脚本类型
<%@ LANGUAGE="VBSCRIPT" %>

Make the object, and set the object to an Excelsheet
建立Excelsheet对象

Dim MyExcelChart
Set MyExcelChart = CreateObject("Excel.Sheet")

' show or dont show excel to user, TRUE or FALSE
是否让用户看到EXCEL表格,真或假
MyExcelChart.Application.Visible = True

' populate the cells
添EXCEL表格
MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10")
MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array("10", "10", "8", "27", "33", "37", "50", "54", "10", "10")
MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array("23", "3", "86", "64", "60", "18", "5", "1", "36", "80")
MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer"
MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape"
MyExcelChart.ActiveSheet.Cells(5,1).Value="Other"

' Select the contents that need to be in the chart
在EXCEL表中选择要在图表(CHART)中显示的数据
MyExcelChart.ActiveSheet.Range("b2:k5").Select

' Add the chart
加载图表(CHART)
MyExcelChart.Charts.Add
' Format the chart, set type of chart, shape of the bars, show title, get the data for the chart, show datatable, show legend
初始化图表(CHART),设定图表类型,棒图的形状,要显示的标题,取得要作图的数据,显示数据表,显示图表
MyExcelChart.activechart.ChartType = 97
MyExcelChart.activechart.BarShape =3
MyExcelChart.activechart.HasTitle = True
MyExcelChart.activechart.ChartTitle.Text = "Visitors log for each week shown in browsers percentage"
MyExcelChart.activechart.SetSourceData MyExcelChart.Sheets("Sheet1").Range("A1:k5"),1
MyExcelChart.activechart.Location 1
MyExcelChart.activechart.HasDataTable = True
MyExcelChart.activechart.DataTable.ShowLegendKey = True

' Save the the excelsheet to excelface
存入EXCEL表
MyExcelChart.SaveAs "c:\chart.xls"
%>

Now lets complete the HTML tags.
下面是HTML代码

<HTML>
<HEAD>
<TITLE>MyExcelChart</TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>

This completes yer ASP page, look below for the complete code of myexcelchart.asp
下面是源程序myexcelchart.asp的完整代码

<%@ LANGUAGE="VBSCRIPT" %>
<%
Set MyExcelChart = CreateObject("Excel.Sheet")

MyExcelChart.Application.Visible = True

MyExcelChart.ActiveSheet.Range("B2:k2").Value = Array("Week1", "Week2", "Week3", "Week4", "Week5", "Week6", "Week7", "Week8", "Week9", "Week10")
MyExcelChart.ActiveSheet.Range("B3:k3").Value = Array("67", "87", "5", "9", "7", "45", "45", "54", "54", "10")
MyExcelChart.ActiveSheet.Range("B4:k4").Value = Array("10", "10", "8", "27", "33", "37", "50", "54", "10", "10")
MyExcelChart.ActiveSheet.Range("B5:k5").Value = Array("23", "3", "86", "64", "60", "18", "5", "1", "36", "80")
MyExcelChart.ActiveSheet.Cells(3,1).Value="Internet Explorer"
MyExcelChart.ActiveSheet.Cells(4,1).Value="Netscape"
MyExcelChart.ActiveSheet.Cells(5,1).Value="Other"

MyExcelChart.ActiveSheet.Range("b2:k5").Select

MyExcelChart.Charts.Add
MyExcelChart.activechart.ChartType = 97
MyExcelChart.activechart.BarShape =3
MyExcelChart.activechart.HasTitle = True
MyExcelChart.activechart.ChartTitle.Text = "Visitors log for each week shown in browsers percentage"
MyExcelChart.activechart.SetSourceData MyExcelChart.Sheets("Sheet1").Range("A1:k5"),1
MyExcelChart.activechart.Location 1
MyExcelChart.activechart.HasDataTable = True
MyExcelChart.activechart.DataTable.ShowLegendKey = True

MyExcelChart.SaveAs "c:\chart.xls"

%>
<HTML>
<HEAD>
<TITLE>MyExcelChart</TITLE>
</HEAD>
<BODY>
</BODY>
</HTML>
蝈蝈俊 2000-09-01
  • 打赏
  • 举报
回复
你可以把execl视为数据库,用读数据库的方式读取

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧