AccessTr.neT
Ado İle Kapalı Excel Dosyalarında İşlem - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ado İle Kapalı Excel Dosyalarında İşlem (/konu-ado-ile-kapali-excel-dosyalarinda-islem.html)

Sayfalar: 1 2


Ado İle Kapalı Excel Dosyalarında İşlem - accessman - 20/01/2020

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


Cvp: Ado İle Kapalı Excel Dosyalarında İşlem - accessman - 20/01/2020

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



Cvp: Ado İle Kapalı Excel Dosyalarında İşlem - accessman - 20/01/2020

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


Cvp: Ado İle Kapalı Excel Dosyalarında İşlem - feraz - 20/01/2020

(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


Cvp: Ado İle Kapalı Excel Dosyalarında İşlem - accessman - 20/01/2020

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


Cvp: Ado İle Kapalı Excel Dosyalarında İşlem - feraz - 20/01/2020

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)