我把很多文档(word excel PowerPoint) 按照二进制保存在数据库中,可以导出,导出后也可以打开.
现在我想在程序中直接调用对应的软件打开导出的文件.
并且程序运行在很多不同的机器上,所以也要考虑软件可能安装在不同的目录,或者根本没有安装.
请指点一下.
现在我想在程序中直接调用对应的软件打开导出的文件.
并且程序运行在很多不同的机器上,所以也要考虑软件可能安装在不同的目录,或者根本没有安装.
请指点一下.
解决方案 »
- 如何获得WORD文档连续页内容?
- 谁知道,.dat文件是什么数据库?提交给用户的数据库用什么加密比较好?
- 很弱的问题:VB里面ICON对.ico文件的大小是不是有要求啊,具体限制多大
- 如何执行.sql文件?
- 时间戳是什么概念?
- 在线等!!关于MSHFlexGrid控件删除行问题。。。
- ODBC数据源连接sql server数据库时出现了问题?(请各位帮帮忙!Thank you!)
- 有什么好用的数据显示控件推存一下。(主要是DataGrid太丑了)
- 用VB+SQL编写的信息管理系统在非本地计算机上运行,该怎样实现?目的计算机需要装SQLSERVERR吗?
- 哪位有关于关系数据库方面的资料
- Access动态查询的问题!
- 请问那位有水晶报表的操作说明书呀
安装了office组件后才能在工程里引用相应的对象,然后用该对象的相应方法实现功能
我只是想实现: 有个文件路径,然后就直接调用软件打开
就向在DOS 下打如下命令: winword c:\temp\xxx.doc
没有装打不开的,有装的可以打开
Dim xlsApp As Excel.Application
Dim wrdApp As Word.Application 只要相关的对象库已经被选择,在应用程序中进行对象变量的赋值是可能的。Microsoft Excel 8.0对象库是相对于Excel的,而 Microsoft Word 8.0 对象库是为Word服务的。 在VB的IDE环境中,从“工程”菜单中选择“引用”,可以看到系统可用的所有库列表。Private Sub Command1_Click()
Set xlsApp = Excel.Application
With xlsApp
'Show Excel
.Visible = True
'Create a new workbook
.Workbooks.Add
'Put text in to the cell that is selected
.ActiveCell.Value = "Hi"
'Put text into A3 regardless of the selected cell
.Range("A3").Value = "This is an example of connecting to Excel"
End With
End Sub
在上面的程序段中,我们在变量xlsApp中建立了一个对象,这样Excel就对用户可见了。当Excel象这样启动后,并不包含一个工作簿,所以必须创建或者执行打开操作。这里,我们建立了一个新的工作簿,然后,就可以操作其中的信息,或者打印,或者保存,或者你任意想做的事情。Private Sub Command2_Click()
'close the workbook
xlsApp.Workbooks.Close
'Close Excel
xlsApp.Quit
End Sub 上面这段代码执行关闭程序的功能。首先,关闭工作簿,这将出现一个提示对话框,询问用户是否想保存修改;然后,退出应用程序。Private Sub Command3_Click()
Set wrdApp = New Word.Application
With wrdApp
'Show Word
.Visible = True
'Create New Document
.Documents.Add
'Add text to the document
.ActiveDocument.Content.Text = "Hi"
.ActiveDocument.Content.Text = "This is a test example"
End With
End Sub 上面这段代码中,在变量wrdApp中设置引用Word程序的对象。同样,当Word按照这种方式启动后,不会包含一个文档,所以,必须执行建立或者打开操作。这里是建立了一个新文档,然后可以操作其中的信息了,打印、保存、发送邮件,等等... 但是,在Word文档中放置文本并非容易!特别是与Excel一起工作时。为了简单地在特定的地方放置文本,需要有一个book标记。这意味着,需要事先建立一个模板。Private Sub Command4_Click()
'Close the current document
wrdApp.ActiveDocument.Close
'Close Word
wrdApp.Quit
End Sub 上面这段代码的功能是关闭应用程序。首先,关闭当前文档,这时可能需要用户保存修改。然后,退出程序。Private Sub Form_Unload(Cancel As Integer)
'Clear the memory
Set xlsApp = Nothing
Set wrdApp = Nothing
End Sub 最后一段代码就是关闭VB应用程序。这是优秀程序员编程的好习惯。 Well I hope this brief tutorial is helpful. It does not touch on much of what you can do to the office applications once they're open, but should give you an idea of how to get started. 好了,简单的介绍到此结束。我希望能抛砖引玉,让你更加随意地操作Office应用程序!
我只是想实现: 有个文件路径,然后就直接调用软件打开
就向在DOS 下打如下命令: winword c:\temp\xxx.doc
/////////那就用createobjecton error resume next
set wdApp=createobject("word.application")
if err.number<>0 then
msgbox "未装Word"
exit sub
end if
wdApp.documents.open "c:\temp\xxx.doc"
wdApp.visible=true