Skip to main content

AccessTr.neT


Ado İle Kapalı Excel Dosyalarında İşlem

Ado İle Kapalı Excel Dosyalarında İşlem

Çözüldü #1
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
@benbendedeilem
Cevapla
#2
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
Cevapla
#3
"targetFileName " kelimesini nereye nasıl ekleyeceğiz mesela "ThisWorkbook.FullName" kelimesinin yerine olur mu
Cevapla
#4
(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
Cevapla
#5
yani şöyle mi olacak
ReadFromDifferentWorkbook("C:\Users\hamal\Desktop\pmf\_excel\Excel Macro Mastery.xlsm", diğer kriterler)
Cevapla
#6
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)
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task