Yardım Kapalı sayfadan veri çekme

muzos80

Yeni Üye
Katılım
6 Şub 2019
Mesajlar
1
En İyi Yanıtlar
0
Beğeniler
0
Puanları
1
Yaş
45
Konum
Kartal
Ad Soyad
Mustafa Boğa
#1
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
VBA:
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
81
En İyi Yanıtlar
4
Beğeniler
148
Puanları
33
Yaş
28
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
#2
Selamlar,

Aşağıdaki alan sayfa bilgisini vermektedir.

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