excel hücresindeki değer( C6 gibi) tabloya eklensin

[zehirli]

excelden yalnızca belirlediğim hücrelerden alacağım değeri tabloda belirlediğim alanlara kayıt edecek bir module arıyorum.sitede bir tane örnek var ama onu çalıştıramadım.yardımcı olurmusunuz?

ACCESS EXCEL

Kitap adı = Sayfa1!A34
Müşteri adı = Sayfa2!C5

 

[zehirli]

sorularıma cevap

benim sorularım ya çok saçma yada cevaplanması çok zor. niye kimse cevap vermiyor..

 

[modalı]

Sayın zehirli,

Öncelikle soru sorarken bir örnek eklerseniz daha çabuk sonuca ulaşabilirsiniz. Hem ezbere sorular cevaplandırılıyor sonra da olmadı ben bunu istemiyordum gibi geri bildirimle karşılaşıyorum. Bir soru soruyorsunuz cevabını verecek olan bir acces uygulaması hazırlaması gerekir sonra bir excel uygulaması. Kodları yazacak ondan sonra da siz benim uygulamam böyle değil deyip başka bir soru soracakınız. Soruyu sormak için yarım dakika yetiyor ama cevap için belki de bir saate gerek var. Onun için mutlaka soru sorarken örnek ekleyin.

 

[zehirli]

ilginize teşekkürler

sayın modalı sizde olmasanız sorularımıza cevap bulamayacağız..
teşekkür ederim..

bahsettiğim access ve excel dosyası ekte.inceler ve cevap verirsen sevinirim

 

[modalı]

Sayın zehirli,

Önce düğümeyi klikleyip verileri aldığınız formun veri kaynağını "Tablo1" olarak ayarlayın ve sonra aşağıdaki kodları kod sayfasına kopyalayıp yapıştırın.

Bir de referansları kontrol edin Microsoft Oficce 1x ile Microsoft Excel 1x referanslarının eklenmiş olması gerekiyor.

Public Sub VeriAl()
Dim xlApp As New Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Dim Name As String
ReDim Veri(4) As Variant
Name = CurrentProject.Path & "\Kitap2.xls"

Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open Name, , 0
    
    xlApp.Sheets("Sayfa1").Select
    xlApp.Range("A2").Select
    Veri(0) = xlApp.Range("A2")
    
    
    xlApp.Sheets("Sayfa2").Select
    xlApp.Range("A2").Select
    Veri(1) = xlApp.Range("A2")
    
    xlApp.Sheets("Sayfa3").Select
    xlApp.Range("A2").Select
    Veri(2) = xlApp.Range("A2")
    
    DoCmd.GoToRecord , , acNewRec
        donemi = Veri(0)
        okunan = Veri(1)
        okunamayan = Veri(2)
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    
    xlApp.Workbooks.Close
    Set xlApp = Nothing
    
End Sub
Private Sub Komut0_Click()
VeriAl
End Sub

İyi çalışmalar

 

[zehirli]

hata verdi

Çok TeŞekkÜr Ederİm

Çok İŞİme Yarayacak

 

[modalı]

Sayın zehirli,

O zaman form üstündeki düğümeyi silin. Yeni bir düğüme ekleyin. Kod sayfasına geçip düğümenin klik olayını seçin altına da VeriAl diye yazıp kaydedin ve böylece bir deneyin.

İyi çalışmalar

 

[zehirli]

hata alıyorum

sayın modalı çok teşekkür ederim.deminki sorunu çözmüştüm
benim unutkanlığımdan kaynaklanan bir durumdu.
şimdi şöyle bir sorunum var
alt alta 10 kayıtı tek bir tıklamayla alabilmem için nasıl bir döngü kurmam gerekiyor.(hücre numaraları birer artacak örneğin ilk kayıt b6 ise b7 b8 b9.....b16 gibi olacak)

böyle bişey yaptım ama olmadı.

Public Sub VeriAl()
Dim xlApp As New Excel.Application
Dim xlWB As Excel.Workbook
Dim xlWS As Excel.Worksheet
Dim Name As String
ReDim Veri(14) As Variant
Name = CurrentProject.path & "\aralik_2006.xls"

Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open Name, , 0

For I = 0 To 7
xlApp.Sheets("T11").Select
xlApp.Range("A(I)").Select
Veri(I) = xlApp.Range("A(I)")


DoCmd.GoToRecord , , acNewRec
Abone_tipi = Veri(I)

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Next

xlApp.Workbooks.Close
Set xlApp = Nothing

End Sub

Private Sub Komut15_Click()
VeriAl

End Sub

 

[modalı]

Sayın zehirli,

O zaman

xlApp.Range("A2") olarak kullanılan satırı

xlApp.Cells(satırsayısı,sütunsayısı)

