Veri aktarma ile ilgili bir sorun

[eminkot]

Bir haftadan beri paylaşıma açık bir başka bilgisayardan veri alma ve kaydetme problemi ile uğraşıyorum.:???:

Ripek yardımı ile veri alma işini ADO ile kısmen çözdüm ancak bir hata var;

......................................................................

Function DONGU(MEM)

a = Cells(3, 4)
a = a - 1
gun = 2 + a * 12
gun1 = gun + 11

Set baglanti = CreateObject("ADODB.Connection")
Yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=\\aa95\verim\Veri.xls"
baglanti.Open Yol
Set rs = baglanti.Execute("[VAlan$B" & gun & ":I" & gun1 & "]")
[D6:K17].CopyFromRecordset rs
rs.Close
baglanti.Close

End Function
..............................................................................................

Paylaşıma acık bilgisayarda Veri.xls açık ise Veri.xls[Ready-Only] olarak kendi bilgisayarımda açılıyor.

Bu işi ExecuteExcel4Macro ile denedim;

...............................................................................................

Function DONGU(MEM)

a = Cells(3, 4)
a = a - 1
gun = 2 + a * 12
gun1 = gun + 11
an = 5

For i = gun To gun1
an = an + 1
For y = 4 To 11
Cells(an, y) = ExecuteExcel4Macro("'\\aa95\verim\[Veri.xls]VAlan'!R" & i & "c" & y - 2 & "")
Next
Next

End Function
.......................................................................................................

Bilgiler gelinceye kadar bir saat geçiyor.

ExecuteExcel4Macro de Range olarak çekme ihtimalimiz yok mu ?

Range("D6:K17")=ExecuteExcel4Macro("'\\aadmc95\verim\[Veri.xls]VAlan'! & Range("B2:I13").Address(True, True, xlR1C1))

denedim olmadı.