Hatırlatma programı foruma eklenmiştir.
http://www.excelce.net/forum/index.php?topic=1661.0

Gönderen Konu: kapalı dosyadan veri alma  (Okunma sayısı 10447 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı K@pT@n

  • Excelce Onbaşı
  • **
  • İleti: 9
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ahmet özen
  • İl / İlçe: Ankara
  • Mesleğiniz: öğretmen
kapalı dosyadan veri alma
« : 25 Ağustos 2010, 15:27:15 »
Kapalı dosyadan veri alırken aşağıdaki hatayı veriyor.



Daha sonra bu oluyor



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.....

Çevrimdışı Bülent Öztürk

  • Excelce.Net Yönetici
  • *
  • İleti: 1411
  • Puan +19/-0
  • Cinsiyet: Bay
  • Türkçe Konuşup Excelce Yazıyoruz...
    • Bülent Öztürk
  • Ad Soyad: Bülent Öztürk
  • Doğum Yılınız: 1976
  • İl / İlçe: İstanbul / Çorlu
  • İşletim Sisteminiz: Win.10
  • Mesleğiniz: Bilgi Teknolojileri
  • Office Versiyonunuz: 2016
Ynt: kapalı dosyadan veri alma
« Yanıtla #1 : 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.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@gmail.com)

Çevrimdışı K@pT@n

  • Excelce Onbaşı
  • **
  • İleti: 9
  • Puan +0/-0
  • Cinsiyet: Bay
  • Excel'den Daha Fazlası!..
  • Ad Soyad: ahmet özen
  • İl / İlçe: Ankara
  • Mesleğiniz: öğretmen
Ynt: kapalı dosyadan veri alma
« Yanıtla #2 : 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.]