vba - 尝试使用 vba 查找从其他工作簿中获取值

Question

另一个去仍然没有工作

 Private Sub Worksheet_Change(ByVal Target As Range)


If Me.ListBox4 = "Fill Details" Then
        
On Error GoTo ErrHandler
Application.ScreenUpdating = False

Dim src As Workbook
Dim JCM As Worksheet


Set src = Workbooks.Open("\\TGS-SRV01\Share\ShopFloor\PRODUCTION\JOB BOOK\JOB RECORD SHEET.xlsm", True, True)
Set JCM = Worksheets("Job Card Master")

Dim iTotalRows As Integer
iTotalRows = src.Worksheets("sheet1").Range("A1:A" & Cells(rows.Count, "A").End(xlUp).row).rows.Count


Dim iCnt As Integer
For iCnt = 2 To iTotalRows
    Sheet1.Cells(40 & iCnt) = Application.WorksheetFunction.VLookup(JCM.Cells("G2"), _
    Sheets(JCM).Range("A4"), iCnt, 0)
Next iCnt


src.Close False
Set src = Nothing

ErrHandler：Application.EnableEvents = True Application.ScreenUpdating = True

MsgBox "成功将工作簿数据输入到工作卡主标题"

万一

结束子

标签： vbavlookup