Kapalı olan dosyaya veri aktarma.

[Harmankayamehmet]

Merhabalar..
Forumda kapalı dosyalara veri aktarmayı ararken aşağıdaki Evren Gizlen hocaya ait kodları buldum.Makrolar hakkında fazla bilgim olmadığından kendi dosyama uyarlayamadım."D" deki DEPO isimli bir klasörde bulunan KALIP isimli tek sayfa excel çalışma kitabından yine daha önceden forumdam temin ettiğim;

Sub YEDEK_OLUŞTUR()
Dim Dosya_Yolu As String
Dim Dosya_Adı As String
Application.DisplayAlerts = False
Dosya_Yolu = "D:\DEPO\"
Dosya_Adı = Range("A1") & " " & Format(Now, " ") & ".xls"
ActiveWorkbook.SaveAs (Dosya_Yolu & Dosya_Adı)
MsgBox "Yedekleme işlemi tamamlanmıştır.", vbInformation
If Excel.Application.Windows.Count = 1 Then

Else

End If
End Sub

kodu ile A1 hücresindeki değişen isme göre isim alan çalışma kitablarını aynı klasöre aktarıyorum.DEPO klasöründe 20 veya 30 civarında çalışma kitabı oluşuyor.

Aşağıdaki Evren Gizlen hocaya ait bu kodları KALIP isimli sayfadaki "A1" hücresindeki değişen değere göre değiştirirseniz çok sevinirim..Teşekkürler.



Sub kapaliye_aktar()
'Tools referanslardan Microsoft activex Dataobjext 2.8 library seçildi
Dim conn As ADODB.Connection, rs As ADODB.Recordset
Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset
conn.Open ("Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path _
& "\BELGELER.xls;extended properties=""excel 8.0;hdr=yes""")
rs.Open "select * from [EK-7$];", conn, adOpenDynamic, adLockOptimistic
rs.AddNew
rs("ADI SOYADI").Value = Range("C6").Value
rs("KAYIT SINIFI").Value = Range("C4").Value
rs("CİNSİ").Value = Range("J5").Value
rs("YER").Value = Range("J7").Value
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
MsgBox "Veriler Başarı ile BELGELER.xls Dosyasına kaydedildi." & vbLf & _
vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[Orion1]

Bir klasörün içine örnek örnek dosyalarınızı(hedef dosya ve kaynak dosyalarınızı) 2003 formatınd sıkıştırıp yollarsanız bakabilirim.
Gerçek verileri silip uyduruk veriler eklemyi unutmayınız.

 

[Harmankayamehmet]

Sayın Evren Bey;
İlginiz için teşekkür ederim.Klasörü ekliyorum.Saygılar....

 

[Orion1]

Belgeler.xls dosyasından depo klasöründe bulunan dosyalarddan istediğimiz seçsek ve onu belgeler.xls dosyasına atsak daha iyi olmazmı?Yani belgeler.xls dosyasını açalım ve istediğimiz dosyadaki verileri oraya alalım.
ADO ile excel dosyalaında başka bir excel dosyasına veri yazmak pek iyi bir şey değil.Okumak olur ama yazmak ve değiştirmek problemli.
İlla böyle olacaksa kod ile o dosyayı açar yazarız yine kod ile kapatırız.

 

[Harmankayamehmet]

Sayın Evren Bey;
belgeler.xls dosyasını açıp, istediğimiz dosyadaki verileri oraya almaktan maksat, belgeler çalışma kitabında isim miktarına göre mesela 60 veya 70 adet sayfa olacaksa siz daha iyi bilirsiniz ama hem çalışma kitabı kasar hemde yedekte tutması riskli olur.Kazara belgeler çalışma kitabı bozulursa verilerin hepsi gitmezmi.Ben sizin dediğiniz gibi de kullanabilirim.Burada önemli olan verileri bir şekilde yedeklemek.Takdir sizindir.Teşekkür ederim.Saygılar....

 

[Orion1]

Sayın Evren Bey;
belgeler.xls dosyasını açıp, istediğimiz dosyadaki verileri oraya almaktan maksat, belgeler çalışma kitabında isim miktarına göre mesela 60 veya 70 adet sayfa olacaksa siz daha iyi bilirsiniz ama hem çalışma kitabı kasar hemde yedekte tutması riskli olur.Kazara belgeler çalışma kitabı bozulursa verilerin hepsi gitmezmi.Ben sizin dediğiniz gibi de kullanabilirim.Burada önemli olan verileri bir şekilde yedeklemek.Takdir sizindir.Teşekkür ederim.Saygılar....

