Private Sub Command3_Click() ................. ............ WEPPath = "\\dtrs\e\312320040515\" & Data1.Recordset.Fields(2) '文件名与数据库相联 Call WEPok(WEPPath,Data3.Recordset.Fields(3)) '类型 .......... ...... .......... end sub Sub WEPok(WEPlx As String) '调用程序 On Error Resume Next Select Case WEPlx Case "Word" Set WEP = GetObject(X) WEP.Application.Visible = True Case "Excel" Set WEP = GetObject(X) WEP.Windows(1).Visible = True WEP.Application.Visible = True Case "PowerPoint" Set WEP = GetObject(X) WEP.Application.Visible = True End SelectEnd Sub
Sub WEPok(WEPlx As String) '调用程序 改一下: Sub WEPok(x As String,WEPlx As String) '调用程序
工程->部件->Microsoft Internet Controls添加WEBBROWSER控件然后: WebBrowser1.Navigate2 "Http://main/today.doc"
ftp或者共享copy
本机是可以的,用api实现
但远程就出错了
高手帮忙啊!!!
ShellExecute 0, vbNullString, strTemp, "", "", vbNormalFocus
这在网上,如果你的扩展名是doc、xls、pdf之类的,如果你本地已经安装了这类打开软件的话,它会直接打开的啊!
.................
............
WEPPath = "\\dtrs\e\312320040515\" & Data1.Recordset.Fields(2) '文件名与数据库相联
Call WEPok(WEPPath,Data3.Recordset.Fields(3)) '类型
..........
......
..........
end sub
Sub WEPok(WEPlx As String)
'调用程序
On Error Resume Next
Select Case WEPlx
Case "Word"
Set WEP = GetObject(X)
WEP.Application.Visible = True
Case "Excel"
Set WEP = GetObject(X)
WEP.Windows(1).Visible = True
WEP.Application.Visible = True
Case "PowerPoint"
Set WEP = GetObject(X)
WEP.Application.Visible = True
End SelectEnd Sub
'调用程序
改一下:
Sub WEPok(x As String,WEPlx As String)
'调用程序
WebBrowser1.Navigate2 "Http://main/today.doc"
strtemp为文件的全路经
ShellExecute 0, vbNullString, strTemp, "", "", vbNormalFocus其他的你可以搜索shell的用法就可以,用google就可以搜索到很多