- Katılım
- 24 Temmuz 2007
- Mesajlar
- 728
- Excel Vers. ve Dili
- Excel 2010 tr
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
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