完整代碼如下：

Sub ReplaceTextInFiles()

??Dim wb As Workbook

??Dim ws As Worksheet

??Dim strFolder As String

??Dim strFile As String

??Dim strOutFolder As String

???

??Application.ScreenUpdating = False

??Application.EnableEvents = False

??strFolder = "C:\Users\Administrator\Desktop\DEMO\Input\"

??strOutFolder = "C:\Users\Administrator\Desktop\DEMO\Output\"

??strFile = Dir(strFolder & "*.xls*")

??Do While strFile <> ""

????' Open workbook

????Set wb = Workbooks.Open(Filename:=strFolder & strFile)

????' Loop through each worksheet

????For Each ws In wb.Worksheets

??????' Replace text

??????ws.Cells.Replace What:="Order Number", Replacement:="訂單號", LookAt:=xlPart, _

????????SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

????????ReplaceFormat:=False

??????ws.Cells.Replace What:="Customer Name", Replacement:="客戶名", LookAt:=xlPart, _

????????SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _

????????ReplaceFormat:=False

????Next ws

????' Save and close workbook in the Output folder

????wb.SaveAs Filename:=strOutFolder & wb.Name

????wb.Close SaveChanges:=False

????' Get next file

????strFile = Dir

??Loop

??Application.ScreenUpdating = True

??Application.EnableEvents = True

End Sub