Skip to main content

AccessTr.neT


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

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

#7
(20/01/2020, 13:03)feraz yazdı: 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)
teşekkürler feraz
@benbendedeilem
Cevapla
#8
kod düzgün çalışyor mu sayın @accessman
çalışıyorsa son halini ekler misiniz?
Cevapla
#9
çalışan son hali şudur

Kod:
Sub ReadFromDifferentWorkbook(sourceFileName As String, sourceSheetName As String, targetFileName As String, targetSheetName As String)
   
    Dim targetFile As String
    targetFile = ThisWorkbook.Path & Application.PathSeparator & targetFileName '"Company Sales Data.xlsx"
   
    Dim connection As New ADODB.connection 'ThisWorkbook.FullName
    connection.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _
                    "Data Source=" & targetFile & ";" & _
                    "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
#10
şöylede çağırıyoruz

   
Kod:
Dim sourceFileName As String
    Dim sourceSheetName As String
    Dim targetFileName As String
    Dim targetSheetName As String
   
    sourceFileName = "Company Sales Data.xlsx"
    sourceSheetName = "Sales"
    targetFileName = "ADO Video Code.xlsm"
    targetSheetName = "CompanyOut"
   
    Call ReadFromDifferentWorkbook(sourceFileName, sourceSheetName, targetFileName, targetSheetName)

Cevapla
#11
teşekkürler sayın @accessman ve sayın @feraz
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task