打开文件有问题，求高手帮忙修改一下！

[sailor980]

Sub test()
Dim mFolder As String
Dim i As Integer
Dim k As Integer

Dim MyDate
MyDate = Date
Range("AD3").Value = MyDate

k = 6

mFolder = ThisWorkbook.Path
[A4] = "路径"
'[B1] = "文件名"
With Application.FileSearch
.NewSearch
.LookIn = mFolder
.SearchSubFolders = False
.FileType = msoFileTypeExcelWorkbooks

If .Execute() > 0 Then
For i = 1 To .FoundFiles.Count
If .FoundFiles(i) <> ThisWorkbook.FullName Then
Call Write_In(.FoundFiles(i))
End If

If i Mod 2 = 0 Then
Range("B" & k & ":AD" & k + 1).Select
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
End If
k = k + 2
Next i
Else
MsgBox "文件夹 " & mFolder & "中没有所需的文件"
End If
End With
Range("A4:A80").Clear

End Sub

[赵4老师]

注释掉所有On Error Resume Next语句，在VBA IDE中运行， 出错后点击调试，光标会停在出错的那条语句处， 或者 事先在怀疑可能有逻辑错误的语句处设置断点，运行经过断点时中断， 此时可以在立即窗口中使用 ?变量名 或 ?函数名(函数参数) 或 过程名(参数) 辅助调试。