Excel Forum

Code: Select all

Sub transfer_WB()
MsgBox "ÃкºAI ¨ÐÍÍ¡àÍ¡ÊÒÃà»ç¹ªØ´·Ñé§ËÁ´ ãÊèã¹ Workbook Excel ãËÁè à¾×èÍÊдǡ㹡ÒþÔÁ¾ìàÍ¡ÊÒÃ"
Dim oApp As Object
    Dim oMail As Object
    Dim WB As Workbook
    Dim FileName As String
    Dim wSht As Worksheet
    Dim shtName As String

    Application.ScreenUpdating = False
Sheets(Array(Sheet24.Name, Sheet25.Name, Sheet26.Name, Sheet4.Name, Sheet9.Name)).Copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    Kill "àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    On Error GoTo 0
    
    WB.SaveAs FileName:="àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    Application.CutCopyMode = False
    Application.ScreenUpdating = True