veri aktarma

Ücretli Özel Dersler Ve Özel Programlamalar İle İlgili Bölüm

veri aktarma

İleti#1)  cadriano » 11 Kas 2018 21:05

Arkadaşlar herkeze selamlar sevgiler saygılar.
Aşağıdaki kodlar ile kapalı excel dosyasına veri aktarıyorum sorunum şu
bazen satır atlıyor istediğim şey a2 den itibaren başlasın ben veri aktardıkça
son dolu satırdan devam etsin. Şindiden herkeze teşekkürler...

Sheets("Veriler").Select
Set con = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
con.Open "Provider=Microsoft.ace.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "\Veriler.xlsx;" & _
"Extended Properties=""Excel 8.0;HDR=Yes"""
sorgu = "select * from [Veriler$]"
rs.Open sorgu, con, 1, 3
For i = 1 To Sheets.Count
rs.addnew
rs(0).Value = Range("A" & i)
rs(1).Value = Range("B" & i)
rs(2).Value = Range("C" & i)
rs(3).Value = Range("D" & i)
rs(4).Value = Range("E" & i)
rs(5).Value = Range("F" & i)
rs(6).Value = Range("G" & i)
rs(7).Value = Range("H" & i)
rs(8).Value = Range("I" & i)
rs(9).Value = Range("J" & i)
rs(10).Value = Range("K" & i)
rs(11).Value = Range("L" & i)
rs.Update
Next
MsgBox "Veri aktarma işlemi tamamlandı", vbCritical
Set rs = Nothing: Set con = Nothing
Kullanıcı avatarı
cadriano
Siteye Alışmış
 
Adı Soyadı:enver caliskan
Kayıt: 01 Oca 2011 04:56
İleti: 137
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İtalya

Cevap: veri aktarma

İleti#2)  Ali ÖZ » 11 Kas 2018 22:00

Merhaba,
Konuyu uygun başlık altında açmanızı rica ederim.

Bu satırı, For i = 1 To Sheets.Count ' Bu kod sayfaların döngüsüdür.
Bu şekilde değiştirin.
For i = 1 To range("a65536").end(3).row
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9786
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA


Forum Ücretli İşlemler

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe