loop วนหาข้อมูล ทุก Column และ ทุก row

[Xcelvba]

ต้องการให้ vba ที่ วนเลือก จากไฟล์ import ที่มีช่วงข้อมูลครับ
ในตัวอย่างในไฟล์ Book2 (import) ให้เลือก A1:E25 ครับ

Code: Select all

Sub Get_Data_From_File()
    Dim FileToOpen As Variant
    Dim Openbook As Workbook
    
    Application.ScreenUpdating = False
        
        FileToOpen = Application.GetOpenFilename(Title:="Browse for your file & Import Range", Filefilter:="Excel File (*.xls*),*xls*")
        
        If FileToOpen <> False Then
            Set Openbook = Application.Workbooks.Open(FileToOpen)
            Openbook.Sheets(1).Range("A1:E20").Copy
            ThisWorkbook.Worksheets("SelectFile").Range("A1").PasteSpecial xlPasteValues
            Openbook.Close False
        End If
End Sub

[snasui]

วัตถุประสงค์ของการวนเพื่ออะไรครับ

จาก Code ที่เขียนมาเองแล้วนั้นติดปัญหาตรงไหนหรือไม่ อย่างไร กรุณาอธิบายเพิ่มเติมมาด้วยครับ

หากต้องการจะเลือกข้อมูลทั้งหมดซึ่งอาจะมีมากบ้างน้อยมาในแต่ละครั้งให้เปลี่ยน Statement ในขั้นตอนการ Copy เป็น Openbook.Sheets(1).Range("a1").CurrentRegion.Copy ครับ

[Xcelvba]

วัตถุประสงค์ของการวนเพื่ออะไรครับ

จาก Code ที่เขียนมาเองแล้วนั้นติดปัญหาตรงไหนหรือไม่ อย่างไร กรุณาอธิบายเพิ่มเติมมาด้วยครับ

หากต้องการจะเลือกข้อมูลทั้งหมดซึ่งอาจะมีมากบ้างน้อยมาในแต่ละครั้งให้เปลี่ยน Statement ในขั้นตอนการ Copy เป็น Openbook.Sheets(1).Range("a1").CurrentRegion.Copy ครับ

ต้องการข้อมูลทั้งหมดในชีท A ครับ จาก โค้ดที่ อ.ให้มา ใช้ได้ตามต้องการครับ สอบถามเพิ่มเติมครับ
ถ้าจะไม่ให้ โชว์หน้าต่าง ตามด้านล่างเวลา import ข้อมูล สามารถทำได้ไหมครับ