textbox'daki dosya adı değişkeni

[honestman]

Merhaba,



Aşağıda kırmızıyla işaretlenen sabit dosya adı yerine bir textbox a yazılan dosya adını nasıl değişken olarak atayabilirim?


Dim conn As Object, rs As Object
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"\sorgunveri.xls;extended properties=""excel 8.0;hdr=yes"""
rs.Open "Select * from [sorgunveri$];", conn, 1, 3
sat = Cells(65536, "A").End(xlUp).Row + 1
rs.movefirst
Range("A" & sat).CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

 

[Levent Menteşoğlu]

Aşağıdaki gibi kullanabilirsiniz.

conn.Open "Provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & _
"\[COLOR=Red]" & textbox1 & "[/COLOR].xls;extended properties=""excel 8.0;hdr=yes"""
rs.Open "Select * from [[COLOR=red]" & textbox1 & "[/COLOR]$];", conn, 1, 3

 

[honestman]

Merhaba,

Bu yöntemle veri aktardığımda kaynak dosyadan ilk satırdaki verileri almıyor çözümü için yardımınızı rica ederim.

 

[Korhan Ayhan]

Merhaba,

Tam emin değilim ama "hdr=yes" bölümündeki "yes" ifadesini "no" olarak değiştirip denermisiniz.

 

[honestman]

Aynen doğrudur teşekkürler.