วิธีการวนซ้ำไฟล์ในไดเร็กทอรีและคัดลอกข้อมูลลงในแผ่นงานหลักใน Excel
สมมติว่ามีสมุดงาน Excel หลายเล่มในโฟลเดอร์และคุณต้องการวนซ้ำไฟล์ Excel เหล่านี้ทั้งหมดและคัดลอกข้อมูลจากช่วงที่ระบุของแผ่นงานชื่อเดียวกันลงในแผ่นงานหลักใน Excel คุณจะทำอย่างไรได้บ้าง? บทความนี้แนะนำวิธีการเพื่อให้บรรลุโดยละเอียด
วนซ้ำไฟล์ในไดเร็กทอรีและคัดลอกข้อมูลลงในแผ่นงานหลักด้วยรหัส VBA
วนซ้ำไฟล์ในไดเร็กทอรีและคัดลอกข้อมูลลงในแผ่นงานหลักด้วยรหัส VBA
หากคุณต้องการคัดลอกข้อมูลที่ระบุในช่วง A1: D4 จากแผ่นงานทั้งหมด 1 แผ่นในโฟลเดอร์หนึ่งไปยังแผ่นงานต้นแบบโปรดทำดังนี้
1. ในสมุดงานคุณจะสร้างแผ่นงานหลักให้กดปุ่ม อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูล. จากนั้นคัดลอกโค้ด VBA ด้านล่างลงในหน้าต่างรหัส
รหัส VBA: วนซ้ำไฟล์ในโฟลเดอร์และคัดลอกข้อมูลลงในแผ่นงานหลัก
Sub Merge2MultiSheets()
Dim xRg As Range
Dim xSelItem As Variant
Dim xFileDlg As FileDialog
Dim xFileName, xSheetName, xRgStr As String
Dim xBook, xWorkBook As Workbook
Dim xSheet As Worksheet
On Error Resume Next
Application.DisplayAlerts = False
Application.EnableEvents = False
Application.ScreenUpdating = False
xSheetName = "Sheet1"
xRgStr = "A1:D4"
Set xFileDlg = Application.FileDialog(msoFileDialogFolderPicker)
With xFileDlg
If .Show = -1 Then
xSelItem = .SelectedItems.Item(1)
Set xWorkBook = ThisWorkbook
Set xSheet = xWorkBook.Sheets("New Sheet")
If xSheet Is Nothing Then
xWorkBook.Sheets.Add(after:=xWorkBook.Worksheets(xWorkBook.Worksheets.Count)).Name = "New Sheet"
Set xSheet = xWorkBook.Sheets("New Sheet")
End If
xFileName = Dir(xSelItem & "\*.xlsx", vbNormal)
If xFileName = "" Then Exit Sub
Do Until xFileName = ""
Set xBook = Workbooks.Open(xSelItem & "\" & xFileName)
Set xRg = xBook.Worksheets(xSheetName).Range(xRgStr)
xRg.Copy xSheet.Range("A65536").End(xlUp).Offset(1, 0)
xFileName = Dir()
xBook.Close
Loop
End If
End With
Application.DisplayAlerts = True
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
หมายเหตุ:
3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส
4. ในการเปิด หมวดหมู่สินค้า โปรดเลือกโฟลเดอร์ที่มีไฟล์ที่คุณจะวนซ้ำจากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:
จากนั้นแผ่นงานหลักชื่อ "แผ่นงานใหม่" จะถูกสร้างขึ้นที่ส่วนท้ายของสมุดงานปัจจุบัน และข้อมูลในช่วง A1: D4 ของ Sheet1 ทั้งหมดในโฟลเดอร์ที่เลือกจะแสดงรายการภายในแผ่นงาน
บทความที่เกี่ยวข้อง:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!