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)