Ado

[merakli_72]

Arkadaşlar selam
Aşağıdaki gibi ADO ile alınan Bir DBF dosyasının Excelde sutun(Alan) başlıklarının görünmesi nasıl sağlanabilir. Excele sadece kayıtlar geliyor. Teşekkürler

********************************************************

Dim cn As Object, rs As Object
Dim DosYa As String

DosYa = "c:\windows\Temp\" 'Örnek dosya

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};Dbq=" & _
DosYa

Set rs = cn.Execute( _
"SELECT * FROM Bsm_Ciro")


Cells.ClearContents
[A2].CopyFromRecordset rs

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing

 

[Recep İpek]

Kodlarınıza aşağıdaki satırı ekleyiniz.

********************************************************
Dim cn As Object, rs As Object
Dim DosYa As String

DosYa = "c:\windows\Temp\" 'Örnek dosya

Set cn = CreateObject("ADODB.Connection")

cn.Open _
"Driver={Microsoft dBASE Driver (*.dbf)};Dbq=" & _
DosYa

Set rs = cn.Execute( _
"SELECT * FROM Bsm_Ciro")


Cells.ClearContents

For i = 1 To rs.Fields.Count
Cells(1, i).Value = rs.Fields(i - 1).Name
Next

[A2].CopyFromRecordset rs

rs.Close
cn.Close

Set rs = Nothing
Set cn = Nothing