对象在VBA中不支持此属性或方法

Question

我正在编写一个代码，用于将文件夹中多个工作簿的数据整理到一个工作表中。 现在，我正在尝试使用以下代码通过工作簿中的所有工作表读取代码。我收到错误 - ＆＃34;对象不支持此属性或方法＆＃34;在突出显示的行中。

For Each objFile In objFolder.Files

RowCount = ws1.UsedRange.Rows.Count

If objFile.Type = "Microsoft Excel Worksheet" Or objFile.Type = "Microsoft Excel Macro-Enabled Worksheet" Then

Set wb = Application.Workbooks.Open(path & objFile.Name)

For Each ws_cnt In wb '<---Error here.

Set srWS = wb.Sheets(1)

Answer 1

For Each ws_cnt In wb.Worksheets

您需要指定要迭代的集合，因此在此实例中它是wb.Worksheets集合。

然后您可以使用工作表。

ws_cnt.Range("A1").Copy