ดึงข้อมูลในทุกไฟล์ ที่อยู่ใน folder ติดdebug อย่างนี้แก้ไขอย่างไรครับ

[nutpochan]

ผมต้องการ ดึงไฟล์จาก excell โดยข้อมูล เป็นไดนามิกไม่เหมือนกันในทุกๆวัน และ ชื่อไฟล์เป็นไดนามิกไม่เหมือนกันใน ทุกๆวัน

โดยผมได้เขียนโค๊ด นี้ครับ แต่ติดไม่รู้ว่าจะแก้อย่างไร

Code: Select all

 Dim wb As Workbook, s As Worksheet, db As Worksheet
    Dim strPath As Variant, i As Integer, f As Byte
    strPath = Application.GetOpenFilename( _
        FileFilter:="Excel File (*.xls*),*.xls*", _
        MultiSelect:=True)
    If TypeName(strPath) = "Boolean" Then Exit Sub
    Set db = ThisWorkbook.Sheets(1)
    db.UsedRange.ClearContents
    Application.ScreenUpdating = False
    For i = 1 To UBound(strPath)
        For Each s In wb.Worksheets
            f = IIf(db.Range("a1").Value = "", 1, 0)
            If s.Range("a1").Value <> "" Then
                s.UsedRange.Offset(f, 0).Copy
                With db
                    .Range("a" &amp; .Rows.Count).End(xlUp).Offset(f, 0)
                        .PasteSpecial xlPasteValues
                End With
            End If
        Next s
        wb.Close
        Application.CutCopyMode = False
    Next i
    Application.ScreenUpdating = True
    MsgBox "Finished", vbInformation

ตัวอย่างงานที่ดึงเสร็จแล้ว จะนำมาต่อกันลงมาด้านล่าง ของคอลัมครับ ไฟล์ ตัวอย่างที่ดึงแล้วผมอัปโหลดใว้แล้วครับ

ผมควรจะแก้โค๊ดตรงไหนบ้าง

[snasui]

หมวดนี้เป็น VB.NET กรุณาโพสต์ใหม่ในหมวด Excel ครับ