access denn excele istenilen bilgiyi yollamak

[lukelukas]

merhabalar forumda yeniyim mutlaka olan bir konudur ancak aradım ve bulamadım.
benim sorunum
access'e de oluşturduğum tablolardaki bilgiliri mesela sadece 5.satırı bağlı olan excel sayfasının belirtilen satırna yollanması. konu ile ilgili yardım cı olursanız sevinirim.

 

[gulsum1]

cevap

bununla ilgili benim forma eklediğim access kod deposundada bilgi var ve yine formda aynı soru soruldu ve soruya cevap verdim orda istediğin hücreye istediğin veriyi gönderme kodu var

 

[N_Vedat]

Merhaba

Sn. gulsum1 "istediğin hücreye istediğin veriyi gönderme" hakkındaki verdiğiniz cevabı aradım bulamadın link verebilirmisiniz.

selamlar

 

[modalı]

Sayın N_Vedat,

Bu konu o kadar çok işlendi ki bulamamanız imkânsız. Arama penceresini kullanıp accessde excele yazın.

İyi çalışmalar

 

[N_Vedat]

Merhaba

Sn.Modalı karaayhan'ın excele veri aktarma başlığı hakkındaki aşağıdaki kodları buldum benimde istediğim bu kodlar ama çalıştıramadım.

not :sevk.xls adlı excel dosyasını access dosyası ile aynı klasöre kaytettim.

Bu konuda yardımcı olabilirmisiniz.

Teşekkürederim

Dim MyObject As Object
Set MyObject = GetObject(CurrentProject.Path & "\sevk.xls") (hata bu satırda veriyor)

MyObject.Sheets("Sayfa1").Range("d28").Value = Me.adsoyad
MyObject.Sheets("Sayfa1").Range("d29").Value = Me.rutbe
MyObject.Sheets("Sayfa1").Range("d30").Value = Me.gorev
MyObject.Sheets("Sayfa1").Range("d31").Value = Me.dgmyeri
MyObject.Sheets("Sayfa1").Range("d32").Value = Me.dgmtar
MyObject.Sheets("Sayfa1").Range("d33").Value = Me.babaadi
MyObject.Sheets("Sayfa1").Range("d34").Value = Me.siclno
MyObject.Sheets("Sayfa1").Range("d35").Value = Me.emsicno
MyObject.Sheets("Sayfa1").Range("d36").Value = Me.tckimno
MyObject.Sheets("Sayfa1").Range("d37").Value = Me.verno

End Sub