muzos80
Yeni Üye
- Katılım
- 6 Şub 2019
- Mesajlar
- 23
- En iyi yanıt
- 0
- Puanları
- 1
- Yaş
- 51
- 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: