Excel объект не поддерживает это свойство или метод

I am working on a code that will collate data from multiple workbooks in a folder in to one single sheet.
Now, I am trying to make the code read through all the worksheets in the workbooks with the below code. I get the error — «Object Doesnt support this property or method» in the highlighted line.

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)

For Each ws_cnt In wb.Worksheets

You need to specify the collection that you wish to iterate over, so in this instance it is the wb.Worksheets collection.

Then you can just work with the worksheet.

ws_cnt.Range("A1").Copy

answered Jan 4, 2017 at 14:35

the line that is giving me trouble is «»Sheets(CStr(WS_M.Cells(n, START_C))).Cells(n, START_C).Paste»»

this is supposed to find the tab name in column 3 and go to that tab and paste the tab name in that tab.

    Const START_C = 3
    Const MAX_TRAN = 1000
    Const START_R = 2
    Const MASTER = "MASTER"

    Sub MOVEDATACORRECTLY()

    Dim WS_M As Worksheet
    Dim thisWB As Workbook
    Set thisWB = ActiveWorkbook
    Set WS_M = Worksheets(MASTER)

    For M = START_R To (START_R + MAX_TRAN)
        If WS_M.Cells(M, (START_C + 1)) = "" Then Exit For

    Next M

    M = M - 1

    For n = START_R To M
       WS_M.Cells(n, START_C).Copy
       Sheets(CStr(WS_M.Cells(n, START_C))).Cells(n, START_C).Paste      

    Next n

    End Sub

For copying a range of cells in Excel, using Copy method makes the VBA program easier to crash / or to give inpredictable results.

Suppose during the your procedure copies data from system clipboard and user was trying to store some other to system clipboard!

Not always, but from users this kind of mistake might happened.

So I always prefer to use a better approach, something like Swaping the range on the fly. Here’s a small demonstration:

Public Sub Sample_Copy_without_Clipboard()
    Dim dRange As Range, iRange As Range
    Set iRange = Range("A1:B3")
    Set dRange = Range("D1:E3")
    dRange.Value = iRange.Value
End Sub

Note: This method works only with unformatted textual data. If not then either use Tim’s suggestion or DanM’s answer.