จะ copy multi sheet ต้นทางเข้าใน WBใหม่ อันเดียว

[bkkrong]

ปัญหามี 3 ส่วนครับ
1 script ไม่สามารถ copyแต่ละ sheet เข้าไปในแต่ละ sheet ในWBใหม่ได้ มันสร้าง1sheetต่อ 1 WB
อยากให้มีแค่ WB เดียว แต่ใส่ได้หลาย sheet
2 ถ้ามีชื่อfile เดิมแล้ว สั่ง kill ชื่อนี้แล้ว ไม่ทำงาน เขียนscript อย่างไรให้ถูกต้องครับ
3 ถ้าจะcopy cell บางส่วนใน ตันฉบับ มาสร้างใน WBใหม่ ทำได้ใหม่เช่น
old WB "sheet aa" ต้องการfield column A ,B และ AO มาลอกใส่ ในWBใหม่นี้ ในsheetใหม่ โดยfilter เฉพาะ AO ที่มีคำว่า pcu
เท่านั้น จะเขียนscript อย่างไรครับ

Code: Select all

Sub addbuilt_addrealbuy()


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
Sheet1.Activate
    ' Make a copy of the active worksheet
    ' and save it to a temporary file
    ActiveSheet.copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    
   Application.ScreenUpdating = False
Sheet2.Activate
    ActiveSheet.copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    
    
    
     Application.ScreenUpdating = False
Sheet4.Activate
    ActiveSheet.copy
    Set WB = ActiveWorkbook
    FileName = WB.Worksheets(1).Name
    On Error Resume Next
    
    
    
    
    
    
    Kill "àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    On Error GoTo 0
    WB.SaveAs FileName:="àÍ¡ÊÒêشἹ¨Ñ´«×éͨÃÔ§"
    Application.CutCopyMode = False




End Sub

[snasui]

กรุณาแนบไฟล์ที่เขียน Code VBA นี้แล้วมาด้วย จะได้ดูต่อไปจากนั้นครับ