ไฟล์“ Excel” (.xlsx) ที่มีหลายแผ่นในแผ่นแยก [n] .xlsx เป็นอย่างไร

ฉันคิดว่าชื่อกล่าวมันทั้งหมดสำหรับคำถามนี้ แต่จะอธิบายเพิ่มเติมเล็กน้อย:

ฉันมีไฟล์. xlsx ซึ่งบรรจุแผ่นงานเพียงไม่กี่แผ่น ฉันต้องการส่งออกแผ่นงานทั้งหมดเป็นไฟล์. xlsx แยกกัน ไม่จำเป็นต้องตั้งชื่อโดยอัตโนมัติ excel มีฟังก์ชันในการส่งออกแผ่นงานไปยังไฟล์แยกกันหรือไม่?

มันไม่ใช่คุณสมบัติในตัว

อย่างไรก็ตามหากคุณเรียกใช้รหัสนี้ควรทำงาน

Sub SaveSheets()
    Dim strPath As String
    Dim ws As Worksheet

    Application.ScreenUpdating = False

    strPath = ActiveWorkbook.Path & "\"
    For Each ws In ThisWorkbook.Sheets
        ws.Copy
        'Use this line if you want to break any links:
        BreakLinks Workbooks(Workbooks.Count)
        Workbooks(Workbooks.Count).Close True, strPath & ws.Name & ".xlsx"
    Next

    Application.ScreenUpdating = True
End Sub

Sub BreakLinks(wb As Workbook)
    Dim lnk As Variant
    For Each lnk In wb.LinkSources(xlExcelLinks)
        wb.BreakLink lnk, xlLinkTypeExcelLinks
    Next
End Sub

ในการรันโค้ดให้ทำดังต่อไปนี้:

1. เปิดเครื่องมือแก้ไข VBA ( Alt+ F11)
2. ในต้นไม้ที่มุมซ้ายบนคลิกขวาบนสมุดงานของคุณและแทรกโมดูลใหม่
3. คัดลอกรหัสข้างต้นลงในโมดูลนี้
4. ปิดตัวแก้ไข VBA
5. ใน Excel กดAlt+ F8เพื่อเรียกใช้แมโครและเลือกSaveSheets

หรือดูฉันจะเพิ่ม VBA ใน MS Office ได้อย่างไร

1. เมื่อคุณคลิกขวาที่แท็บของแผ่นงาน Excel คุณสามารถเลือกย้ายหรือคัดลอก ...

   

2. ในกล่องโต้ตอบผลลัพธ์คุณสามารถเลือกสมุดงานเป้าหมายได้ เลือก(หนังสือใหม่)

   

3. คลิกตกลง แผ่นงานของคุณอยู่ในเอกสารใหม่แล้ว

ฉันพยายามแก้ปัญหาปีเตอร์อัลเบิร์และมันไม่ได้ทำงานสำหรับฉันดังนั้นฉันพบวิธีแก้ปัญหาในโพสต์นี้ (“Excel - บันทึกแผ่นงานเป็นไฟล์แยกต่างหาก”) ในไดอารี่ของคอมพิวเตอร์ geek

มันใช้งานได้ดี คุณควรเปลี่ยนชื่อแผ่นงานที่มีจุดเพื่อให้ได้ชื่อไฟล์ที่ถูกต้องพร้อม.xlsนามสกุล

Sub CreateNewWBS()
Dim wbThis As Workbook
Dim wbNew As Workbook
Dim ws As Worksheet
Dim strFilename As String

    Set wbThis = ThisWorkbook
    For Each ws In wbThis.Worksheets
        strFilename = wbThis.Path & "/" & ws.Name
        ws.Copy
        Set wbNew = ActiveWorkbook
        wbNew.SaveAs strFilename
        wbNew.Close
    Next ws
End Sub

ใช้คำแนะนำในการสร้างและเรียกใช้แมโครนี้จากโพสต์ของ Peter Albert หรือจากฉันจะเพิ่ม VBA ใน MS Office ได้อย่างไร