ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 3174|回复: 14

[分享] 另类Excel网络化:以Excel为计算核心

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-2-21 17:48 | 显示全部楼层 |阅读模式
本帖最后由 lilyhcn1 于 2019-2-21 20:26 编辑

一般的Excel网络化是指把数据传到数据库,再用网页或其它方式展示出来。
比如我做的 通用数据查询系统

也有朋友想把Excel中写好的公式用起来,实现网络查询。效果如以下网页:
http://www.lzmath.cn/jisuan/


我试了一下,发现是可行的,原理如下:
1. 用网页收集Excel中的变量,并传到python对应的web服务器;
2. python 用com方法读取Excel,并写入变量,再把Excel计算的值返回;
3. 网页显示返回的值。

做了一下示例,学校老师做的教学周数计算器
教学周数计算器v2.0.zip (103.04 KB, 下载次数: 54)




截图1550743010.png

评分

2

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-23 06:58 来自手机 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
我觉得论坛里大神最喜欢这种网络化了,看来我想多了。
本来只是一个样例,以后可以做到任意Excel上传,自动生成网页,那以后一般人只要会写Excel公式就能做网站了。

TA的精华主题

TA的得分主题

发表于 2019-2-23 08:48 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
可以有簡易的逐步實例可以參考嗎?

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-23 08:56 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
AmoKat 发表于 2019-2-23 08:48
可以有簡易的逐步實例可以參考嗎?

代码没有写完,没有做到通用化,这个帖子只是证明这种思路是可行的。
对于一般的用户来说,在原有表格上新增一张工作薄,在这张表上规定输入与输出。
上表图中的C列就是输入,M列就是输出。

评分

1

查看全部评分

TA的精华主题

TA的得分主题

发表于 2019-2-23 13:55 | 显示全部楼层
lilyhcn1 发表于 2019-2-23 08:56
代码没有写完,没有做到通用化,这个帖子只是证明这种思路是可行的。
对于一般的用户来说,在原有表格上 ...

可寫個簡單的程序步驟讓我們學習一下,感恩。

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-23 14:25 来自手机 | 显示全部楼层
这其实与excel已经一点关系都没有了,只与Python语言及网页有关,要是有兴趣的话,加我QQ53053067

TA的精华主题

TA的得分主题

发表于 2019-2-23 23:57 | 显示全部楼层
  1. <%

  2. on error resume next
  3. suorcefile=server.mappath("sample.xls")
  4.        
  5. Set objExcelApp = CreateObject("Excel.application")'建立excel对象
  6. objExcelApp.Application.Visible = false

  7. objExcelApp.WorkBooks.Open(suorcefile)'读取文件
  8. set objExcelBook = objExcelApp.ActiveWorkBook
  9. set objExcelSheets = objExcelBook.Worksheets
  10. set objExcelSheet = objExcelBook.Sheets(1)

  11. <font color="#ff0000">objExcelSheet.Cells(6,1).Value=1000'写入数据

  12. response.write objExcelSheet.Cells(6,3).Value'读取公式</font>

  13. objExcelBook.Save

  14. Set objExcelSheet = Nothing
  15. Set objExcelSheets = Nothing
  16. Set objExcelBook = Nothing

  17. objExcelApp.Quit ' 保存并退出:释放excel文件
  18. Set objExcelApp = Nothing


  19. %>
复制代码
asp 网页测试代码, 要配置iis服务器 , 给予 交互用户 excel组件 启动 和 文件夹写入的权限  。

TA的精华主题

TA的得分主题

发表于 2019-2-24 10:30 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
  1. objExcelSheet.Cells(6,1).Value=4321 '写入数据
  2. objExcelBook.Save
  3. response.write objExcelSheet.Cells(6,2).Value'读取公式
复制代码
  1. Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
  2.    Call testa
  3. End Sub
复制代码
  1. Sub testa()
  2.    Cells(6, 2).Value = Cells(6, 1).Value / 5
  3.    MsgBox "hello"
  4. End Sub
复制代码
asp 与 excel 宏 互动的例子,取巧 用了 beforesave 事件。
不知 如何 直接调用 某个 sub?

test.rar (7.81 KB, 下载次数: 11)

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-2-24 11:22 | 显示全部楼层
本帖最后由 lilyhcn1 于 2019-2-24 11:26 编辑

这段时间想进行的项目太多,实在没法再研究一个东西,对你做的东西。我提几点建议:
1. 已经开始学写代码了,就不要再写ASP这种老掉牙的东西了,PHP,Python都是主流语言。
2. 我这里用Python主要是考虑,不用配置文件的安全属性,ASP,PHP等直接Com操作文件非主流,不建议。

TA的精华主题

TA的得分主题

发表于 2019-2-24 12:10 | 显示全部楼层
VBA  也是老掉牙了 ,业余的 没有项目的 只能学点这种 非主流语言。
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关闭

最新热点上一条 /1 下一条

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-4-20 04:14 , Processed in 0.034983 second(s), 11 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表