kapalı dosyadan veri almada sorun

[Fuat Şirin]

Public DB As ADODB.Connection
Public RS As ADODB.Recordset
Public SQLStr As String
Sub DBON()
On Error Resume Next
Set DB = New ADODB.Connection
MyPath = Application.ThisWorkbook.Path & "\" & "1.XLS"
DB.Open "Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & MyPath
End Sub
Sub DBOFF()
On Error Resume Next
DB.Close
Set DB = Nothing
End Sub
Sub RSON()
On Error Resume Next
Set RS = New ADODB.Recordset
RS.CursorLocation = adUseClient
RS.CursorType = adOpenDynamic
RS.LockType = adLockOptimistic
End Sub
Sub RSOFF()
On Error Resume Next
RS.Close
Set RS = Nothing
End Sub
Sub KayitBul()
On Error Resume Next
DBON
RSON
[a2:c1000].ClearContents
SQLStr = "SELECT [SIRA],[ADI],[SOYADI] FROM [DATA$] "
RS.Open SQLStr, DB, 1, 3
Range("a2").CopyFromRecordset RS
[a1].Select
RSOFF
DBOFF
End Sub

bu kodları kullanarak kapalı dosyadan veri alıyorum
fakat bu kodları başka bir excel dosyasına kopyaladığımda
compleate error hatası veriyor
yardımcı olursanız sevinirim

 

[Haluk]

Orjinal dosyadaki referansların aynısını diğer dosyada da işaretlemeniz lazım.

VBE'de Tools >> References bölümü...

 

[Fuat Şirin]

hocam çok saolun
harikasınız

 

[Fuat Şirin]

peki hocam ben bunda c sutununa kadar alıyorum
bunu g sutununa kadar almak için ne yapmak lazım

 

[Fuat Şirin]

hocalarım bu konuda yardımcı olursanız sevinirim

 

[Zeki Gürsoy]

Aşağıdaki kısmı sütun başlıklarıyla uzatın.

[SIRA],[ADI],[SOYADI]

 

[Fuat Şirin]

hocam çok teşekkür