merhaba arkadaşlar ;
bir form içerisinde çektiğim verilerin Excel'in otomatik olarak açılarak Excel tablosu içine dahil edilmesi gerekiyor.
Verilerin aktarılacağı Excel dosyası belirli bir dosya olmayıp Excel'in yeni bir boş sayfa açması gerekiyor.
Örnek database olarak bu siteden indirdiğim bir veritabanını ekliyorum.. Ekteki veritabanı içerisinde yer alan "oran" adlı formun excele aktarılması gerekiyor.
Yardımlar için şimdiden teşekkür ; herkese kolay gelsiin.
form'un boş bir excel'e aktarılması
sayın severim,
formda arama yaparak istediğiniz gibi örnek bulabilirsiniz. Bildiğim kadarı ile "seçerek filitreleyerek sıralayarak Excel e verme" konu başlıklı bir örnek var süper bir örnek. Excel istediğini atabiliyorsun. konu başlığı: tdsharun hocamın bir örneği var: aramayı Excel diye ara olur.
Kolay gelsin
formda arama yaparak istediğiniz gibi örnek bulabilirsiniz. Bildiğim kadarı ile "seçerek filitreleyerek sıralayarak Excel e verme" konu başlıklı bir örnek var süper bir örnek. Excel istediğini atabiliyorsun. konu başlığı: tdsharun hocamın bir örneği var: aramayı Excel diye ara olur.
Kolay gelsin
Son Düzenleme: 15/03/2010, 17:06, Düzenleyen: hegu.
merhaba
söylediğiniz dosya gerçekten çok etkileyici ama benim istediğim son derece basic bir şey..
form verileri içerisinde yer alan tüm verileri bş bir excele atacak son derece basit bir makroya ihtiyaç duyuyorum. basit bir örnek kod görürsem kendime göre uyarlayabilirim diye düşünüyorum..
teşekkürler.
söylediğiniz dosya gerçekten çok etkileyici ama benim istediğim son derece basic bir şey..
form verileri içerisinde yer alan tüm verileri bş bir excele atacak son derece basit bir makroya ihtiyaç duyuyorum. basit bir örnek kod görürsem kendime göre uyarlayabilirim diye düşünüyorum..
teşekkürler.
Dim Ex As Excel.Application
Set Ex = New Excel.Application
With Ex
.Visible = True 'Görünmesini istemiyorsak False
.Workbooks.Add 'Yeni bir çalışma sayfası oluşturmak için kullanırız.
.Range("c4").Value = me.alan1
.Range("c5").Value = me.alan2
.Range("c6").Value = me.alan3
.Range("I4").Value = me.alan4
.Range("I5").Value = me.alan5
End With
bu kod size fikir verecektir
yalnız vb referanslarından Microsoft Excel 11.0 Object Library nin seçili olması gerekmektedir. bu office sürümüne göre 10.0 olabilir.
Set Ex = New Excel.Application
With Ex
.Visible = True 'Görünmesini istemiyorsak False
.Workbooks.Add 'Yeni bir çalışma sayfası oluşturmak için kullanırız.
.Range("c4").Value = me.alan1
.Range("c5").Value = me.alan2
.Range("c6").Value = me.alan3
.Range("I4").Value = me.alan4
.Range("I5").Value = me.alan5
End With
bu kod size fikir verecektir
yalnız vb referanslarından Microsoft Excel 11.0 Object Library nin seçili olması gerekmektedir. bu office sürümüne göre 10.0 olabilir.
İyiki Varsın Access
Excel'de Veri menüsünde yer alan Dış Veri Al ile Access tablosu veya sorgusundan veri almayı da deneyebilirsiniz.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Konfüçyüs
Sayın Nurullah_Serdar ;
Verdiğiniz kodu çalıştırmak istediğimde hata alıyorum. Söz konusu library'yi nasılekleyebilirim ?..
Verdiğiniz kodu çalıştırmak istediğimde hata alıyorum. Söz konusu library'yi nasılekleyebilirim ?..
Konuyu Okuyanlar: 1 Ziyaretçi