Excele Gönderme

[mu_tek]

Arkadaşlar Accessten excele veri göndermeişleminin kodla yapılmış örneği olan varmı?
Şimdiden teşekkürler

 

[yasaramca]

Merhaba,

Sorguyu excel de bir dosyaya göndermek;

Private Sub Komut374_Click()
Dim Klasor As String
Klasor = "C:\Belgelerim\Takim Lideri\HEDEF_SAATLIK_FLOOR.xls"
DoCmd.TransferSpreadsheet acExport, 8, "Sorgu adı", Klasor, True, ""
Application.FollowHyperlink "C:\Belgelerim\TakimLideri\HEDEF_SAATLIK_FLOOR.xls", , True, True
End Sub