Excel Vba Forum - Excelce.Net

SORU ve CEVAPLAR (Yazılabilir) => Microsoft Excel, Vba, Makro, Formül vb. Soruları => Konuyu başlatan: K@pT@n - 25 Ağustos 2010, 15:27:15

Başlık: kapalı dosyadan veri alma
Gönderen: K@pT@n - 25 Ağustos 2010, 15:27:15

Kapalı dosyadan veri alırken aşağıdaki hatayı veriyor.

(http://i36.tinypic.com/2941mv9.jpg)

Daha sonra bu oluyor

(http://i38.tinypic.com/155jwas.jpg)

Sub kapali_aktar()
Dim conn As Object, rs As Object
Set conn = CreateObject("AdoDb.Connection")
Set rs = CreateObject("AdoDb.Recordset")
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.Path & "10a.xlsm;Extended Properties=""Excel 12.0;HDR=yes;"""
rs.Open "Select * from [Kapalı$];", conn, 1, 3
sat = Cells(65536, "A").End(xlUp).Row + 1
rs.movefirst
Range("B6").Select
    Range("A2:EM55").Select
    Selection.ClearContents
    Range("FG1").Select
Range("A2").CopyFromRecordset rs
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

Sorunu çözmede yardım edebilecek biri var mı?Teşekkürler.....

Başlık: Ynt: kapalı dosyadan veri alma
Gönderen: Bülent Öztürk - 25 Ağustos 2010, 15:31:40

Ahmet Bey,
10a.xlsm adlı dosyanızı ekleyebilir misiniz?

Özel verileriniz varsa, silip veya değiştirip ekleyin lütfen.

Başlık: Ynt: kapalı dosyadan veri alma
Gönderen: K@pT@n - 25 Ağustos 2010, 16:34:52

Dosyaları Gönderiyorum...Teşekkürler

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]