Bir Dosyadan Diğer Dosyaya Verileri Al

[MrExcelMr]

Merhaba;


Kapalı Dosya
https://s4.dosya.tc/server7/2u5r5l/Close_Data.xlsx.html

Açık Dosya
https://s4.dosya.tc/server7/js3vd2/Data.xlsx.html

İki dosyanın formatları aynı şekildedir. Yapmak istediğim şu şekildedir.

Kapalı dosyadaki verileri Açık Dosyadaki verilerin altına eklemesini istiyorum. Yardımcı olabilir misiniz.

 

[MrExcelMr]

yardım lütfen.

 

[muygun]

Merhaba;
Eki deneyin.
(.xls ve .xlsx için iki ayrı uygulama var.)
İyi çalışmalar.

Link1:
https://s4.dosya.tc/server7/ahmbp3/klasordeki_dosyalari_birlestir-xls.rar.html
Link2:
https://s4.dosya.tc/server7/ahmbp3/klasordeki_dosyalari_birlestir-xlsx.rar.html

 

[Orion1]

Alternatif.
Dosyanız ektedir.

DOSYAYI INDIR

Sub aktar_59()
Dim conn As Object, rs As Object, sat As Long
Set conn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
conn.Open = "provider=microsoft.ace.oledb.12.0;data source=" & ThisWorkbook.Path & "\Close_Data.xlsx;extended properties=""excel 12.0;hdr=yes"""
rs.Open "select * from [Sheet1$]", conn, 1, 1
sat = Cells(Rows.Count, "A").End(xlUp).Row + 1
Range("A" & sat).CopyFromRecordset rs
rs.Close: conn.Close
Set rs = Nothing: Set conn = Nothing
MsgBox "veriler aktarıldı."
End Sub

 

[Haluk]

ADO ile "Insert Into" metodu kullanarak hazırlanan alternatif ektedir...

Evren Beyin "CopyFromRecordset" metoduna göre daha hızlıdır...


.

 

[Orion1]

ADO ile "Insert Into" metodu kullanarak hazırlanan alternatif ektedir...

Evren Beyin "CopyFromRecordset" metoduna göre daha hızlıdır...


.

Bunu bilmiyordum hocam.
Bunuda öğrenmiş olduk.
Teşekkür ederim.İyi çalışmalar dilerim.

 

[Haluk]

Evren bey,

Aşağıdaki link, yine bu metod hakkında... @Zeki Gürsoy'un forumdaki mesajları arasında da bu metodun kullanıldığı kodlar var.

https://www.excel.web.tr/threads/ado-insert-into-excel.177454/

.

 

[Orion1]

Evren bey,

Aşağıdaki link, yine bu metod hakkında... @Zeki Gürsoy'un forumdaki mesajları arasında da bu metodun kullanıldığı kodlar var.

https://www.excel.web.tr/threads/ado-insert-into-excel.177454/

.

Haluk bey size ve Zeki hocama teşekkür ederim.

 

[MrExcelMr]

@Haluk @Orion1 @muygun Beyler elinize sağlık. Dosya paylaşımı için teşekkür ederim. Selamlar.

 

[m.ensar]

Merhaba;
Eki deneyin.
(.xls ve .xlsx için iki ayrı uygulama var.)
İyi çalışmalar.

Link1:
https://s4.dosya.tc/server7/ahmbp3/klasordeki_dosyalari_birlestir-xls.rar.html
Link2:
https://s4.dosya.tc/server7/ahmbp3/klasordeki_dosyalari_birlestir-xlsx.rar.html

Hocam bu koda sadece 1. sayfaları yani çalışma kitaplarının ilk sayfalarını birleştir diyebilir miyiz?

 

[m.ensar]

Hocam bu koda sadece 1. sayfaları yani çalışma kitaplarının ilk sayfalarını birleştir diyebilir miyiz? .xlsx için

 

[muygun]

Merhaba;
eki deneyin.
iki satırlık bir kod ilavesi var (sonuna açıklama yazdım)
İyi çalışmalar.

 

