Script Macro Excel Menggabung Banyak Workbook

Berikut script/kode pada Ms. Excel (Macro Visual Basic):

Sub CombineWorkbooks()
    Dim FilesToOpen
    Dim x As Integer

    On Error GoTo ErrHandler
    Application.ScreenUpdating = False

    FilesToOpen = Application.GetOpenFilename _
      (FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
      MultiSelect:=True, Title:="Files to Merge")

    If TypeName(FilesToOpen) = "Boolean" Then
        MsgBox "No Files were selected"
        GoTo ExitHandler
    End If

    x = 1
    While x <= UBound(FilesToOpen)
        Workbooks.Open FileName:=FilesToOpen(x)
        Sheets().Move After:=ThisWorkbook.Sheets _
          (ThisWorkbook.Sheets.Count)
        x = x + 1
    Wend

ExitHandler:
    Application.ScreenUpdating = True
    Exit Sub

ErrHandler:
    MsgBox Err.Description
    Resume ExitHandler
End Sub

Cara menggunakan scrip di atas:

1. Siapkan beberapa file excel (workbook) yang akan digabung dalam 1 (satu) folder
2. Buka excel baru (new workbook)
3. Tekan tombol keyboard kombinasi Alt + F11
4. Setelah muncul lembar kerja Microsoft Visual Basic, tekan menu Insert + Module
   
   
5. Copy paste kode di atas dalam module
6. Jalankan macro tersebut dengan menekan F5 pada keyboard
7. Ikuti langkah berikutnya sampai selesai.

Fungsi scrip di atas adalah menggabung workbook (file excel) dalam satu workbook.  Dan hasil gabungan tadi terbagi dalam beberapa worksheet sejumlah workbook yang digabung. Jadi semisal ada 5 workbook, maka setelah digabung maka jadi 1 workbook 5 sheet.

Tweet

Subscribe to receive free email updates: