- Katılım
- 16 Aralık 2007
- Mesajlar
- 151
- Excel Vers. ve Dili
- Office 2007
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