ดึงข้อมูลข้าม file แล้วให้มาแสดงที่ userform

[sooksun2009]

รบกวนท่านอาจารย์ ผมต้องการ ดึงข้อมูลอีก file แล้วหาข้อมูลคอลั่มA จากfile database ถ้าข้อมูลตรงกับ textbox ให้ดึงข้อมูลที่คอลั่ม B มาแสดงที่ label ขอบคุณครับ

[snasui]

กรุณาอธิบายเพิ่มเติมว่าใช้ไฟล์ไหนดึงข้อมูลจากไฟล์ไหน ด้วย Code ใน Form หรือ Module ใด Code ชื่อว่าอะไร ติดขัดบรรทัดใด จะได้เข้าถึงปัญหาได้โดยไวครับ

[sooksun2009]

กรุณาอธิบายเพิ่มเติมว่าใช้ไฟล์ไหนดึงข้อมูลจากไฟล์ไหน ด้วย Code ใน Form หรือ Module ใด Code ชื่อว่าอะไร ติดขัดบรรทัดใด จะได้เข้าถึงปัญหาได้โดยไวครับ

ขอโทษทีครับ รีบมากเลยลืมแนบ code

Code: Select all

Private Sub CommandButton1_Click()
Dim wb As Workbook
Application.ScreenUpdating = False
    Application.DisplayAlerts = False
Set wb = Workbooks.Open("D:\Sooksun\Improvement\visual\Database.xlsm", False, False)
With wb
    Dim nRow As String
    nRow = wb.Sheets("Data").Columns(1).Find(txt_Vinno.Text).Row
     Sheet1.Activate
    If Err.Number = 91 Then
        txt_Vinno.RowSource = "txt_Vinno.Text"
          MsgBox "äÁèÁÕ¢éÍÁÙÅ Vin number"
          Exit Sub
    End If
     txt_Vinno = Cells(nRow, 1)
    lbl_model.Caption = Cells(nRow, 2)
    End With
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

ความต้องการจาก file testpath ใน userform1 ป้อนข้อมูลที่ textbox txt_vinno แล้วกด button search ให้ไปดึงค่าที่ file database แล้วอยากได้ข้อมูลตามที่โพส

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
Dim nRow As Integer
nRow = wb.Sheets("Data").Columns(1).Find(txt_Vinno.Text).Row
 Sheet1.Activate
If Err.Number = 91 Then
    txt_Vinno.RowSource = "txt_Vinno.Text"
      MsgBox "ไม่มีข้อมูล Vin number"
      Exit Sub
End If
UserForm1.lbl_model.Caption = wb.Sheets("Data").Cells(nRow, 2).Value
'Other code

[sooksun2009]

ตัวอย่าง Code ครับ

Code: Select all

'Other code
Dim nRow As Integer
nRow = wb.Sheets("Data").Columns(1).Find(txt_Vinno.Text).Row
 Sheet1.Activate
If Err.Number = 91 Then
    txt_Vinno.RowSource = "txt_Vinno.Text"
      MsgBox "ไม่มีข้อมูล Vin number"
      Exit Sub
End If
UserForm1.lbl_model.Caption = wb.Sheets("Data").Cells(nRow, 2).Value
'Other code

ได้แล้วครับขอบคุณครับ