Çözüldü Kapalı Dosyadan Resim Alma

Sub veri_çek()
Dim KTP As Workbook, ASİ As Excel.Application
Dim A1S1 As Worksheet, A2S2 As Worksheet
Dim A1 As String, A2 As String, YOL As String
Dim HCR As Variant
Application.ScreenUpdating = False
Set ASİ = CreateObject("Excel.Application")
ASİ.Visible = False
YOL = ThisWorkbook.Path & "\"
A1 = ActiveWorkbook.Name
Set A1S1 = Workbooks(A1).Sheets("Sayfa1")
A2 = "Personel Rapor.xls"
HCR = ActiveCell.Address
Set KTP = ASİ.Workbooks.Open(YOL & A2)
Set A2S2 = KTP.Sheets("Personel Rapor")
A2S2.Range("A3:L50").Copy
A1S1.Range("A1").PasteSpecial (xlPasteValues)
KTP.Save: ASİ.Quit
Range(HCR).Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "KOl"
End Sub

Sub ExcelTurkey()
    Dim dosya As Workbook, son&
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Set dosya = Workbooks.Open(ThisWorkbook.Path & "\Personel Rapor.xls")
    son = dosya.Sheets(1).Range("a65536").End(3).Row
    dosya.Sheets(1).Range("A4:L" & son).Copy ThisWorkbook.Sheets(1).Range("A2")
    dosya.Close False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    son = Empty: Set dosya = Nothing
End Sub