Yardım Kapalı sayfadan veri çekme

muzos80

Yeni Üye
Katılım
6 Şub 2019
Mesajlar
1
Puanları
1
Yaş
46
Konum
Kartal
Ad Soyad
Mustafa Boğa
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
96
Puanları
33
Yaş
29
Konum
Antalya / Merkez
Ad Soyad
Vedat ÖZER
Selamlar,

Aşağıdaki alan sayfa bilgisini vermektedir.

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