Snasui Excel Forum

:mrgreen: อาจารย์ครับ ใช้ได้ดีมากเลยครับ ขอบพระคุณมากๆ ครับอาจารย์ :thup:

Option Explicit
Private Sub Button1_Click()
    Dim directory As String, fileName As String
    Dim sheet As Worksheet, j As Integer
    Dim tempBook As Workbook, thsBook As Workbook
    Application.ScreenUpdating = False
    directory = "d:\excel\term1\"
    fileName = Dir(directory & "*.xl??")
    Set thsBook = ThisWorkbook
    j = 3
    Do While fileName <> ""
        Set tempBook = Workbooks.Open(directory & fileName)
        thsBook.Sheets(1).Cells(4, j) = tempBook.Name
        thsBook.Worksheets(1).Cells(6, j).Resize(5, 1).Value = _
            tempBook.Sheets(3).Range("e3:e7").Value
        j = j + 1
        tempBook.Close False
        fileName = Dir()
    Loop
    Application.ScreenUpdating = True
End Sub

:D ตัวอย่างการปรับ Code ตามด้านล่างครับ
[code]Option Explicit
Private Sub Button1_Click()
Dim directory As String, fileName As String
Dim sheet As Worksheet, j As Integer
Dim tempBook As Workbook, thsBook As Workbook
Application.ScreenUpdating = False
directory = "d:\excel\term1\"
fileName = Dir(directory & "*.xl??")
Set thsBook = ThisWorkbook
j = 3
Do While fileName <> ""
Set tempBook = Workbooks.Open(directory & fileName)
thsBook.Sheets(1).Cells(4, j) = tempBook.Name
thsBook.Worksheets(1).Cells(6, j).Resize(5, 1).Value = _
tempBook.Sheets(3).Range("e3:e7").Value
j = j + 1
tempBook.Close False
fileName = Dir()
Loop
Application.ScreenUpdating = True
End Sub[/code]

ผลลัพธ์ดังภาพครับอาจารย์ [attachment=0]pic.jpg[/attachment] และ [attachment=1]excel.rar[/attachment]

:D แสดงตัวอย่างที่ถูกต้องมาด้วยครับ จะได้เห็นว่าหากถูกต้องแล้วผลลัพธ์จะเป็นลักษณะอย่างไร จะได้เข้าใจตรงกันครับ

:mrgreen: ใช้ VBA ดึงข้อมูลคะแนนกลางภาคมาแสดงที่ชีทปัจจุบัน โดยดึงคะแนนกลางภาคเทอม1 มาแสดง แต่ VBA มันดึงชื่อชีทมาแทน ครับอาจารย์ เราจะแก้อย่างไรครับ[attachment=1]excel.rar[/attachment][attachment=0]pic.jpg[/attachment]