WebBrowser中打开EXCEL表 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → WebBrowser中打开EXCEL表

共有12409人关注过本帖树形打印复制链接主题：WebBrowser中打开EXCEL表

实话实说

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2649 积分：19384 威望：0 精华：1 注册：2008/9/12 9:19:00

Post By：2011/1/18 18:09:00 [只看该作者]

看过,还是不会

czy

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/1/18 18:45:00 [只看该作者]

如果打开Excel文件的同时切换到指定表，这个能办到。

如果直接在已经打开的Excel文件中，用代码切换工作表，俺不会。

哪位来个示例

e-png

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1695 积分：10725 威望：0 精华：0 注册：2009/10/25 16:45:00

Post By：2011/1/19 0:10:00 [只看该作者]

这样可以切换Excel中的表（将第二个表和第一个换位置，但是好象会删除第一列？）

Forms("窗口1").Controls("WebBrowser1").AddRess = ""
Application.DoEvents() ‘这个好象不能少

Dim Book As New XLS.Book("D:\foxtable\CaseStudy\abc.xls)
Dim Sheet As XLS.Sheet = Book.Sheets(1)
Book.Build(1)
Book.Save("D:\foxtable\CaseStudy\abc.xls")
Forms("窗口1").Controls("WebBrowser1").AddRess = "D:\foxtable\CaseStudy\abc.xls"

czy

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33945 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2011/1/19 10:27:00 [只看该作者]

这样好像不符要求吧，如果这样行，倒不如直接

Dim Book As New XLS.Book("D:\foxtable\CaseStudy\abc.xls)
Book.Sheets.SelectedIndex = 1
Book.Save("D:\foxtable\CaseStudy\abc.xls")

mr725

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：5154 积分：31434 威望：0 精华：8 注册：2008/9/8 12:27:00

Post By：2011/1/19 17:34:00 [只看该作者]

在WebBrowser中直接用代码切换（像点击鼠标那样）只有狐爸来搞定了，否则要关闭Excel后，再在WebBrowser中重新打开，才能指定显示第几个表，不过这样会闪烁一下。

下一主题 >> << 上一主题

总数 15 上一页 1 2

主题：WebBrowser中打开EXCEL表