cara memecah/ export sheet excel menjadi banyak file
caranya hanya beberapa langkah : 1. buka file excel yang ada banyak sheet nya 2. tekan Alt + F11 (akan muncul jendela baru - microsoft visual basic for application) 3. masuk tab Insert > Module, and pastekan macro dibawah ini pada Module Window Sub SplitWorkbook() 'Updateby20140612 Dim FileExtStr As String Dim FileFormatNum As Long Dim xWs As Worksheet Dim xWb As Workbook Dim FolderName As String Application.ScreenUpdating = False Set xWb = Application.ThisWorkbook DateString = Format(Now, "yyyy-mm-dd hh-mm-ss" ) FolderName = xWb.Path & "\" & xWb.Name & " " & DateString MkDir FolderName For Each xWs In xWb.Worksheets xWs.Copy If Val(Application.Version) < 12 Then FileExtStr = ".xls" : FileFormatNum = -4143 Else Select Case xWb.FileFormat Case 51: FileExtStr = ".xlsx"