Merhaba arkadaşlar,
Ağ paylaşımlı Rapor bilgisayarından Verim klasörü altında Veri.xls dosyasının
VAlan sayfasından veri çekmek istiyorum.
Dosya kapalı iken ADO yöntemi ile verileri çekmeyi başardım.
(ripek sayesinde
)
Ancak dosya açık iken veriler çekilmiyor.
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=\\Rapor\Verim\Veri.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[VAlan$B" & gun & ":I" & gun1 & "]")
[D6:K17].CopyFromRecordset rs
rs.Close
baglanti.Close
Ağ paylaşımlı Rapor bilgisayarından Verim klasörü altında Veri.xls dosyasının
VAlan sayfasından veri çekmek istiyorum.
Dosya kapalı iken ADO yöntemi ile verileri çekmeyi başardım.
(ripek sayesinde
)Ancak dosya açık iken veriler çekilmiyor.
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=\\Rapor\Verim\Veri.xls"
baglanti.Open yol
Set rs = baglanti.Execute("[VAlan$B" & gun & ":I" & gun1 & "]")
[D6:K17].CopyFromRecordset rs
rs.Close
baglanti.Close