iyi günler 3. Excel dosyasından Vba kod yazarak 
kapalı halde bulunan 1. Excel dosyasından verileri alıp
kapalı halde bulunan 2. Excel dosyasına veri yazabilir miyiz
kapalı haldeki Excel dosyasından zaten veri alabiliyoruz muhtemelen yazabiliriz diye düşünüyorum

bu kod ile kapalı olan excelden işlem yaptığımız Excel dosyasına veri alabiliyoruz bunun neresini değiştirerek kapalı durumda olan bir Excel dosyasına veri yazabiliriz

Sub ReadFromDifferentWorkbook(sourceFileName As String, sourceSheetName As String, targetFileName As String, targetSheetName As String)

    

    Dim connection As New ADODB.connection

    connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _

                    "Data Source=" & ThisWorkbook.FullName & ";" & _

                    "Extended Properties=""Excel 12.0;" & _

                    "HDR=Yes;"";"

    

    Dim sourceFile As String

    sourceFile = ThisWorkbook.Path & Application.PathSeparator & sourceFileName '"Company Sales Data.xlsx"

    

    Dim sourceSheet As String

    sourceSheet = "[Excel 12.0;HDR=YES;DATABASE=" & sourceFile & "]"

    

    Dim query As String

    query = "Insert Into [" & targetSheetName & "$] Select Company,Sales From " & sourceSheet & ".[" & sourceSheetName & "$] " 'CompanyOut Sales

    

    connection.Execute query

    

    connection.Close

End Sub

"targetFileName " kelimesini nereye nasıl ekleyeceğiz mesela "ThisWorkbook.FullName" kelimesinin yerine olur mu

(20/01/2020, 11:39)accessman yazdı: "targetFileName " kelimesini nereye nasıl ekleyeceğiz mesela "ThisWorkbook.FullName" kelimesinin yerine olur mu

O subu çağırmak için call ReadFromDifferentWorkbook(thisworkbook.fullname)
Tabii diğer parametrelerde girilmeli

yani şöyle mi olacak
ReadFromDifferentWorkbook("C:\Users\hamal\Desktop\pmf\_excel\Excel Macro Mastery.xlsm", diğer kriterler)

Yolladığınız koddaki ThisWorkbook.FullName burayı silip

Yerine 
targetFileName

Yazın.

Bir modülüde alttaki kodu ekleyip çağırı.


Parametre yazdığım yerleri ayarlayım.Toplam 4 parametreli kod.


call ReadFromDifferentWorkbook(parametre1,parametre2,parametre3,thisworkbook.fullname)