Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]webbrowser中操作EXCEL


  共有2560人关注过本帖树形打印复制链接

主题：[求助]webbrowser中操作EXCEL
帅哥哟，离线，有人找我吗？
sh16
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		[求助]webbrowser中操作EXCEL  发帖心情 Post By：2017/8/6 9:40:00 [显示全部帖子]

想请教下，狐表中操作EXCEL，webbrowser打开文件的时候，如何用代码启用EXCEL中的宏，或则可否在窗口中加个按钮，能执行EXCEL中的宏？


[此贴子已经被作者于2017/8/6 9:41:47编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sh16
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		  发帖心情 Post By：2017/8/6 12:33:00 [显示全部帖子]

我问的不是这个，这样会重新打开文件。我想要在webbrowser中打开文件的时候启用宏。或则在窗口中放个按钮可以调用EXCEL的宏。

 回到顶部
帅哥哟，离线，有人找我吗？
sh16
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		  发帖心情 Post By：2017/8/6 12:55:00 [显示全部帖子]

不行啊。提示无法运行“test”宏。可能是因为该宏在此工作簿中不可用，或者所有的宏都被禁用。

Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
oApplication.run("test")
 回到顶部
帅哥哟，离线，有人找我吗？
sh16
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		  发帖心情 Post By：2017/8/6 13:01:00 [显示全部帖子]

就是您给我的那个附件啊。EXCEL中随便建一个“test”的宏。我的好像无法上传附件啊
[此贴子已经被作者于2017/8/6 13:06:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
sh16
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		  发帖心情 Post By：2017/8/6 13:08:00 [显示全部帖子]

您试下我这个附件
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:webbrowser操作excel (1).rar
 回到顶部
帅哥哟，离线，有人找我吗？
sh16
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		  发帖心情 Post By：2017/8/6 13:15:00 [显示全部帖子]

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Users\user\Desktop\工作簿2.xlsm")
app.Visible = True
app.run (“test”)    
这样就可以。但是在webbrowser就会提示没有启用宏。不知道问题出在哪
 回到顶部
帅哥哟，离线，有人找我吗？
sh16
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		  发帖心情 Post By：2017/8/6 13:23:00 [显示全部帖子]

我把EXCEL选项中启用所有宏，WEBBROWSER中就可以调用。但这样不安全，我只是想在WEBBROWSER中打开的时候启用。

Dim App As New MSExcel.Application
Dim Wb As MSExcel.WorkBook = App.WorkBooks.Open("C:\Users\user\Desktop\工作簿2.xlsm")
app.Visible = True
app.run (“test”)
不在WEBBROWSER中运行，他会自动启用宏。我要的是这样的效果。
 回到顶部
帅哥哟，离线，有人找我吗？
sh16
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：83 积分：1482 威望：0 精华：0 注册：2013/5/6 0:54:00 		  发帖心情 Post By：2017/8/6 13:34:00 [显示全部帖子]

为了安全EXCEL中禁用了宏，每次打开都要选择是否启用宏。 我是想知道在webbrowser中是否能用代码自动启用宏。

另外还有一个问题：能否对一个已经打开了的EXCEL文件进行操作。连接到这个打开的文件？
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 6 次数据查询