nihayet istediğim oldu.dersp dosyası c nin içinde açılmalı.dersp dosyasının içinde bulunan pers.xlslx Excel dosyasına istediğim şekilde yazdı.nasıl yaptığıma gelince

form1 üzerine aldığım komut düğmesinin tıklama olayına aşağıdaki komutları yazınca her dersi saati kadar Excel sayfasına yazmış oldu.

Set Db = OpenDatabase("C:\dersp\dersp.accdb")

Set Rs = Db.OpenRecordset("tbl_sınıf", dbOpenSnapshot)



Set XLapp = CreateObject("Excel.Application")



Set XLwb = XLapp.Workbooks.Open(CurrentProject.Path & "\pers.xlslx")



Set XLsh = XLwb.Sheets(1)

XLapp.Visible = True



Rs.MoveFirst

Do While Not Rs.EOF



For i = 1 To CInt(Rs!saati)

Dim sayac As Integer



sayac = sayac + 1



XLsh.cells(2, sayac).Value = Rs!sınıfadı



Next i

Rs.MoveNext



Loop

Ek Dosyalar

dersp.rar(58.38 KB)