dinamik kaynak ve hedef dosya

[honestman]

Merhaba hocalarım,

Kaynak ve hedef dosyadaki sayfa isimleri hep aynı geliyor bana. Fakat farklı kaynak yada hedef dosyalar iletilebiliyor. Burada aşağıdaki kodlardaki kaynak dosya isimlerini ve kopyalanacak alanları nasıl dinamikleştiririm?

Sub Düğme1_Tıklat()


Application.ScreenUpdating = False

  Set con = CreateObject("adodb.connection")
  Set rs = CreateObject("adodb.recordset")
  Yol = ThisWorkbook.Path & "\kaynak.xlsx"
     'kara araçları
     
     con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\kaynak.xlsx" _
     & ";extended properties=""Excel 12.0; hdr=no"""
     t = "select * from [KaraAraclari$H4:AU493]"
     rs.Open t, con, 1, 1
     Sheets("KaraAraclari").Range("H4:H65536")(1, 1).CopyFromRecordset rs
     
     
     rs.Close: con.Close


     con.Open "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\kaynak.xlsx" _
     & ";extended properties=""Excel 12.0; hdr=no"""
     
     t = "select * from [KaraAraclari$A96:C136]"
     rs.Open t, con, 1, 1
     Sheets("KaraAraclari").Range("A96:C136")(1, 1).CopyFromRecordset rs
     
     rs.Close: con.Close



End Sub

 

[honestman]

Günceldir.

 

[honestman]

Hocalarım bu kodu nasıl eklenti yapabilirim?