半点优化网 http://www.bdxc.net/
当前位置首页 > 网站技术问题> 正文

怎么把EXCEL表格直接显示在网页中,而且不要复制,把表格放在同个文件夹里就可以显示出来的?

2022-08-09 07:34:48 暂无评论 203 网站技术问题 数字   小数   写入

如果是同一个工作薄,可以在一个表里输入等于号,再点另一个表的单元格,然后回车,就可以引用那个表的数据了。同一个工作薄里的数,是时实更新的。如果不是在一个工作薄,一般要同时打开两个工作薄,在一个工作薄里输入公式,如输入等于号,再点另一个工作薄里的单元格回车,就跨工作薄引用数据了。

1、在第二个EXCEL的菜单栏【数据】→【导入外部数据】→【导入数据】.

2、在弹出的对话框里选择第一个EXCEL文件,然后选择需要同步的工作簿(Sheet1或Sheet2等).

3、点确定导入数据.

4、当第一个EXCEL文件发生更改保存后,打开第二个EXCEL文件,在菜单栏【数据】→【刷新数据】.

这样就可以了

按键精灵在读中的数字再写到网页的表格中,如果数字是0或者0开头的小数则不能正确写入,会把0省略掉?

经测试已成功,如果这个还不能满足要求,可以加我,我们慢慢切磋~~~~补充:又查了1次,果然是数据类型问题,你把EXCEL中的那个表格的单元格格式改为文本形式,用你自己的脚本就可以解决,但是用我的,你就不用去改单元格的数据类型了,呵呵~

脚本如下

Call Plugin.Office.OpenXls(C:\测试.xls)

//下面这句是向Excel文档工作表(1)单元格(1, 2)读出内容存入(Text)变量

Text =Plugin.Office.ReadXls(1, 1, 2)

//没办法,不知道为什么没0,我估计可能是数据类型的问题

//采取另1种方法来弥补

//判断第1位是否为. 如果是就添加1个0在.前面

Dim Char

Char=Mid(Text,1,1)

If Char=. Then

Text=Replace(Text,.,0.)

End if//下面这句是关闭Excel文档工作表

Call Plugin.Office.CloseXls()

Call Plugin.Web.Bind(WQM.exe)

Call Plugin.Web.Go(www.baidu.com)

Call Plugin.Web.HtmlInput(Text,id:kw)

Call Plugin.Web.HtmlClick(id:su)

猜你喜欢