代码哪里出错

宋传春

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


文件名11到18找不到？请高手指点

excel玉米

文件名后面要有后缀名，如.xlsx

宋传春

不是这个问题，是文件不在一个路径里，11到18是在子文件夹里，不知道这样如何解决