小白来了，在word2003中找文件然后用excel默认程序打开

cherrycdh

我需要在word中做一个工具按钮，然后状态形式如下的：


当我点击这个按钮时，先获取2列1行的数据作为搜索项，然后搜索D盘特殊标签文件夹中的文件，如果找到包含那个单元格数据的文件夹时往下一层找，找到包含特殊标签-单元格数据的文件，现在的问题是，我搜索到的文件有可能是doc也有可能是xls后者pdf的，我怎么让它自动使用相应的默认程序打开文件呢
文件内容大致是这样的

1. Private Sub CommandButton1_Click()
   
2.     ' 获取第一个表格的第一行第二列左边起前7个数据作为客户编号数据
   
3.     Dim 客户编号 As String
   
4.     客户编号 = Left(ActiveDocument.Tables(1).Cell(1, 2).Range.Text, 7)
   
5. 
   
6.     ' 构建特殊标签文件夹路径
   
7.     Dim 文件夹路径 As String
   
8.     文件夹路径 = "D:\特殊标签"
   
9. 
   
10.     ' 查找包含客户编号的文件夹
    
11.     Dim 客户文件夹路径 As String
    
12.     客户文件夹路径 = 文件夹包含客户编号(文件夹路径, 客户编号)
    
13. 
    
14.     If 客户文件夹路径 <> "" Then
    
15.         ' 在客户文件夹中查找包含内容为客户标签-客户编号数据的文件
    
16.         Dim 文件名数据 As String
    
17.         文件名数据 = 文件夹中包含客户标签文件(客户文件夹路径, "客户标签-" & 客户编号)
    
18. 
    
19.         If 文件名数据 <> "" Then
    
20.             ' 弹出对话框
    
21.             Dim response As VbMsgBoxResult
    
22.             response = MsgBox("是否打开文件 " & 文件名数据 & "？", vbYesNo + vbExclamation, "文件打开预警")
    
23. 
    
24.             ' 根据用户的选择进行操作
    
25.             If response = vbYes Then
    
26.                 ' 打开文件
    
27.                 Documents.Open 客户文件夹路径 & "" & 文件名数据
    
28.             End If
    
29.         Else
    
30.             ' 弹出对话框询问是否打开客户文件夹
    
31.             Dim responseFolder As VbMsgBoxResult
    
32.             responseFolder = MsgBox("未找到包含客户标签的文件，是否打开客户文件夹？", vbYesNo + vbExclamation, "文件夹打开预警")
    
33. 
    
34.             ' 根据用户的选择进行操作
    
35.             If responseFolder = vbYes Then
    
36.                 ' 打开客户文件夹
    
37.                 Shell "explorer.exe """ & 客户文件夹路径 & """", vbNormalFocus
    
38.             End If
    
39.         End If
    
40.     Else
    
41.         ' 弹出对话框
    
42.         MsgBox "未找到包含客户编号的文件夹"
    
43.     End If
    
44. End Sub
    
45. 
    
46. Function 文件夹包含客户编号(文件夹路径 As String, 客户编号 As String) As String
    
47.     ' 使用FileSystemObject检查文件夹是否存在
    
48.     Dim fso As Object
    
49.     Set fso = CreateObject("Scripting.FileSystemObject")
    
50. 
    
51.     ' 获取文件夹列表
    
52.     Dim 文件夹 As Object
    
53.     For Each 文件夹 In fso.GetFolder(文件夹路径).SubFolders
    
54.         ' 检查文件夹名称是否包含客户编号
    
55.         If InStr(1, 文件夹.Name, 客户编号) > 0 Then
    
56.             文件夹包含客户编号 = 文件夹.Path
    
57.             Exit Function
    
58.         End If
    
59.     Next 文件夹
    
60. 
    
61.     ' 未找到匹配的文件夹
    
62.     文件夹包含客户编号 = ""
    
63. End Function
    
64. 
    
65. Function 文件夹中包含客户标签文件(文件夹路径 As String, 客户标签 As String) As String
    
66.     ' 使用FileSystemObject检查文件夹是否存在
    
67.     Dim fso As Object
    
68.     Set fso = CreateObject("Scripting.FileSystemObject")
    
69. 
    
70.     ' 获取文件列表
    
71.     Dim 文件 As Object
    
72.     For Each 文件 In fso.GetFolder(文件夹路径).Files
    
73.         ' 检查文件名是否包含客户标签
    
74.         If InStr(1, 文件.Name, 客户标签) > 0 Then
    
75.             文件夹中包含客户标签文件 = 文件.Name
    
76.             Exit Function
    
77.         End If
    
78.     Next 文件
    
79. 
    
80.     ' 未找到匹配的文件
    
81.     文件夹中包含客户标签文件 = ""
    
82. End Function
    
83. 
    
84. 
    

复制代码

1. 
   

复制代码