พยายามเขียนโค้ดเพื่อดึงข้อมูลจากไฟล์ทั้งหมด

ฉันพยายามใช้รหัสเพื่อค้นหาเวิร์กบุคทั้งหมดและหากพบว่ามีการสืบค้นอะไรให้คัดลอกและวางทั้งแถวไปยังกล่องรายการในฟอร์มผู้ใช้

เราสั่งซื้อชิ้นส่วนจำนวนมากและเราต้องการค้นหาเพื่อดูว่าชิ้นส่วนนั้นได้รับคำสั่งครั้งสุดท้าย การค้นหานี้จะดึงข้อมูลนั้นขึ้นมา

รหัสด้านล่างคือการให้ข้อความแสดงข้อผิดพลาดและฉันไม่สามารถหาสาเหตุ 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

ตามที่ระบุไว้ข้อผิดพลาด Object ของคุณ ( wb2 ) ไม่มีวิธีการหรือคุณสมบัติที่ตรงกับวิธีการ / คุณสมบัติที่คุณพยายามใช้ columns )

Columns เป็นคุณสมบัติของ Excel งาน แผ่น ชั้น ในขณะที่คุณกำลังพยายามใช้กับงาน หนังสือ ซึ่ง ไม่มีคุณสมบัตินั้น .