Membuat Laporan dalam Excel dengan Visual Basic

Private Sub cmdexcel_Click()
Dim baru As New Excel.Application

With DE.rskaryawan

If .State = 0 Then .Open
.Filter = adFilterNone

judul = "B2:" & Chr(.Fields.Count + 65) & "2" 'menentukan range
header = "B4:" & Chr(.Fields.Count + 65) & "4"
pilih = "B4:" & Chr(.Fields.Count + 65) & .RecordCount + 3

baru.Workbooks.Add 'membuat lembar kerja baru