Excele Aktarma ile Etiketlenmiş Yazılar
Sorgu veya tabloyu uygulamanın olduğu dizine Excel olarak aktarma
Taruz tarafından, Ms. Access, Ms. Access Örnek Kodlar kategorisi altında, 06 Haziran 2010 tarihinde gönderildi
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ı.."
Dizini Seçip Excele Aktarma
Taruz tarafından, Ms. Access, Ms. Access Örnek Kodlar kategorisi altında, 07 Aralık 2009 tarihinde gönderildi
1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim fold As Object Set fold = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Klasör seçiniz…", 0) If fold Is Nothing Then Exit Sub Dim KlsrYl As String KlsrYl = fold.Self.Path & " \ dosyaadi.xls" ‘osyaları 2007 sürümde kaydetmek için "….acExport, [...]
