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

我正在处理一个代码，将从一个文件夹中的多个工作簿中的数据整理到一个工作表中。 现在，我正试图通过下面的代码读取工作簿中所有工作表的代码。 我得到错误 – 突出显示的行中的“对象不支持此属性或方法”。

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