• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Çözüldü Kapalı Dosyadan Resim Alma

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
Office 365 TR
S.A Arkadaşlar aşağıdaki kodla kapalı olan Personel rapor dosyasından verileri başarılı bir şekilde çekiyorum. Fakat L sütunundaki fotoğraflar gelmiyor. Fotoğraflarında gelmesi için kodllarda nasıl bir düzenleme yapabiliriz. Yardımlarınız bekliyorum şimdiden teşekkür ederim.
Kod:
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
 

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
Office 365 TR
İlginiz için teşekkür ederim dosyayı ekledim sayın Admin
 

Ekli dosyalar

  • Yeni klasör.rar
    29.2 KB · Görüntüleme: 3

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Bu kodları kullanabilirsiniz..
PHP:
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
Dosyanızı da ekliyorum. (y)
 

Ekli dosyalar

  • Okan32.rar
    30.3 KB · Görüntüleme: 19

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
Office 365 TR
Bu kodları kullanabilirsiniz..
PHP:
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
Dosyanızı da ekliyorum. (y)

İlginiz için çok teşekkür ederim Sayın Admin
Sorunum çözüldü.
 
Son düzenleme:

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,486
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Sadece kodları mı denediniz, yoksa dosyayı mı?
Dosyayı denediyseniz bu şekilde resimleri ile beraber getiriyor olması gerekir.

resimlegetir.gif
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt