怎样调用windows api函数在vb中打开word,excel等文档！或其他方法也行！急

Question

有好几种方式都可以打开Word或Excel.
最简单的是用OLE或Shell语句，这两种方式都可以，而且代码很简单。

Answer 1

在vb的"工程"->"引用" 中引用word 或excel
dim excel as object
dim workbook as object
dim worksheet as objectSet excel = CreateObject("excel.application")
Set workbook = excel.Workbooks.Open(App.Path & "\temp.xls")
Set worksheet = workbook.ActiveSheet
excel.Visible = True

Answer 2

darkeye!把你的代码写下来看看！
如果我打开是word文档，怎写！？

Answer 3

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
ShellExecute 0,"OPEN",yourFileName,0,0,1

Answer 4

Dim word As Object
Dim documents As Object
Private Sub Command1_Click()
    Set word = CreateObject("word.application")
    Set documents = word.documents.Open("c:\temp.doc")
    word.Visible = True
End Sub注意要先VB的"工程"->"引用" 中引用Microsoft word 9.0 object library 

Answer 5

那打开access数据库呢？还有其他的txt文件！！！

Answer 6

　zzzwww(岩上居者)　：你的代码好像不行的了？！
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As LongPrivate Sub Command3_Click()
ShellExecute 0, "OPEN", "c:\p.doc", 0, 0, 1
End Sub

Answer 7

用ShellExecute 0,"OPEN",yourFileName,0,0,1
yourFileName为你要打开的文件名。
该函数可打开任意有关联打开方式的文件。

Answer 8

Public Declare Function 应该为Private Declare Function