- Katılım
- 8 Ağustos 2005
- Mesajlar
- 16
- Excel Vers. ve Dili
- office xp
merhaba,
elimde bir çok text dosyası var ve içeriğini alt alta yazmak istiyorum. excel dosyaları için aşağıdaki kodla yapmıştım ama textler için çalıştıramadım. bununla ya da farklı bir şekilde nasıl yapılabilir?
</code>
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\aktarma\").Files
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=C:\aktarma\" & dosya.Name
baglanti.Open yol
Set rs = baglanti.Execute("[b6:f65536]")
sonsat = [B65536].End(3).Row + 1
Cells(sonsat, "b").CopyFromRecordset rs
rs.Close
baglanti.Close
Next<code/>
elimde bir çok text dosyası var ve içeriğini alt alta yazmak istiyorum. excel dosyaları için aşağıdaki kodla yapmıştım ama textler için çalıştıramadım. bununla ya da farklı bir şekilde nasıl yapılabilir?
</code>
For Each dosya In CreateObject("Scripting.FileSystemObject").GetFolder("C:\aktarma\").Files
Set baglanti = CreateObject("ADODB.Connection")
yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=C:\aktarma\" & dosya.Name
baglanti.Open yol
Set rs = baglanti.Execute("[b6:f65536]")
sonsat = [B65536].End(3).Row + 1
Cells(sonsat, "b").CopyFromRecordset rs
rs.Close
baglanti.Close
Next<code/>