• 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

Yardım Kapalı dosyadan veri alma

Kull

Yeni Üye
Katılım
20 Ocak 2024
Mesajlar
1
En iyi yanıt
0
Puanları
1
Yaş
36
Konum
Adana
Ad Soyad
Recep Kul
Office Vers.
2010
Herkese merhaba, ben kapalı bir excel dosyasında Page 1 isimli sayfadan =A:L aralığını kopyalayıp çalıştığım excel doyasının =A:L aralığına yapıştırmak istiyorum bunu nasıl yapabilirim. Örnek bir kod gösterebilir misiniz ?
 

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,601
En iyi yanıt
14
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Merhaba bu kodları kullanabilirsiniz.

C++:
Sub Osma_Rapor()
    Dim con As Object, rs As Object, s As String, i As Integer
    Set con = CreateObject("adodb.connection")
    con.Open "provider=microsoft.ace.oledb.12.0;data source=" & _
    ThisWorkbook.FullName & ";extended properties=""excel 12.0;hdr=yes"""
    s = "Select * From [Page 1$A:L]"
    Set rs = CreateObject("adodb.recordset")
    rs.Open s, con, 1, 1
    For i = 0 To rs.Fields.Count - 1
        Cells(1, i + 1) = rs.Fields(i).Name
    Next i
    If rs.RecordCount > 0 Then Range("A2").CopyFromRecordset rs
    con.Close
    Set con = Nothing: Set rs = Nothing: s = vbNullString
End Sub
 
Üst Alt