accessten excele

[aktif42]

Accesste yapılmış c:\teşvikler.mdb adlı veri tabanım var. Kayıtları girdikten sonra raporla adlı form aracılığıyla bazı kriterler girip buna uygun verileri sorgu kanalıyla elde ediyorum. Mesela Forma yazmış olduğum ilçeye ait yine forma yazmış olduğum tarihler arasındaki verileri "teşvikler" adlı sorguyla elde ediyorum. Bu sorgudaki süzülmüş verileri "C:\cetveller.xls" adlı çalışma kitabı kapalıyken açtırıp "veriler" sayfasına; access te "raporla" adlı forma koyacağım bir buton ve buna yazacağım kodlarla aktarmak istiyorum. Yardımcı olan olursa sevinirim.

 

[Haluk]

VBA mutlaka gerekli mi ?

Excel'de "dış veri al" yöntemiyle yapsanız, işinize yarar mı ?

Sadece alternatif olsun diye söyledim ...

 

[Haluk]

Bu arada, aşağıdaki linkte de VBA ile çözüm var.

http://www.excel.web.tr/viewtopic.php?t=17806

 

[aktif42]

haluk bey, vba kodu yazmadan olacağını sanmıyorum. Accessin zaten excel ile çözümle diye menüsü var. Sorgu açıkken bu tuşu kullandığınızda access te varsayılan kayıt yerine sorgunun adıyla (genellikle bu belgelerim oluyor) bir xls dosyası açıyor zaten. Benim gayem "C:\cetveller.xls" adlı çalışma kitabı kapalıyken açtırıp "veriler" sayfasına verileri aktarmak.

 

[Haluk]

Link'i yerleştirdim.

 

[modalı]

Sayın aktif42,

Herkese baştan kodları yazıp yardımcı olmaya çalışıyorum. Siz de uygulamanızı ekleyin kodlarını yazayım.

Eğer kendiniz yapmak istiyorsanız ki o da kolay, dikkat etmeniz gereken bir kaç nokta var.
1. Uygulamaların içinde bir modülü ve bir tabloyu kendi uygulamanıza eklemeniz gerekiyor.
2. Referanslara dikkat etmeniz gerekiyor.

Modülün içinde gerekli açıklamalar var.

iyi çalışmalar

 

[aktif42]

linkte excele aktarma için desktop.zip in içinde kod yazılmış (Function fnTabletoExcel()) ama daha başlangıçta Dim xlApp As New Excel.Application
da can't find project or library hatası veriyor. ilginize teşekkür. en kısa zamanda hem access hem excel dosyalarını ekleyeceğim.


Sayın Modalı ve Haluk Bey Dosyayı ekledim. Yardımcı olmanız dileğiyle........

 

[modalı]

Sayın aktif42,

Dediğim gibi referans eksikliği var. Microsoft Excel 1x Objeckt Library eksik.

İyi çalışmalar