VBA调用Application.FileDialog有时会卡死

newaygod

1. Sub 批量运行宏()
   
2. 
   
3.     Dim mydialog As FileDialog, i As Integer, sFile As String
   
4.    
   
5.     On Error Resume Next '忽略错误
   
6.    
   
7.     '定义一个文件选取对话框
   
8.     Set mydialog = Application.FileDialog(msoFileDialogFilePicker)
   
9.     With mydialog
   
10.         .Filters.Clear '清除所有文件筛选器中的项目
    
11.         .InitialFileName = ThisDocument.path
    
12.         .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
    
13.         .AllowMultiSelect = True '允许多项选择
    
14.         .Show
    
15.         If .SelectedItems.Count = 0 Then
    
16.             MsgBox "没有选择任何文件！", vbExclamation + vbOKOnly, "提示"
    
17.             Exit Sub
    
18.         End If
    
19.         
    
20.         For i = 1 To .SelectedItems.Count
    
21.             sFile = .SelectedItems(i)
    
22.             Documents.Open FileName:=sFile
    
23.             ActiveDocument.Close True
    
24.         Next
    
25. 
    
26.         MsgBox "文件处理完毕！" & vbCrLf & vbCrLf & "共处理了 " & .SelectedItems.Count & " 个文件。", vbInformation + vbOKOnly, "提示"
    
27.     End With
    
28. 
    
29. End Sub
    

复制代码

各位大神求看看，我电脑有时候调用Application.FileDialog就会陷入死循环，而且试了F8一步一笔，就是这个位置会卡死，而且msoFileDialogFilePicker和msoFileDialogFolderPicker都会出现。

神奇在于电脑隔个半个小时，1个小时再尝试又可以用那么三四次。已经将所有非常用进程和程序都关了，就差裸奔了~~~

求各位大神指导哈~~

csnAlex

我怀疑你的电脑中可能有多个FileDialog的版本，建议你把
Dim mydialog As FileDialog, i As Integer, sFile As String
改为
Dim mydialog As Object, i As Integer, sFile As String