Private Sub Command1_Click()
创新互联建站专注骨干网络服务器租用10多年,服务更有保障!服务器租用,多线服务器托管 成都服务器租用,成都服务器托管,骨干网络带宽,享受低延迟,高速访问。灵活、实现低成本的共享或公网数据中心高速带宽的专属高性能服务器。
Dim sf As Object
Set sf = CreateObject("Shell.Application").BrowseForFolder(0, "选择文件夹", 0, "")
If Not sf Is Nothing Then
MsgBox "选择的文件夹是" vbCrLf sf.self.Path
End If
Set sf = Nothing
End Sub
NET中数据库数据导入Excel并打印摘要:众所周知,WEB上的打印是比较困难的,常见的WEB上打印的方法大概 ... type=button value=打印预览onclick=document.all.WebBrowser.ExecWB(7,1) ... 3、将数据库的数据或要打印的内容导出到Excel,Word中去打印
webbrowser本身是不可能直接显示word的,webbrowser就是个浏览器的内核,只具备基本的浏览器功能,能解析html跟常见的javascript..
功能强大的firefox, IE9也不能直接显示word, 你看到的百度文库里显示的word,有些是转换了html显示出来的,有些是转成了一种flash格式……
还有邮箱里的预览功能,有的是采用的microsoft 的web office app, 有的是永中office..这些都是购买的服务器软件支持……
.更古老的方式是做浏览器Activ X插件……
你可以使用Microsoft Office Interop组件来将Excel表格转换为PDF。该组件可以将整个文件或单个工作表转换为PDF,并且可以在转换后立即预览文件。另外,你也可以使用第三方组件,比如Ecrion或devexpress,来实现同样的功能。