วิธีการเรียกใช้แมโครพร้อมกันในหลาย ๆ เวิร์กบุ๊กได้อย่างไร

การรันแมโครกับไฟล์เวิร์กบุ๊กหลายไฟล์อาจใช้เวลานานหากคุณต้องเปิดไฟล์แต่ละไฟล์แยกกัน โชคดีที่ด้วย VBA คุณสามารถรันแมโครพร้อมกันกับเวิร์กบุ๊กหลายไฟล์ได้โดยไม่ต้องเปิดไฟล์เหล่านั้น บทช่วยสอนนี้ให้คำแนะนำทีละขั้นตอนเพื่อลดความซับซ้อนของงานนี้ใน Excel

เรียกใช้แมโครพร้อมกันในสมุดงานหลายเล่มด้วยรหัส VBA

เรียกใช้แมโครพร้อมกันในสมุดงานหลายเล่มด้วยรหัส VBA

หากต้องการเรียกใช้แมโครในสมุดงานหลายเล่มโดยไม่ต้องเปิดโปรดใช้รหัส VBA ต่อไปนี้:

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.

รหัส VBA: เรียกใช้แมโครเดียวกันบนสมุดงานหลายเล่มในเวลาเดียวกัน:

Sub LoopThroughFiles()
    Dim xFd As FileDialog
    Dim xFdItem As Variant
    Dim xFileName As String
    Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
    If xFd.Show = -1 Then
        xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
        xFileName = Dir(xFdItem & "*.xls*")
        Do While xFileName <> ""
            With Workbooks.Open(xFdItem & xFileName)
                'your code here
            End With
            xFileName = Dir
        Loop
    End If
End Sub

หมายเหตุ: ในรหัสด้านบนโปรดคัดลอกและวางรหัสของคุณเองโดยไม่มีไฟล์ ต หัวเรื่องและ ย่อยสิ้นสุด ส่วนท้ายระหว่าง ด้วย Workbooks.Open (xFdItem & xFileName) และ จบด้วย สคริปต์ ดูภาพหน้าจอ:

3. จากนั้นกด F5 กุญแจสำคัญในการรันโค้ดนี้และไฟล์ หมวดหมู่สินค้า หน้าต่างจะปรากฏขึ้นโปรดเลือกโฟลเดอร์ที่มีสมุดงานที่คุณต้องการให้ทุกคนใช้มาโครนี้ดูภาพหน้าจอ:

4. คลิก OKแมโครที่ต้องการจะถูกดำเนินการกับเวิร์กบุ๊กที่เลือกทั้งหมด