Попытка написать код для извлечения данных из всех файлов

Question

Я пытаюсь выполнить поиск кода во всех книгах, и если он находит то, что ищет, он копирует и вставляет всю строку в список в пользовательской форме.

Мы заказываем много деталей, и мы хотели бы искать, чтобы увидеть, когда деталь была заказана последней. этот поиск подтянет эту информацию.

Код ниже дает мне сообщение об ошибке, и я не могу понять, почему. OBJECT DOESN’T SUPPORT THIS PROPERTY OR METHOD часть, выделенная жирным шрифтом, выделяется, когда я запускаю код.

Может ли кто-нибудь помочь с этим?

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

Как говорится в ошибке, у вашего объекта (wb2) нет метода или свойства, соответствующего методу / свойству, которое вы пытались использовать (columns).

Columns - это свойство класса рабочего листа Excel, когда вы пытаетесь использовать его с рабочей книгой, у которой этого свойства нет.