- Katılım
- 26 Mayıs 2007
- Mesajlar
- 10
- Excel Vers. ve Dili
- excel 2007 english
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
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