Export ke excel

       ' EXPORT TO EXCEL

            If ListView1.ListItems.Count = 0 Then
                MsgBox "Tidak ada data!", vbExclamation, App.Title
                exit sub
            End If
       
        XLSFILENAME = ""
        With Me.cd1
            .Filter = "Excel Workbook (.xls)"
            .ShowSave
        XLSFILENAME = .filename
        End With
      
        If XLSFILENAME = "" Then
        Exit Sub
        End If
      
        Call ExportListview(ListView1, XLSFILENAME)
            MsgBox "Export sukses!", vbInformation, App.Title
        XLSFILENAME = ""