1 2 3 4 5 6 7 | Dim KlsrYl As String KlsrYl = CurrentProject.Path & "\dosyaadi.xls" 'Dosyaları 2007 sürümde kaydetmek için "....acExport, 8,..." kısmında buluna 8'i 9 yapınız.. DoCmd.TransferSpreadsheet acExport, 8, "Tablo-SorguAdı", KlsrYl, True, "SayfaAdı" MsgBox "Aktarım tamamlandı.." |

