exceldeki verileri accesse kaydettirme

[iko67]

arkadaşlar bi sorunum var yardım eder misiniz?benim için ilgilenirseniz çok sevinirim.çok acil.
sorunum:
formumdaki EKLE butonuna bastığımızda o dosyanın bulunduğu klasörün içindeki excel dosyasını açtıracak. ve o listeyi aynen öğrenci listelerine yapıştıracak. ama arkadaşlar bunu yaparken "dış veri al" ı kullanamayız. program access bilmeyenlere göre düzenleniyor. zaten çalışmam bittiğinde(inş) dosya menüsü de gözükmeyecek.
bunu benzer bir örnek daha önce yapılmıştı.ancak accesste yeni olduğum için saatlerce uğraşmama rağmen kendime uygulayamadım.
şimdiden teşekkür ederim.

 

[iko67]

böyle bir şey yapılamaz mı arkadaşlar bir fikri olan varsa lütfen yardım edebilir mi?
benim için çok önemli!!!!!!

 

[cyberwolf1980]

konuyu tam olarak anladıgımı soyleyemem ama anladıgım kadarıyla ( ve bıldıgım kadarıyla ) bır excel dosyasını accestekı tablolara eklemek ıstıyorsunuz.
bunun ıcın db ye baktım formatı bana bıraz degısık geldı dosya yolu yerıne alttakı koddakı gıbı sabıt bır dosya adını kullanırsanız ve form uzerınde sadece bır tusa makro atasanız bence daha ıyı olur.

