Excel 多個工作表轉匯 TXT
巨集如下 Sub Macro1() Dim ws As Worksheet For Each ws In Worksheets ws.Select ActiveWorkbook.SaveAs Filename:=ws.Name & ".txt", FileFormat _ :=xlText, CreateBackup:=False Next End Sub 來源: https://www.ptt.cc/bbs/Office/M.1228059386.A.081.html