…As Excel.Application Dim oWB As Excel.Workbook Dim oSheet As Excel.Worksheet Dim oRng As Excel.Range ‘Pada Galat GoTo Err_Handler ‘ Mulai Excel dan dapatkan objek Aplikasi. Set oXL = CreateObject(“Excel.Application”) oXL.Visible…