Bisakah Anda membantu saya dalam masalah di bawah ini. Saya memiliki buku kerja dengan banyak lembar dan membagi Nama lembar selalu dimulai dengan AB*** Kode di bawah ini membagi semua lembar tetapi saya hanya mencari lembar AB*** yang perlu dipisah di jalur yang sama dengan membuat folder (contoh AB987 Dimulai dengan AB dan beberapa angka )

Sub SplitEachWorksheet() 
  Dim FPath As String 
  FPath = Application.ActiveWorkbook.Path 
  Application.ScreenUpdating = False 
  Application.DisplayAlerts = False 
  For Each ws In ThisWorkbook.Sheets 
    ws.Copy 
    Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx" 
    Application.ActiveWorkbook.Close False 
  Next 
  Application.DisplayAlerts = True 
  Application.ScreenUpdating = True 
End Sub 
2
Rahul2020 27 Mei 2021, 18:54

1 menjawab

Jawaban Terbaik

Dengan asumsi sisanya berfungsi, berikut adalah cara memeriksa nama terlebih dahulu.

  Dim ws as Worksheet
  For Each ws In ThisWorkbook.WorkSheets 
    If Left$(ws.Name, 2) = "AB" Then ' <--- added an IF statement
      ws.Copy 
      Application.ActiveWorkbook.SaveAs Filename:=FPath & "\" & ws.Name & ".xlsx" 
      Application.ActiveWorkbook.Close False 
    End If
  Next 
0
braX 27 Mei 2021, 16:22