Private Sub Komut14_Click()
On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\EXCELDOSYASI.xls"
If MsgBox("aktarmak istiyor musunuz? ", 36, "EXCELDOSYASI.xls 'ye aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "EXCELDOSYASI", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If
End Sub

daha ıyı bılen arkadaslarımız baska cozum yollarıda sunabılırler
ıyı gunler.

 

[iko67]

sayın cyberwolf1980 dediğinizi denedim fakat olmadı aslında benim istediğim belli bir klasörde bulunan birkaç tane excel belgesinden istediğim birini seçmek. teşekkür ederim ilginize bu konuda yardımcı olursanız çok sevinirim.

 

[cyberwolf1980]

aklıma soyle bır duzenleme gelıyor.
form uzerındekı dosya yolunu yazdıgınız metın kutusunun adını dosyaadı olarak degıstırıp alttakı gıbı deneyın yanlız koddan tam emın degılım 1 yıldır bunlarla ugrasmıyorum hatırladıklarımla alttakı gıbı bır degısıklık yapabıldım sız devam edın bır deneyın bakalım olacakmı ok

Private Sub Komut14_Click()
$exceldosyası = "dosyaadı"
On Error GoTo Err_aktar

Dim Klasor As String
Klasor = CurrentProject.Path & "\$dosyaadı"
If MsgBox("aktarmak istiyor musunuz? ", 36, "... Tablosuna aktarılacak") = 6 Then

DoCmd.TransferSpreadsheet acExport, 8, "$dosyaadı", Klasor, True, ""
MsgBox "Aktarma işlemi tamamlandı", 0, "VERİ AKTARIMI"

Exit_aktar:
Exit Sub

Err_aktar:
MsgBox Error$
Resume Exit_aktar

End If
End Sub

 

[iko67]

çok teşekkür ederim ilginize.dediğinizi yaptım bu defa hata vermedi.acaba klasörü mü yanlış yerde açtım?Ben C:/DENEME adlı klasöre kaydetmiştim fakat bulamadım.dosyayı gönderiyorum.tekrar teşekkürler

 

[attila52]

excel den accesse dosya almak

sayın ico67 ,
excel dosyalarının herhangi birini alıp açmak istiyorsunuz yada alt form olarak bir ole nesnesi olarak göstermek gibi örnek uygulamada sadece access içinde excel dosyası nasıl açılır o var seçtiğin bir excel dosyası peki siz bunu kendi uygulamanıza uygulamanız gerekecek. iyi çalışmalar

 

[attila52]

sayın kardeşim senin örneğini inceledim aynı anda excel dosyasını açacak açtık o tamam kardeşim açtıktan sonra verileri alacak hangi verileri onuda anladık ama excel adı üzerinde xls bilmiyorum bunun anlamını biliyormusunuz sizi sadece anlamaya çalışıyorum yanlış anlamayın x bu çapraz veri diyeceksinki ne alaka çok alaka access te sütün baz alanır excel de ise a1 c1 vs vs gibi senin veri alanların excel deki sabit olmayacaktır herhalde sürekli değişken excel in nebileyim örneğin birinde No a1 c1 ise diğerinde b1 c2 olabilir bunu nasıl belirlemek gerekiyor bunun yerine bence siz ole nesnesi yani benim gönderdiğim örnekteki gibi kullanmanız gerekecek bunu eğer uygulamanıza atayamazsanız yardımcı oluruz. evet diyeceksiniz ki neden olmuyor oluyor olmasına ama şöyle düşünün genelde el terminalleri vardır barkod okuyucular bunları çalıştıran bas dosyaları eski qbasıc de yazılmış küçük autoexec dosyaları gibi bunların içeriğinde örneğin sizin proğramınızda başvurduğunuz bir dosya ise ondada txt not belgesini dat dosyasını otomatik açtığını ve aktarım bittikten sonrada sildiğini düşünün nedeni dosyayı terminalden atar veriler sütün halinde dökülür örneğin başlığı yoktur yani etiket yoktur sadece siz sütün no larına başvurursunuz bunun gibi olması gerekecek neyse ben sizin kafanızı daha fazla karıştırmayayım ole nesnesi kullanınız.

 

[attila52]

neyse sizini istediğiniz gibi üstünde ilgileniyorum biraz zaman gerekli

 

[iko67]

çok teşekkürler sayın atilla52. gönderdiğiniz örnek çok gzl.şimdi kendime uyarlamaya çalışacam.fakat anlattıklarınız çok karışık geldi.benim accesse alacağım excel dosyaları bir kere belirlendikten sonra bi daha değişimine gerek yok.bunlar zaten sınıf listeleri olacak.onları da sınavlara bağlayacağız.olayın özeti bu aslında.

 

[iko67]

sayın attila52 sizin örneğinizi inceledim.kendime uyarlamaya çalıştım.fakat sorunla karşılaştım.form yüklendiğinde de hata verdi.size yapmaya çalıştığım uygulamayı gönderiyorum.hatamı bulamadım siz düzeltebilir misiniz?bi de sayın attila52 excelden alınan verileri teker teker metin kutusuna aktarabilecek bi seçenek var mı? yani "dış veri al" işlemini tek bir buton yardımıyla yapabilecek olan.çünkü benim sınavlar ve yoklamalar diye de tablolarım var.ve bu öğrenci listeleri mesela sınavlar tablosundaki "öğrenciadı" ve "öğrencino" ya aktarılcak.bana vakit ayırdığınız için size minnettarım.çok teşekkürler!

 

[attila52]

sayın iko67 hata office object 11.0 library yani dialog hatası referance seçilmeli fakat şimdilik buna gerek yok ben uygulamanızı sizin isteğinize göre ayarlamaya çalışıyorum vaktim biraz kısıtlı o yüzden gecikme olursa kusura bakbayınız.

 

[iko67]

çok teşekkür ederim sayın attila52 vaktinizi ayırdığınız için çok teşekkürler.sabırsızlıkla bekliyorum cevabınızı.

 

[attila52]

Excel Den Acces E Aktarim

çok teşekkür ederim sayın attila52 vaktinizi ayırdığınız için çok teşekkürler.sabırsızlıkla bekliyorum cevabınızı.

uygulamanız ekte burada sizin excel den aktarım sırasında arabirim olarak sorgu olarak kullanılan aktarılan aında ki sorgu senin OGRENCILISTESI tablosundaki alanları F1 ile başlayan alanlar olarak karşılığında verileri aktarıyor aksi takdirde aktarmayacaktır bilginize bu sorguyu silmeyiniz yada diğer excelden aktarmak istediğiniz farklı veriler için de aynı yöntemi uygulaya bilirsiniz sizin seçim yaptığınız excel içindeki alan sayısı önemli 7 alandan ibaret benim ayarladığım sizin tablonuza göre iyi çalışmalar.

 

[iko67]

çok güzel olmuş sayın attila52. benim yapmak istediğim de tam anlamıyla buydu.size ne kadar teşekkür etsem az.yapmış olduğunuz bu örneği ben bir de sınavlar ve yoklamalar formuna uyarlamaya çalışacağım.gene yapamazsam yardımlarınızı bekliyorum.inşallah sizin yaptığınız gibi yapmayı başarırım.tekrar tekrar teşekkürler.iyi çalışmalar.

 

[iko67]

sayın attila52 sizin çalışmanızı kendi çalışmama uyarlamaya çalışırken hatayla karşılaştım.karşılaştığım hatanın resmini gönderiyorum gönderiyorum.isterseniz çalışmamı da gönderebilirim.bana gene yardım eder misiniz lütfen.çok teşekkür ederim

 

[modalı]

Sayın ıko67,

Referanslara bakın içlerinden eksik olanlar olabilir. Eğer uygulamanızda referanslar penceresinin bir referansı eksik ise onun önündeki kutuyu boşaltın uygulamanızı kapatıp tekrar açın.

İyi çalılşmalar

 

[iko67]

sayın modalı referans olayım biraz karışık, anlamadığım bu referansları ben elimle girmedim. fakat bir çoğu aktif gözüküyor. başka bilgisayarlarda çalışmamı denediğim zaman bu referanslar hataya sebep oluyor (ilgili bilgisayarda referanslar yüklü olmadığından) ben sizin dediğiniz gibi bir sorun göremedim çalışmamda. Bu hangi referanstan dolayı olabilir? referansalarımı size ekte gönderiyorum

 

[modalı]

Sayın iko67,

Visual Basic for Aplication

Microsoft Office 11.0 Library Object

referanslarını da ekleyin. Ancak bu kadar çok referans neden var bunu anlayamadım. hepsi kullanılıyor mu?

iyi çalışmalar

 

[attila52]

sayın iko67 Microsoft Office 11.0 Library Object
yukarıda sayın modalının da belirttiği referans bölümüne eklemenizi ve aksi takdirte çalışmayacağını anlattım size siz bence benim gönderdiğim örnek zaten sizin örneğiniz onu kullanınız ve diğer işlemlerinizi de onun üstünde yapınız