- Katılım
- 29 Kasım 2008
- Mesajlar
- 215
- Excel Vers. ve Dili
- excel 2003 türkçe
Değerli arkadaşlar ; Ağ üzerinde bulunan kapalı bir excel dosyasına veri göndermek veri göndermek istiyorum.Göndereceğim excel dosyasındaki şablon ile gönderilen yerdeki şablon aynı şekilde o açıdan sorun yok. Kapalı dosyadan veri alırken aşağıdaki kodu kullanıyordum.Peki veri gönderirken nasıl bir kod kullanmalıyım.Yardımlarınız için teşekkür ederim.Saygılar...
Veri alırken şu kodu kullanıyorum.
Sub Z()
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Server\ali\ÜRETİM STOK TAKİP\KAPI-KAPAK STOK TAKİP.xls;Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set RS = baglanti.Execute("[kapak$B3:j10000]")
[liste!b3].CopyFromRecordset RS
RS.Close
baglanti.Close
End Sub
Veri alırken şu kodu kullanıyorum.
Sub Z()
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Server\ali\ÜRETİM STOK TAKİP\KAPI-KAPAK STOK TAKİP.xls;Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set RS = baglanti.Execute("[kapak$B3:j10000]")
[liste!b3].CopyFromRecordset RS
RS.Close
baglanti.Close
End Sub