Application.FileDialog(msoFileDialogFilePicker) 出现故障

wangkai420

Private Sub CommandButton5_Click()                         '选择打开程序
Dim lc  As Integer    '循环两次
On Error Resume Next
For lc = 1 To 2 Step 1
If lc = 1 Then
msg = MsgBox("你确定要为 .doc 或 .wps 重置打开程序吗?" + Chr(13) + Chr(13) + "重置程序一般在程序重装或本表格初始安装时使用！" + Chr(13), vbOKCancel)
If msg = vbCancel Then
GoTo pdf                                                                      ' 跳转打到 选择打开 pdf 所用程序的选择窗口
End If
With Application.FileDialog(msoFileDialogFilePicker)         '选择打开文件所用程序的路径
.AllowMultiSelect = False                                                 'False表示不能选择多个文件,True表示可以选择多个文件
.Show
Sheet1.Range("xx1").Value = .SelectedItems(1)                             '文件路径
End With
Else             'lc=2
pdf:
msg = MsgBox("你确定要为 .pdf 重置打开程序吗" + Chr(13) + Chr(13) + "重置程序一般在程序重装或本表格初始安装时使用！" + Chr(13), vbOKCancel)
If msg = vbCancel Then
Exit Sub
End If
With Application.FileDialog(msoFileDialogFilePicker)         '给图片赋予路径
.Title = ""
.AllowMultiSelect = False                                    'False表示不能选择多个文件,True表示可以选择多个文件
.Show
Sheet1.Range("xx2").Value = .SelectedItems(1)                             '文件路径
End With
End If
Next lc
End Sub

上面这段代码在有的电脑的excel上可以用，在有的电脑的 excel上不能用，
提出 方法 Application       作用于对象   .FileDialog       时失效。
请高手指点一下，是怎么回事。

wangkai420

我的office是2007版的

z2xz2x

帮顶。。。