• 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ı sayfadan veri çekme

muzos80

Yeni Üye
Katılım
6 Şub 2019
Mesajlar
23
En iyi yanıt
0
Puanları
1
Yaş
50
Konum
Kartal
Ad Soyad
Mustafa Boğa
Office Vers.
2013
merhaba aşağıdaki makroda veri alıyorum aynı anda aynı dosyanın içindeki diğer sayfaları da çekeceğim ama bir türlü beceremedim neyi değiştirir isem diğer belirlediğim sayfadan veri alabilirim
PHP:
Sub Montaj()

On Error Resume Next

Dim con As Object, evn As Object, yol As String

Sayfa2.Range("a3:ı65536").ClearContents

Set con = CreateObject("adodb.connection")

Set rs = CreateObject("adodb.recordset")

Set evn = CreateObject("scripting.filesystemobject")

Set klasor = evn.getfolder(ThisWorkbook.Path & "\Veriler")

For Each d In klasor.Files

If d.Name <> ThisWorkbook.Name Then

If VBA.Right(d.Name, 4) = "xlsx" Or VBA.Right(d.Name, 3) = "xls" Then

  

con.Open " provider=microsoft.ace.oledb.12.0;data source=" & _

d.Path & ";extended properties=""excel 12.0;hdr=no"""

sorgu = "select f1,f2,f3,f12,f14,f15,f16,f17,f18 from [Plastik Montaj$b6:t300]" ' Kopyalacacak sütünlar f1 sütun1 anlamında

rs.Open sorgu, con, 1, 1

Sayfa2.Range("a65536").End(3)(2, 1).CopyFromRecordset rs

rs.Close

con.Close



End If

End If

Next d

      

Set rs = Nothing: Set con = Nothing

Set evn = Nothing: Set klasor = Nothing: d = vbNullString



End Sub
 
Moderatör tarafında düzenlendi:

Vedat ÖZER

Logo Uzmanı
Geliştirici
Katılım
4 Haz 2018
Mesajlar
288
En iyi yanıt
4
Puanları
63
Yaş
33
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Office Vers.
2019
Selamlar,

Aşağıdaki alan sayfa bilgisini vermektedir.

PHP:
[Plastik Montaj$b6:t300]
 
Üst Alt