Tentando escrever código para extrair dados de todos os arquivos

Question

Estou tentando código para pesquisar em todas as pastas de trabalho e, se encontrar o que está sendo pesquisado, copie e cole a linha inteira em uma caixa de listagem em um formulário do usuário.

Encomendamos muitas peças e gostaríamos de pesquisar para ver quando a peça foi encomendada por último. esta pesquisa vai levantar essa informação.

O código abaixo está me dando uma mensagem de erro e não consigo entender por quê. OBJECT DOESN’T SUPPORT THIS PROPERTY OR METHOD a parte em negrito está sendo destacada quando executo o código.

Alguém poderia ajudar com isso?

Option Explicit
Private Sub CommandButton1_Click()
Dim wb1 As Workbook, wb2 As Workbook
Set wb1 = ThisWorkbook
Dim ws As Worksheet
Dim sPath As String
Dim sfile As String
Dim C As Range
sPath = "\192.168.1.4\ET_Documents\Shared Documents\Inventory Transactions\TRANSACTIONS AS OF 11-3-2017\"
sfile = Dir(sPath & "*.xls*")
Application.ScreenUpdating = False
Set ws = Sheet1
ListBox1 = 0
Do While sfile <> ""
Set wb2 = Workbooks.Open(sPath & sfile)
    With ListBox1
        For Each C In wb2.Columns("b8:b15")          ' THIS IS THE HIGHLIGHTED LINE
                If C = TextBox1.Value Then
                    With C.EntireRow
                        ListBox1.AddItem
                    End With
                End If
        Next
    End With
wb2.Close False
sfile = Dir()
Loop

Application.ScreenUpdating = True
End Sub

    

Answer 1

Como o erro diz, seu Objeto ( wb2 ) não possui um método ou propriedade que corresponda ao método / propriedade que você tentou usar ( columns ).

Columns é uma propriedade de um trabalho do Excel < em> sheet class , enquanto você está tentando usá-lo com um trabalho book , que não tem essa propriedade .