来个VB的东东_用VB打开不同格式的文件

Scarlett_88

支持版版，来一个VB的东东，我的一个文件管理程序中提取出来的（excel,word,autocad,pdf,CorelDraw)。

Private Sub File1_Click()
On Error Resume Next
If Right(File1.FileName, 3) = "xls" Then
        Set ExlApp = CreateObject("excel.application")
        ExlApp.Visible = True              '设置属性为可见
    ExlApp.workbooks.Open (Dir1.Path & "\" & File1.FileName)
End If
If Right(File1.FileName, 3) = "doc" Then
    Dim word As Object
        Set word = CreateObject("word.application")
        word.Visible = True              '设置属性为可见
    word.documents.Open (Dir1.Path & "\" & File1.FileName)
End If
If Right(File1.FileName, 3) = "dwg" Then
    Dim acad As Object
        Set acad = CreateObject("autocad.application")
        acad.Visible = True              '设置属性为可见
    acad.documents.Open (Dir1.Path & "\" & File1.FileName)
End If
If Right(File1.FileName, 3) = "pdf" Then
Dim pa As String, pat1 As String, pat2 As String
pat1 = "C:\Program Files\Adobe\Acrobat 6.0\Acrobat\Acrobat.exe " ', vbNormalFocus ' NOTE SPACE after exe
pat2 = Dir1.Path & "\" & File1.FileName
pa = pat1 & pat2
Shell pa, vbNormalFocus
    pdfapp.documents.Open (Dir1.Path & "\" & File1.FileName)
End If
If Right(File1.FileName, 3) = "cdr" Then
    Dim cdrapp As Object
        Set cdrapp = CreateObject("coreldraw.application")
        cdrapp.Visible = True              '设置属性为可见
    cdrapp.documents.Open (Dir1.Path & "\" & File1.FileName)
End If
End Sub

这里用case会更简洁，但我为了扩展其他文件后缀用的if 语句。
要补充说明的是：要在filelistbox的属性pattern中限制文件格式
*xls*;*doc*;*dwg*;*pdf*;*cdr*

zhangmi

打开文凭不是很有意义，如果能在不同格式文凭查询的东东。。。

jilijun

感谢分享！！代码收藏了！！

Scarlett_88

原帖由 zhangmi 于 2009-3-16 21:39 发表
打开文凭不是很有意义，如果能在不同格式文凭查询的东东。。。

做查询功能可以有很多方法的，SQL就是一个很典型的例子，

Scarlett_88

因为以前我的很多技术文件给人家用一个U盘就copy走了。现在将文件全部建在服务器上，用VB分配权限，用VB软件输入密码读取文件，VB也会对一些文件的菜单功能失效，不让给copy出来。

rqhyc

支持一下

泓()

新版上任，支持一下

hank2611

高，拿来用了。

lzqlaj

收藏了。。

awalker

汗，这段代码不懂怎么用，是放到Excel的宏里面吗？
如果是的话能有谁帮忙传个实例上来吗？谢谢！