[m.ensar]

Hocam emeğinize sağlık süper olmuş Allah ne muradın varsa versin.

 

[tamer42]

ADO ile "Insert Into" metodu kullanarak hazırlanan alternatif ektedir...

Evren Beyin "CopyFromRecordset" metoduna göre daha hızlıdır...


.

Haluk hocamın aşağıdaki kodunda, Kaynak ve hedef dosya excel yerine Access olursa;

SourceFile= ThisWorkbook.Path & Application.PathSeparator & "TempDB.accdb"

strSQL =..................................

satırını nasıl düzenlemek gerekir? Access dosyasında "Table1" tablosundan "Table2" tablosuna aktaracağız.

teşekkürler,
iyi akşamlar.

Sub Test()
'   Haluk 08/09/2019
'   E-POsta: sa4truss@gmail.com

    Dim adoCN   As Object, myFile As String, strSQL As String
    
    Set adoCN = CreateObject("ADODB.Connection")
    
    SourceFile = ThisWorkbook.Path & Application.PathSeparator & "Close_Data.xlsx"
    TargetFile = ThisWorkbook.FullName
    
    adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCN.Properties("Data Source") = TargetFile
    adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
    adoCN.Open
    
    strSQL = "Insert Into [Sheet1$] ([Name1], [Name2], [Name3], [Name4], [Name5]) " & _
             "Select * From [Sheet1$] " & _
             "In '' [Excel 12.0;Database=" & SourceFile & "] "
    
    adoCN.Execute strSQL
    adoCN.Close
    Set adoCN = Nothing
End Sub

 

[tamer42]

Haluk hocamın aşağıdaki kodunda, Kaynak ve hedef dosya excel yerine Access olursa;

SourceFile= ThisWorkbook.Path & Application.PathSeparator & "TempDB.accdb"

strSQL =..................................

satırını nasıl düzenlemek gerekir? Access dosyasında "Table1" tablosundan "Table2" tablosuna aktaracağız.

teşekkürler,
iyi akşamlar.

Sub Test()
'   Haluk 08/09/2019
'   E-POsta: sa4truss@gmail.com

    Dim adoCN   As Object, myFile As String, strSQL As String
   
    Set adoCN = CreateObject("ADODB.Connection")
   
    SourceFile = ThisWorkbook.Path & Application.PathSeparator & "Close_Data.xlsx"
    TargetFile = ThisWorkbook.FullName
   
    adoCN.Provider = "Microsoft.ACE.OLEDB.12.0"
    adoCN.Properties("Data Source") = TargetFile
    adoCN.Properties("Extended Properties") = "Excel 12.0; HDR=Yes"
    adoCN.Open
   
    strSQL = "Insert Into [Sheet1$] ([Name1], [Name2], [Name3], [Name4], [Name5]) " & _
             "Select * From [Sheet1$] " & _
             "In '' [Excel 12.0;Database=" & SourceFile & "] "
   
    adoCN.Execute strSQL
    adoCN.Close
    Set adoCN = Nothing
End Sub

Haluk Hocamın kodlarını uyarlayarak aşağıdaki şekilde çözdüm,

her şey için teşekkürler

Sub Test()

Dim adoCN As Object, strConnection As String
Dim TempDB As String, strSQL As String, strSQL2 As String

Const adExecuteNoRecords = 128
Const adUseClient = 3
Const adOpenForwardOnly = 0
Const adLockReadOnly = 1

TempDB = ThisWorkbook.Path & Application.PathSeparator & "TempDB.accdb"

Set adoCN = CreateObject("ADODB.Connection")

strConnection = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & TempDB

adoCN.Open strConnection

strSQL2 = "Delete * From [Report]"

adoCN.Execute strSQL2

strSQL = "Insert Into [Report]([ID],[Test]) Select [ID2], [Test2] " _
& "From [Table1]"

adoCN.Execute strSQL

adoCN.Close

Set adoCN = Nothing
End Sub