Makroda Adres bilgisini hücreden aldırma

[yorum.halil]

Arkadaşlar aşağıdaki makro normalde işimi görecek şekilde sorunsuz çalışıyor. Fakat verilerin aktaracağı C:\512015.xls dosyasının adını makroya değilde VERILER sayfası H10 hücresinden aldırmak istiyorum. Bu hücrede de C:\512015.xls yazılı. Ama makrodan değil hücreden alacak bu adresi. Bunu nasıl yapabilirim.

Sub VERIAKTAR()
If MsgBox("İşlem Başlasın mı ?", vbYesNo, "Dikkat") = vbNo Then Exit Sub
dosya = "C:\512015.xls"
Sheets("VERILER").Select
If dosya <> False Then
Set baglanti = CreateObject("ADODB.Connection")
yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dosya & ";Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti.Open yol
Set rs = baglanti.Execute("[Sayfa1$C2:C13]")
[f5].CopyFromRecordset rs
rs.Close
baglanti.Close
End If
End Sub

 

[YUSUF44]

dosya = "C:\512015.xls"

yerine

dosya=Sheets("VERILER").[H10]

Şeklinde denediniz mi?

 

[yorum.halil]

Teşekkürler üstad