Excel Forum

Code: Select all

 Sub SelectionChange()
Dim wb As Workbooks
    Workbooks.Open Filename:="G:\งานทะเบียนนักเรียน\" & Range("b2").Value & ".xls"
    
  
    S1.Range("A2:D600").Value = _
    Workbooks(Range("b2").Value & ".xls").Worksheets("Sheet2").Range("A2:D600").Value
End Sub

Code: Select all

'Other code
Dim wb As Workbook
set wb = Workbooks.Open (Filename:="G:\งานทะเบียนนักเรียน\" & Range("b2").Value & ".xls")   
  
S1.Range("A2:D600").Value = wb.Worksheets("Sheet2").Range("A2:D600").Value
'Other code