olarak kullanmanız gerekir. Yani A2 hücresi xlApp.Cells(2,1) olarak gösterilir.

For I=1 To 8

Veri(I)=xlApp.Cells(I,1)

Next I

İyi çalışmalar

 

[zehirli]

çok teşekkürler

sayın modalı çok çok teşekkür ederim..Size bunun için yemek bile ısmarlayabilirim

çok iyisin

 

[zehirli]

sayın modalı yine bi ricam var

Name = CurrentProject.path & "\aralik_2006.xls"
bu satırın sonundaki dosya ismini bir browse işlemi yaparak buraya parametre olarak nasıl aktarabilirm..

dosyalarım hem farklı klasörlerde hemde isimleri değişik olacak

birde verileri aldığım formun veri kaynağını "Tablo1" olarak ayarlamıştım ama tek bir tıklamayla aynı excel dosyasının içindeki farklı sheet de bulunan verileri farklı farklı tablo lara atmam gerekiyor..Bu durumda formun da veri kaynağını dinamik olarak değiştirmem gerekecek.ama nasıl yapılacğını bilmiyorum.

Bu konularda da yardımcı olursan çok sevinirim..

 

[modalı]

Sayın zehirli,

Birşeyler yapmaya çalıştım umarım işinizi görür. Ama baştan tam olarak tüm dosyaları tam olarak yollasaydınız daha derli toplu olabilirdi.

İyi çalışmalar

 

[zehirli]

aslında tamda istediğim şeyi yapmışsınız

formun tasarımından istediğim şey olduğu kesin ellerine gözlerine sağlık. ancak BROWSE a bastım ve aşağıdaki satırların işaretli olduğunu gördüm .

Optional ByVal strDialogTitle As String = "", _
Optional ByVal fOpenFile As Boolean = True) As Variant

sanırım bir yada birkaç reference eksik ama hangisini yükleyeceğim bilmiyorum..
yardımın için çok teşekkürler.

 

[modalı]

Sayın zehirli,

Öncelikle sorunuza cevap vereyim:

Referanslarda bazen eksiklik oluyor. Onun için referans hatası olduğunu şüphelendiğiniz an referansları açıp bakmanız gerekiyor. o sırada bazılarının önünde Missing (kayıp) ibaresi bulunabiliyor. O zaman önündeki kutuyu boşaltıp uygulamayı kaydedin kapatın ve tekrar açın bu hatadan kurtulmuş olduğunuzu göreceksiniz.

Gelelim uygulamanıza bu sabah geliştirilebilir olduğunu gördüm. Şimdi browser dan işaretlediğiniz excel dosyasının sayfa adlarını otomatik olarak tabloya kaydetmeden getirmeye başladım. Şimdi otomatik olarak tablo adlarının açılan kutuya nasıl getirebileceğimi araştırıyorum.

Ama yine de sizin kabahatiniz. baştan tam olarak ne yapmak istediğinizi ve gerçek uygulamanızı ekleseydiniz daha çabuk ilerlerdik.

Şimdi şüphede kaldım, değişik sayfalardan aynı kayıt için veri alacakmısınız? Bilemiyorum

İyi çalışmalar

 

[zehirli]

size karşı mahçubum sayın modalı

baştan dediğiniz gibi yapamadım çünkü herşey yeni yeni oturuyor.
ama şu kadarını söyleyim excel sheetlerinden her biri ayrı bir tabloya gidecek
ben daha sonra elde ettiğim tablolardan sorguyla özet tablolar yapacağım..

ilgii referanslarda missing ibaresi yok.sizin gönderdiğiniz dosyayı henüz programa adapte etmedim
direk olarak sizin uygulamayı test etmek istedim ama compile error:
Can't find project or library hatasını alıyorum..

birde her bir tabloya sizin form2 de yaptığınız kısma DONEMi, İLİ comboboxları yada data giriş kutuları koyacağım..kaydederken tüm tablolarda bu DONEMi ve İLİ alanları olduğu için bunları excelden aktarırken her bir kaydın başına koyacak..

ayrıca mükerrer girişleri önlemek için TRANSFER diye bir alan ekledim her tabloya ki en güncel kaydı gözönüne alsın diğerlerini almasın diye.TRANSFER alanının varsayılanına da =Now() dedim.

teşekkürler.

 

[zehirli]

Ayrica Ektekİ Kodlari Yazdim

aşağıda yazdığım kodlar nasıl birşey yapmaya çalıştığım hakkında bilgi verecek sanırım.

 

[zehirli]

sayın modalıya

üstad sanırım bizim konuyu unuttunuz..
bu konuya çok ilgi var..banada mesajlar geliyor..
tam olarak sonuçlandırabilirsek sevinirim..
herkes kullanır :roll: