ActiveWorkbook.SaveAs "\\C:\Users\curryjeng\Desktop\¦Û°Ê¦X¨Ö.xlsx"
i = 1
Workbooks(Filename).Close
Else
Sheets(1).Copy After:=Workbooks("¦Û°Ê¦X¨Ö.xlsx").Sheets(1)
Workbooks(Filename).Close
End If
' ¨CÓSheet³£½Æ»s
' For Each Sheet In ActiveWorkbook.Sheets
' Sheet.Copy After:=ThisWorkbook.Sheets(1)
' Next Sheet
Application.ScreenUpdating = True
End Sub
ActiveWorkbook.SaveAs "\\C:\Users\curryjeng\Desktop\¦Û°Ê¦X¨Ö.xlsx"
i = 1
Workbooks(Filename).Close
Else
Sheets(1).Copy After:=Workbooks("¦Û°Ê¦X¨Ö.xlsx").Sheets(1)
Workbooks(Filename).Close
End If