Belgeler.xls kitabındaki veriler gitmez ki.aslında daha sağlam bir yapı benim söylediğim.
Siz belgeler.xls dosyasını arayüz olrak kullancaksınız.
Bu dosyaya her defasında verileri silip istediğiniz verileri didğer dosyalardan çekeceksiniz. ve göreceksiniz.İşinizi bitrdikten sonra yine sileceksiniz.Ben olsam böyle çalışırdım.

 

[Orion1]

Belgeler.xls kitabındaki veriler gitmez ki.aslında daha sağlam bir yapı benim söylediğim.
Siz belgeler.xls dosyasını arayüz olrak kullancaksınız.
Bu dosyaya her defasında verileri silip istediğiniz verileri didğer dosyalardan çekeceksiniz. ve göreceksiniz.İşinizi bitrdikten sonra yine sileceksiniz.Ben olsam böyle çalışırdım.

Yani bu dosyada kayıtlı veri olmayavcak.Bir tek vba kodları olacak.
Ayrıca bu siizn yaptığınızda anlamışta değilim.Neden bütün verilerinizi tek bir dosyada tutmuyorsunuz.Madem böyle bir şey olacak.diğer dosyalara ne gerek var.
Tek dosyada ttup oradn istediğniz verileri bir sayfaya çekip .sonra o sayfayı isterseniz xls dosyası olarak dıları atabilirsiniz.

 

[Harmankayamehmet]

Yani bu dosyada kayıtlı veri olmayavcak.Bir tek vba kodları olacak.
Ayrıca bu siizn yaptığınızda anlamışta değilim.Neden bütün verilerinizi tek bir dosyada tutmuyorsunuz.Madem böyle bir şey olacak.diğer dosyalara ne gerek var.
Tek dosyada ttup oradn istediğniz verileri bir sayfaya çekip .sonra o sayfayı isterseniz xls dosyası olarak dıları atabilirsiniz.

Merhaba Sayın Evren;
İlglendiğiniz için teşekkür ederim.
Verileri tek bir dosyada tutmamamın ana nedeni çalışanların hepsine ait ayrı ayrı kendi isimlerinde dosyaları olması.Tıpkı şirketteki şahıs yada özlük dosyaları gibi.Buradaki amacım, Mehmet isimli çalışan bugün geldi xxxx lira avans aldı falanca adrese doru yola çıktı 5 gün sonra gelecek ve benzeri hergün sürekli değişebilen çalışanlara ait bilgileri kalıp yada belgeler isimli (ismi önemli değil)dosyada verileri hazırlayıp kendi isminde olan öbür dosyaya aktarmak.Şimdi verileri aktardığımız dosya tek olursa, her çalışan içinde bir sayfa açılacağından dolayı çalışan sayısı 100 kişi olunca bir kitapta 100 sayfa.O zaman çalışma kitabı için sayfa sayısı çok olmazmı.Sayı 150 yada 200 olursa ne olur.Bu konuda fazla bilgim olmadığı için bir şey diyemeyeceğim.Önceki mesajda söylediğim gibi söz sahibi usta sizsiniz.ben olayı anlattım takdir sizin.nasıl olursa olsun.ben inceler ve görüşlerimi bildiririm.Kusuruma bakmazsınız inşallah.
Saygılar..İyi Bayramlarrr.

 

[Harmankayamehmet]

Sayın Evren;
Mümkün olmuyormu yoksa.
Cevabınızı bekliyorum.
Saygılar....

 

[Orion1]

Ben analatamadım
Bu dosyada veri kaydı tutumayacağız.
Bunu sadece ara yüz olarak kullancağız.Verileri kloasörlerdweki diğer dosyalardan çağıracağız.Bir listboxta listeleriz diğer dosyaları siz ordan 1 veya 1 den fazla dosya seçersizniz bu dosyaya alırsınız.Bu dosyada herkesi görürüsünüz.
Bu dosyada 1 sayfa olacak.Başka sayfa olmayacak.Osayfaya istdeiğiniz dosyayı çağırıp onu görebileceksiniz.

 

[halit3]

bir örnek uygulama ekliyorum.
dosya isimlerinin sonlarında boşluklar bırakmışınız bu boşlukları kaldırdım.
bütün işlemleri data dosyasından yapacaksınız.

 

[Harmankayamehmet]

Sayın Halit Bey;
İlginize çok teşekkür ederim.
Dosyayı indirdim, İnceliyorum.
Sevgi ve saygılar sunarım...