Tag: doevents selectmethod

为什么我得到运行时错误'1004'与我的VBA代码复制并从一个工作簿粘贴到另一个？

我有我的macros的VBA代码的问题，我想要打开msoFileDialogFolderPicker和用户select一个文件夹，其中所有的Excel文件将被打开，一个接一个的数据将被从新打开的工作簿复制并粘贴到特定运行macros的工作簿中的工作表。 基本上我们给每个销售代表一个电子表格来填写他们的销售情况，然后把他们的电子表格提交给销售经理。 我想要做的，而不是有人不得不打开每个电子表格，并复制数据，并将其全部粘贴到一个电子表格手动，是简单地有一个macros为我这样做。 由于文件的位置和名称可以更改，我正在尽可能dynamic。 有可能是这样做的更好的方式，所以任何build议非常感谢！ 我遇到的问题是，我得到的文件打开，他们复制，但后来我得到一个运行时错误1004'复制方法的范围类失败'，当我试图让它粘贴在运行macros的工作簿。 我已经尝试了ThisWorkbook和ThisWorkbook.Activate来尝试告诉Excel去macros的运行的电子表格，但没有解决我的问题。 有时候我会经历错误，但仍然不会粘贴主工作簿中的数据。 我有我的代码写在下面。 无可否认，它主要是从我find的代码中复制出来的，但是我已经试图将其适用于我的目的。 我得到的错误是“wb1.Worksheets（1）.Range（”A5“）。select”行。 Sub LoopAllExcelFilesInFolder() Dim wb As Workbook Dim wb1 As Workbook Dim myPath As String Dim myFile As String Dim myExtension As String Dim FldrPicker As FileDialog Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual Set FldrPicker = Application.FileDialog(msoFileDialogFolderPicker) With FldrPicker .Title = "Select […]