Accessten Excele otomatik transfer

[thriller16]

Excel'e kayıt için aşağıdaki kodda kaydetme sorusu soruyor otomatik nasıl kaydederim? Macro 1 ile siliyorum verileri ve yenilerini accesten alıyorum. Ama bazı hatalar veriyor sizce doğru kod bumudur?

Private Sub Command19_Click()
Dim xlsApp As Excel.Application
Dim xlswkb As Excel.Workbook
Set xlsApp = CreateObject("Excel.Application")
Set xlswkb = GetObject("C:\MALZEME.XLS")

xlsApp.Application.Run "MALZEME.XLS!Macro1"

xlsApp.Quit


DoCmd.TransferSpreadsheet acExport, 8, "ornek", "C:\MALZEME.XLS", False
End Sub

 

[modalı]

Sayın thriller16,

Bu iş için en sağlamı ADO kullanmak. O zaman ne exeldeki makroyu çalıştırmak ne de,
DoCmd.TransferSpreadsheet acExport, 8, "ornek", "C:\MALZEME.XLS", False
komutunu kullanmanız gerekir. Yani exceli dış veri tabanı gibi kabul edip, access den kodlarla istediğiniz silmeleri, eklemeleri, biçimlendirmeleri yapabilirsiniz. Bir sene önce bu tür sorular revaçta idi, ve çok örnek ekledim. Ama yine de siz basit bir örnek ekleyin. Ama hem Access hemde Excel uygulamaları olsun ve tam olarak ne yapmak istediğinizi de eklerseniz, yardımcı olmaya çalışayım.

İyi çalışmalar

 

[omerceri]

Cevap yanlış olduğu için sildim.
Excelde tek sayfa kalsın onunda adı Access'teki tablonun adı ile aynı olsun.