本文介绍了应用程序定义的或对象定义的错误或运行时错误1004的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！
问题描述
```vb
Sub LoopThroughDirectory（）
Dim MyFile As String
Dim erow
MyFile = Dir（C：\ Users \ SJPM \Desktop \Sal \）
做Len（MyFile）> 0
如果MyFile = zmaster.xlsm然后
退出Sub
结束如果
Workbooks.Open（MyFile）
工作表（最终工资）。范围（B22：E32）。复制
ActiveWorkbook.Save
ActiveWorkbook.Close
erow = ActiveWorksheets.Cells （Rows.Count，1）.End（xlUp）.Offset（1,0）.Row
ActiveWorksheets.Paste目的地：=工作表（Sheet1）。范围（单元格（erow，1） ，细胞（erow，4））
MyFile = Dir
循环
End Sub
```
解决方案
这篇关于应用程序定义的或对象定义的错误或运行时错误1004的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！