文件都放在服务器的一个目录中(doc,xls,ppt,eml等)
如何用vb点击一个按钮后将服务器上的文件在客户端用相关的office软件打开?

解决方案 »

  1.   

    先下载,然后打开,可以吧
    ftp或者共享copy
      

  2.   

    要点击一个按钮后,用vb代码打开
    本机是可以的,用api实现
    但远程就出错了
    高手帮忙啊!!!
      

  3.   

    strtemp为文件的全路经
    ShellExecute 0, vbNullString, strTemp, "", "", vbNormalFocus
      

  4.   

    不会吧!
    这在网上,如果你的扩展名是doc、xls、pdf之类的,如果你本地已经安装了这类打开软件的话,它会直接打开的啊!
      

  5.   

    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
      

  6.   

    Sub WEPok(WEPlx As String)
    '调用程序
    改一下:
    Sub WEPok(x As String,WEPlx As String)
    '调用程序
      

  7.   

    工程->部件->Microsoft Internet Controls添加WEBBROWSER控件然后:
    WebBrowser1.Navigate2 "Http://main/today.doc"
      

  8.   

    我再打开服务器上的文件就是用的这个用法
    strtemp为文件的全路经
    ShellExecute 0, vbNullString, strTemp, "", "", vbNormalFocus其他的你可以搜索shell的用法就可以,用google就可以搜索到很多