子文件里文件如何查找,现在问题是11到18工作薄读入不了数据

Question

Sub kd()

'On Error Resume Next
Application.ScreenUpdating = False
arr = Range("a2:c110")
For i = 1 To UBound(arr)
myPath = "D:\写入数据-宋\新建文件" '把文件路径定义给变量
myFile = Dir(myPath & "" & arr(i, 1), vbDirectory) '依次找寻指定路径中的*.xlsx文件
Workbooks.Open "D:\写入数据-宋\新建文件夹" & "" & arr(i, 1)
ActiveWorkbook.Sheets("信息").Range("a2") = arr(i, 2)
ActiveWorkbook.Sheets("信息").Range("b3") = arr(i, 3)
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.ScreenUpdating = True
Next
End Sub

Answer 1

D列是路径的话就不要在代码里写死（myPath = "D:\写入数据-宋\新建文件" '把文件路径定义给变量），用D列的数据