2 dosyaya dışarıdan veri aktarma yaptım ama ?

[blackkugu]

Sub excel_aktar()
'& .Cells(.Rows.Count, 1).End(xlUp).Row

Dim conn As Object, rs As Object, yol As String, dosya
Set conn = CreateObject("Adodb.Connection")
Set rs = CreateObject("Adodb.Recordset")
ChDir (ThisWorkbook.Path)
conn.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\" & Range("O3").Value & ".xls" & ";Extended Properties=""Excel 12.0;Hdr=yes"""


rs.Open "Select * from [Sheet1$A3:A27]", conn, 1, 1
Range("A2").CopyFromRecordset rs
rs.Close:

rs.Open "Select * from [Sheet1$B3:B27]", conn, 1, 1
Range("B2").CopyFromRecordset rs
rs.Close:

rs.Open "Select * from [Sheet1$C3:C27]", conn, 1, 1
Range("C2").CopyFromRecordset rs
rs.Close:

rs.Open "Select * from [Sheet1$J3:J27]", conn, 1, 1
Range("E2").CopyFromRecordset rs
rs.Close:

rs.Open "Select * from [Sheet1$K3:K27]", conn, 1, 1
Range("F2").CopyFromRecordset rs
rs.Close:


rs.Open "Select * from [Sheet1$D327]", conn, 1, 1
Range("D2").CopyFromRecordset rs
rs.Close: conn.Close

MsgBox "Aktarma yapıldı."





End Sub



kodlar yukarıda arkadaşlar Range("O3").Value O3 sutuna xls dosya adını yazıp verileri çekiyorum lakin "Select * from [Sheet1$A3:A27]", conn, 1, 1 A3 sutundan aşağıya doğru ilk boş sutuna kadar olan veriyi çeksin istiyorum misal A22 de boş sutun var a3 den a22 ye kadar veriyi sadece alsın istiyorum.
yapamadım.

 

[Korhan Ayhan]

Deneyiniz.

"Select * from [Sheet1$A3:A27] Where [Sütun Adı] Is Not Null", conn, 1, 1

 

[blackkugu]

çok tşk ederim dostum.