Skip to main content

AccessTr.neT


Ado İle Kapalı Dosyadan Veri Almak Hk.

Ado İle Kapalı Dosyadan Veri Almak Hk.

#31
daha karmaşık bir sistem var exceldeki verileri ADO yapısıyla alan ama o yönteme hakim değilim aşağıdaki yönteme eklenen "  Application.ScreenUpdating = False " kodu sadece açılan dosyayı gizliyor ama aslında yine de dosya açılmış oluyor.
kodun en başına "  Application.ScreenUpdating = False "  ekleyin
en sonuna da "  Application.ScreenUpdating = True" kodunu

Not: çalışmanıza yeni bir kod daha ekledim  yeni kodun düzgün çalışabilmesi için sıraNo ların olduğu "A" sütununun, 3. satırdan itibaren boş olması gerekmektedir
excel dosyasındaki sıra no sütununa girdiğiniz tüm sıranoları silin aşağıdaki kod SıraNoları kendisi ekliyor
WbHedef.Range("A" & x).Value = WbHedef.Range("A" & x - 1).Value + 1 '<-- bu satır A sütununu kontrol eder eğer sıra numarası girilmemişse
                                                                                                                sıra numarası ekleyip veriyi kopyalar


Sub VeriKopyala()
Dim WbKaynak, WbKaynak2, WbKaynak3, WbKaynak4 As Worksheet
Dim WbHedef As Worksheet
Dim SonSatir As Long

Dim oFSO As Object
Dim oFolder As Object
Dim oFile As Object


  Application.ScreenUpdating = False
  Set WbHedef = ThisWorkbook.Worksheets("Veri")


Set oFSO = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFSO.GetFolder(ActiveWorkbook.Path)

For Each oFile In oFolder.Files
On Error GoTo 10
If Mid(oFile.Name, InStrRev(oFile.Name, "."), 3) <> ".xl" Then GoTo 10
If oFile.Name = ThisWorkbook.Name Or oFile.Name = "~$" & ThisWorkbook.Name Then GoTo 10

  Workbooks.Open ActiveWorkbook.Path & "\" & oFile.Name, True, True
 
  Set WbKaynak = Workbooks(oFile.Name).Worksheets("VERİ GİRİŞİ")
  Set WbKaynak2 = Workbooks(oFile.Name).Worksheets("09-Personel_Envanteri")
  Set WbKaynak3 = Workbooks(oFile.Name).Worksheets("10-İŞ BAŞVURU FORMU-2")
        SonSatir = WbHedef.Cells(WbHedef.Rows.Count, "A").End(xlUp).Offset(1).Row
        If SonSatir = 3 Then x = 4 Else x = SonSatir
       
        WbHedef.Range("A" & x).Value = WbHedef.Range("A" & x - 1).Value + 1 '<-- bu satır A sütununu kontrol eder eğer sıra numarası girilmemişse sıra numarası ekleyip veriyi kopyalar
        WbHedef.Range("b" & x).Value = WbKaynak.Range("G4").Value
        WbHedef.Range("c" & x).Value = WbKaynak.Range("G5").Value
        WbHedef.Range("d" & x).Value = WbKaynak.Range("G6").Value
        WbHedef.Range("f" & x).Value = WbKaynak.Range("G7").Value
        WbHedef.Range("bz" & x).Value = WbKaynak.Range("G8").Value
        WbHedef.Range("ca" & x).Value = WbKaynak.Range("I8").Value
        WbHedef.Range("g" & x).Value = WbKaynak.Range("G9").Value
        WbHedef.Range("h" & x).Value = WbKaynak.Range("G10").Value
        WbHedef.Range("i" & x).Value = WbKaynak.Range("G11").Value
        WbHedef.Range("j" & x).Value = WbKaynak.Range("I11").Value
        WbHedef.Range("k" & x).Value = WbKaynak.Range("G12").Value
        WbHedef.Range("l" & x).Value = WbKaynak.Range("G13").Value
        WbHedef.Range("m" & x).Value = WbKaynak.Range("G14").Value
        WbHedef.Range("bb" & x).Value = WbKaynak.Range("G15").Value
        WbHedef.Range("bc" & x).Value = WbKaynak.Range("G16").Value
        WbHedef.Range("bd" & x).Value = WbKaynak.Range("G17").Value
        WbHedef.Range("be" & x).Value = WbKaynak.Range("G18").Value
        WbHedef.Range("bf" & x).Value = WbKaynak.Range("G19").Value
        WbHedef.Range("bg" & x).Value = WbKaynak.Range("G20").Value
        WbHedef.Range("bh" & x).Value = WbKaynak.Range("G21").Value
        WbHedef.Range("bi" & x).Value = WbKaynak.Range("G22").Value
        WbHedef.Range("bj" & x).Value = WbKaynak.Range("G23").Value
        WbHedef.Range("bk" & x).Value = WbKaynak.Range("G24").Value
        WbHedef.Range("bk" & x).Value = WbKaynak.Range("G25").Value
        WbHedef.Range("bm" & x).Value = WbKaynak.Range("G26").Value
        WbHedef.Range("bn" & x).Value = WbKaynak.Range("G27").Value
        WbHedef.Range("bo" & x).Value = WbKaynak.Range("G28").Value
        WbHedef.Range("bp" & x).Value = WbKaynak.Range("G29").Value
        WbHedef.Range("bq" & x).Value = WbKaynak.Range("G30").Value
        WbHedef.Range("br" & x).Value = WbKaynak.Range("G31").Value
        WbHedef.Range("s" & x).Value = WbKaynak.Range("G33").Value
        WbHedef.Range("bs" & x).Value = WbKaynak.Range("G35").Value
        WbHedef.Range("bt" & x).Value = WbKaynak.Range("G37").Value
        WbHedef.Range("bu" & x).Value = WbKaynak.Range("M37").Value
        WbHedef.Range("au" & x).Value = WbKaynak.Range("j17").Value
        WbHedef.Range("av" & x).Value = WbKaynak.Range("j20").Value
        WbHedef.Range("aw" & x).Value = WbKaynak.Range("j24").Value
        WbHedef.Range("ax" & x).Value = WbKaynak.Range("I29").Value
        WbHedef.Range("ay" & x).Value = WbKaynak.Range("J29").Value
        WbHedef.Range("az" & x).Value = WbKaynak.Range("K29").Value
        WbHedef.Range("bw" & x).Value = WbKaynak.Range("I38").Value
        WbHedef.Range("bx" & x).Value = WbKaynak.Range("G39").Value
        WbHedef.Range("by" & x).Value = WbKaynak.Range("G38").Value
        WbHedef.Range("cb" & x).Value = WbKaynak.Range("D42").Value
        WbHedef.Range("cc" & x).Value = WbKaynak.Range("D43").Value
        WbHedef.Range("cd" & x).Value = WbKaynak.Range("D44").Value
        WbHedef.Range("ce" & x).Value = WbKaynak.Range("J42").Value
        WbHedef.Range("cf" & x).Value = WbKaynak.Range("J43").Value
        WbHedef.Range("cg" & x).Value = WbKaynak.Range("J44").Value
        WbHedef.Range("ch" & x).Value = WbKaynak.Range("E50").Value
        WbHedef.Range("ci" & x).Value = WbKaynak.Range("E51").Value
        WbHedef.Range("cj" & x).Value = WbKaynak.Range("E52").Value
        WbHedef.Range("ck" & x).Value = WbKaynak.Range("E53").Value
        WbHedef.Range("t" & x).Value = WbKaynak.Range("E54").Value
        WbHedef.Range("cl" & x).Value = WbKaynak.Range("J50").Value
        WbHedef.Range("cm" & x).Value = WbKaynak.Range("J51").Value
        WbHedef.Range("cn" & x).Value = WbKaynak.Range("J52").Value
        WbHedef.Range("co" & x).Value = WbKaynak.Range("J53").Value
        WbHedef.Range("cp" & x).Value = WbKaynak.Range("E55").Value
        WbHedef.Range("cq" & x).Value = WbKaynak.Range("E56").Value
        WbHedef.Range("cr" & x).Value = WbKaynak.Range("E57").Value
        WbHedef.Range("cs" & x).Value = WbKaynak.Range("E58").Value
        WbHedef.Range("ct" & x).Value = WbKaynak.Range("J55").Value
        WbHedef.Range("cu" & x).Value = WbKaynak.Range("J56").Value
        WbHedef.Range("cv" & x).Value = WbKaynak.Range("J57").Value
        WbHedef.Range("cw" & x).Value = WbKaynak.Range("J58").Value
        WbHedef.Range("cx" & x).Value = WbKaynak.Range("E60").Value
        WbHedef.Range("cy" & x).Value = WbKaynak.Range("E61").Value
        WbHedef.Range("cz" & x).Value = WbKaynak.Range("E62").Value
        WbHedef.Range("da" & x).Value = WbKaynak.Range("E63").Value
        WbHedef.Range("db" & x).Value = WbKaynak.Range("J60").Value
        WbHedef.Range("dc" & x).Value = WbKaynak.Range("J61").Value
        WbHedef.Range("dd" & x).Value = WbKaynak.Range("J62").Value
        WbHedef.Range("de" & x).Value = WbKaynak.Range("J63").Value
        WbHedef.Range("df" & x).Value = WbKaynak.Range("E65").Value
        WbHedef.Range("dg" & x).Value = WbKaynak.Range("E66").Value
        WbHedef.Range("dh" & x).Value = WbKaynak.Range("E67").Value
        WbHedef.Range("di" & x).Value = WbKaynak.Range("E68").Value
        WbHedef.Range("dj" & x).Value = WbKaynak.Range("J65").Value
        WbHedef.Range("dk" & x).Value = WbKaynak.Range("J66").Value
        WbHedef.Range("dl" & x).Value = WbKaynak.Range("J67").Value
        WbHedef.Range("dm" & x).Value = WbKaynak.Range("J68").Value
        WbHedef.Range("dn" & x).Value = WbKaynak.Range("E71").Value
        WbHedef.Range("do" & x).Value = WbKaynak.Range("E72").Value
        WbHedef.Range("dp" & x).Value = WbKaynak.Range("E73").Value
        WbHedef.Range("dq" & x).Value = WbKaynak.Range("E74").Value
        WbHedef.Range("dr" & x).Value = WbKaynak2.Range("A24").Value
        WbHedef.Range("ds" & x).Value = WbKaynak2.Range("E24").Value
        WbHedef.Range("dt" & x).Value = WbKaynak2.Range("I24").Value
        WbHedef.Range("du" & x).Value = WbKaynak2.Range("X24").Value
        WbHedef.Range("dv" & x).Value = WbKaynak2.Range("A25").Value
        WbHedef.Range("dw" & x).Value = WbKaynak2.Range("E25").Value
        WbHedef.Range("dx" & x).Value = WbKaynak2.Range("I25").Value
        WbHedef.Range("dy" & x).Value = WbKaynak2.Range("X25").Value
        WbHedef.Range("dz" & x).Value = WbKaynak2.Range("A26").Value
        WbHedef.Range("ea" & x).Value = WbKaynak2.Range("E26").Value
        WbHedef.Range("eb" & x).Value = WbKaynak2.Range("I26").Value
        WbHedef.Range("ec" & x).Value = WbKaynak2.Range("X26").Value
        WbHedef.Range("ed" & x).Value = WbKaynak2.Range("A27").Value
        WbHedef.Range("ee" & x).Value = WbKaynak2.Range("E27").Value
        WbHedef.Range("ef" & x).Value = WbKaynak2.Range("I27").Value
        WbHedef.Range("eg" & x).Value = WbKaynak2.Range("X27").Value
        WbHedef.Range("eh" & x).Value = WbKaynak2.Range("A31").Value
        WbHedef.Range("ei" & x).Value = WbKaynak2.Range("E31").Value
        WbHedef.Range("ej" & x).Value = WbKaynak2.Range("I31").Value
        WbHedef.Range("ek" & x).Value = WbKaynak2.Range("X31").Value
        WbHedef.Range("el" & x).Value = WbKaynak3.Range("G3").Value
        WbHedef.Range("em" & x).Value = WbKaynak2.Range("A32").Value
        WbHedef.Range("en" & x).Value = WbKaynak2.Range("E32").Value
        WbHedef.Range("eo" & x).Value = WbKaynak2.Range("I32").Value
        WbHedef.Range("ep" & x).Value = WbKaynak2.Range("X32").Value
        WbHedef.Range("eq" & x).Value = WbKaynak3.Range("G4").Value
        WbHedef.Range("er" & x).Value = WbKaynak2.Range("A33").Value
        WbHedef.Range("es" & x).Value = WbKaynak2.Range("E33").Value
        WbHedef.Range("et" & x).Value = WbKaynak2.Range("I33").Value
        WbHedef.Range("eu" & x).Value = WbKaynak2.Range("X33").Value
        WbHedef.Range("fg" & x).Value = WbKaynak2.Range("E39").Value
        WbHedef.Range("ev" & x).Value = WbKaynak3.Range("G5").Value
        WbHedef.Range("ew" & x).Value = WbKaynak2.Range("A34").Value
        WbHedef.Range("ex" & x).Value = WbKaynak2.Range("E34").Value
        WbHedef.Range("ey" & x).Value = WbKaynak2.Range("I34").Value
        WbHedef.Range("ez" & x).Value = WbKaynak2.Range("X34").Value
        WbHedef.Range("fa" & x).Value = WbKaynak3.Range("G6").Value
        WbHedef.Range("aw" & x).Value = WbKaynak3.Range("M37").Value

    Workbooks(oFile.Name).Close

10
Next oFile
Application.ScreenUpdating = True

End Sub
Cevapla
#32
Bu işin bu kadar sıkıntılı olduğunu bilseydim seni bu kadar uğraştırmazdım. Açılma sorunu içinde yapacak bir şey yok aktarma işlemi bittikten sonra kapatırım. Eline koluna emeğine sağlık
Cevapla
#33
Kdoların otomatik olarak kapatması gerek açılan Excel dosyalarini
Workbooks(oFile.Name).Close kodu kapatmıyor mu?
Cevapla
#34
(02/11/2019, 16:15)berduş yazdı: Kdoların otomatik olarak kapatması gerek açılan Excel dosyalarini
Workbooks(oFile.Name).Close kodu kapatmıyor mu?
Açılan exceller açık kalıyor kapanmıyor manuel kapatmak gerekiyor.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da