Foxtable(狐表) → 用户栏目 → 专家坐堂 → 在窗口中使用execl或word


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

主题：在窗口中使用execl或word
帅哥哟，离线，有人找我吗？
有点甜
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 10:35:00 [显示全部帖子]

以下是引用kaituozhe在2017/7/8 18:51:00的发言：
word的文件怎么显示？

 

参考

 

http://www.foxtable.com/webhelp/scr/2903.htm

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 10:35:00 [显示全部帖子]

以下是引用kaituozhe在2017/7/8 19:18:00的发言：

在窗口中打开了excel表格，如果想切换为其他的，能够直接切换吗？能不能在不关闭窗口的情况下关闭窗口中的excel，然后再打开另一个。

 

可以的

 

e.Form.Controls("Webbrowser1").Address = Nothing

 

Dim ps As  System.Diagnostics.Process() = System.Diagnostics.Process.GetProcessesByName("excel")
For Each p As System.Diagnostics.Process In ps

    msgbox(p.MainWindowTitle)
    If p.MainWindowTitle = Nothing Then  p.kill
Next

 

'其余的重新生成的代码......
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 11:21:00 [显示全部帖子]

直接写

 

Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
Dim tm As String  = ProjectPath & "Attachments\出库单.doc"
wbr.AddRess = fl

 

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 14:24:00 [显示全部帖子]

以下是引用kaituozhe在2017/7/9 11:31:00的发言：
9楼的代码，填写后怎么保存到Reports

 

e.form.controls("webbrowser1").SaveOffice
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 15:10:00 [显示全部帖子]

以下是引用kaituozhe在2017/7/9 15:06:00的发言：

接12楼，希望存入到Reports 文件夹中

 

把模板拷贝到reports，再打开那个拷贝的文件。

 

http://www.foxtable.com/webhelp/scr/0342.htm

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 16:17:00 [显示全部帖子]

以下是引用kaituozhe在2017/7/9 15:31:00的发言：
怎么能够不显示word的菜单栏

 

参考

 

wbr.OfficeToolBar = True '如果不需要显示工具栏，可删除此行代码
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 16:24:00 [显示全部帖子]

如果还不行，就用这种方法

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=45959&skin=0

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 17:26:00 [显示全部帖子]

以下是引用kaituozhe在2017/7/9 16:54:00的发言：
17楼的也不行呀

 

切换好 再次设置 web.OfficeToolBar = True

试试 web.OfficeToolBar = false
web.OfficeToolBar = True

 

 如果还不行实例发上来测试。默认就是不显示菜单栏的。
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 17:30:00 [显示全部帖子]

Dim result As dialogresult
If FileSys.FileExists(ProjectPath & "Reports\正式司法鉴定目录.xls") = True Then
    result = MessageBox.Show("正式司法鉴定目录.xls,是否继续?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = Nothing OrElse result = DialogResult.Yes Then
    Dim wbr As WinForm.WebBrowser = e.Form.Controls("WebBrowser1")
    Dim tmp As String = ProjectPath & "Attachments\司法鉴定目录.xls"
    Dim rpt As String = ProjectPath & "Reports\正式司法鉴定目录.xls"
    Dim Book As New XLS.Book(tmp)
    Book.Build()
    Book.Save(rpt)
    wbr.OfficeToolBar = True '如果不需要显示工具栏,可删除此行代码
    wbr.AddRess = rpt
End If

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/7/9 17:54:00 [显示全部帖子]

以下是引用kaituozhe在2017/7/9 17:48:00的发言：
如果不让显示工具栏，报表怎么打印、怎么预览

 

可以直接用方法 PrintOffice

 

或者，得到的 app或doc，然后再操作

 

下载信息  [文件大小：304.0 KB  下载次数：64]
图片点击可在新窗口打开查看点击浏览该文件:webbrowser控制word_测试.table
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询