Çekilen hücrelerde rakam varsa textleri göstermiyor.Yoksa gösteriyor.

[eminkot]

Çekilen hücrelerde rakam varsa textleri göstermiyor.Yoksa gösteriyor.

Data adlı excel dosyasından Veri adlı dosyaya veri çekmekteyim.Ancak çekilen hücrelerde rakam varsa textleri göstermiyor.Yoksa gösteriyor.

Dosyaya bir göz atın.

d:\VERİ olarak bir klasör açın ve her iki dosyayı ekleyin.

Veri dosyasında Çek butonu ile Datadaki bilgiler aynı range çekiliyor.

Kullanmış olduğum kod;

Private Sub CommandButton1_Click()
Dim rs, MyString
Set baglanti1 = CreateObject("ADODB.Connection")
Yol = "DRIVER={Microsoft Excel Driver (*.xls)};" & "DBQ=d:\VERİ\Data.xls"
baglanti1.Open Yol
Set rs = baglanti1.Execute("[DATA$B2:E6]")
Worksheets("ANA").Range("C11:F14").CopyFromRecordset rs
rs.Close
baglanti1.Close
End Sub

 

[eminkot]

yardım edecek biri yok mu ?

 

[Recep İpek]

Bende hem 1'i, hemde rrr'leri aktardı.

 

[eminkot]

Merhaba Ripek,

Mesela Veri2 nin ilk hücresine 1 yazarsanız dördüncü hücresindeki rr ler gözükmeyecektir.

Veya ilk hücreye (rastgele) "www" yazın ikinci hücreye rakam "123" dördüncü hücreye " ttt" .Çekin , Rakamlar gözükmüyor.

"www" leri silin , sadece "123" gözüküyor.

anlamadım gitti.

 

[Levent Menteşoğlu]

Bu veri alma yönteminizden kaynaklanıyor. Veri alınırken ilk 10 değerin tipine bakılıp çoğunluk veri tipine uymayan veriler çağırılmıyor. Bu durumda veri çekme yöntemini değiştirmek gerekir, dosyanızdaki kodu aşağıdaki gibi değiştirerek deneyin. Tüm veriler string kabul edilerek çağırılacaktır.

Private Sub CommandButton1_Click()
Dim rs, MyString
Set baglanti1 = CreateObject("ADODB.Connection")
Yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\VERİ\Data.xls;Extended Properties=""Excel 8.0;IMEX=1"";"
baglanti1.Open Yol
Set rs = baglanti1.Execute("[DATA$B2:E6]")
Worksheets("ANA").Range("C11:F14").CopyFromRecordset rs
rs.Close
baglanti1.Close
End Sub

Not: Bu daha önce benimde başıma gelmiş bir durumdu, yukarıda verdiğim cevabı ve kod önerisinide değerli dostum ve üstadım Sn Haluk beyden almıştım. Konuyla ilgili kendisi daha detaylı açıklama yaparsa bende memnun olurum.

 

[eminkot]

oh beee

O halde , hem size hem Haluk bey'e teşekkür ediyorum.

İnanın uyuz olmuştum

 

[eminkot]

Büyük rangelerde işe yaramıyor

Mevcut Kimya.xls de kodu denedim yine çalışmadı... ?!
(Küçük rangelerde mi acaba geçerli ? )

D:\K_Analiz klasörü açın ve ekli Kimya.xls ile Data.xls yükleyin.

ve deneyin.


V'nin altındaki sarı hücreye rakam , mavi hücreye txt girdiğinizde txt gözükmeyecek.

rakam girdiğinizde gözüküyor.

( Not: Spinbutton ile ileri geri , Kaydet ile Data.xls kayıt yapıyorsunuz. )

 

[eminkot]

Dosyaları unutmuşum...

 

[Levent Menteşoğlu]

Ben size daha garantili bir kod önereyim. Dosyanızdaki tüm kodları silin ve sadece spinbuttona aşağıdaki kodu yazın.

Private Sub SpinButton1_Change()
On Error Resume Next
[b9:o30].ClearContents
[b3] = SpinButton1.Value + 1
sat = ([b3] - 1) * 22 + 5
For a = 1 To 22
For b = 2 To 15
deger = ExecuteExcel4Macro("'C:\K_Analiz\[Data.xls]Data'!R" & sat + a - 1 & "C" & b)
If deger <> 0 Then Cells(a + 8, b) = deger
Next: Next
End Sub

 

[eminkot]

İşin bam teli zaten burası.

ExecuteExcel4Macro ile ağ paylaşımlı bir ortamda dataları çekemiyorsunuz.

For next döngüsü sistemi aşırı kasıyor.

Dolayısıyla ;

Set baglanti1 = CreateObject("ADODB.Connection")
Yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\VERİ\Data.xls;Extended Properties=""Excel 8.0;IMEX=1"";"
baglanti1.Open Yol
Set rs = baglanti1.Execute("[DATA$B2:E6]")
Worksheets("ANA").Range("C11:F14").CopyFromRecordset rs
rs.Close
baglanti1.Close

ile verileri çekmek işi çözdü.

Ancak şimdi de mevcut sorun ortaya çıktı.

Eğer ExecuteExcel4Macro yu for next döngüsü kullanmadan direk range aralığını çekerek kullanabilirsek belki uygun olur.

 

[Levent Menteşoğlu]

Bu durumda Data.xls dosyasını arka planda açıp verileri okuyup tekrar kapatan bir kodlama kullanmayı deneyin.

 

[Levent Menteşoğlu]

Sorun sanıyorum ilk 1 nolu aralıktaki verilerden sonra başlık tanımlanmadığından ortaya çıkıyor. Bu durumda şöyle bir çözüm daha geliştirilebilir, Kimya.xls dosyanızda bir sayfa daha oluşturun, bu sayfaya data.xls dosyasındaki tüm verileri yukarıda verdiğim kod ile çekin, sonrasında spinbuttonla verileri bu sayfadaki listeden seçebilirsiniz.

 

[eminkot]

Sayın Leventm,

İlk önce ilginiz için teşekkürler.

http://www.excel.web.tr/showthread.php?t=35850

de en son sizin tavsiye etmiş olduğunuz yöntemi sayın Ripek de belirtmişti.

Ben en iyisi yapmak istemiş olduğum olayı anlatayım.

1.- Ağ paylaşımlı bir ortamda bir bilgisayarda Kimya.xls dosyası mevcut.Bu dosya sürekli açık ve dosya sürekli girilen değerlerle güncelleşiyor.

2.- Bu dosyadaki veriler Data.xls adlı dosyada kayıt ediliyor.Data.xls sürekli kapalı.

3.- Diğer ağ kullanıcılar kapalı olan Data.xls dosyasından hızlı bir şekilde verileri çekebilmeli.

Bütün mesajlarım bu konu ile alakalı idi.Ve bir noktaya kadar geldim.

ExecuteExcel4makro , ağ paylaşımlarında sorun çıkarıyor.Ve bilgileri for next döngüsü ile çekmek işi yavaşlatıyor.

Geriye ;

 Set rs = baglanti.Execute("[Sayfa1$a1:e65536]")
 [a1].CopyFromRecordset rs

tipi kodlar ile hızlı bir şekilde ağlardan , range aralığındaki bilgileri çekebildim.

Diğer Ana bilgisayarın ( yani Kimya.xls ve Data.xls bulunduğu bilgisayar ) kayıt işini ise belirtmiş olduğunuz gibi Data.xls dosyası anlık açılıyor kayıt ediliyor ve tekrar kapatılıyor.Zaten aynı klasörde olduğundan bir sorun teşkil etmiyor.

Tüm sorun Range aralığına kayıt edilen rakamların veya txtlerin birlikte gözükmemiş olması.

 Yol = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\VERİ\Data.xls;Extended Properties=""Excel 8.0;IMEX=1"";"
baglanti1.Open Yol

bu işi çözecek gibiydi.Küçük rangeler için işe yarıyor.

Biraz uzun oldu ,umarım derdimi anlatabildim.

 

[Levent Menteşoğlu]

12 nolu mesajımı dikkate almanızı öneririm. Yani kapalı dosyadan verilerin tamamını çekin ve süzme işlemini bu listeden yapın.

 

[eminkot]

Yine olmadı ,

Kimya.xls'e Data adlı sheet açtım ve bir button vasıtasıyla verileri vermiş olduğunuz kodla komple aktardım.Yine aynı hatayı veriyor.

Private Sub CommandButton2_Click()
Dim rs, MyString

Set baglanti1 = CreateObject("ADODB.Connection")
Yol1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\K_Analiz\Data.xls;Extended Properties=""Excel 8.0;IMEX=1"";"
baglanti1.Open Yol1

Set rs = baglanti1.Execute("[Data$A1:O686]")
Worksheets("Data").Range("A1:O686").CopyFromRecordset rs
rs.Close
baglanti1.Close

End Sub

Aynı olayı ExecuteExcel4Macro ile denedim oldu ama verileri çekmesi 15 sn sürdü.Birde ağ üzerinden düşünürsek iyce kasacak.

Private Sub CommandButton3_Click()
For a = 1 To 682
For b = 1 To 14
deger = ExecuteExcel4Macro("'D:\K_Analiz\[Data.xls]Data'!R" & a & "C" & b)
If deger <> 0 Then Worksheets("Data").Cells(a, b) = deger
Next
Next
End Sub

 

[eminkot]

En iyisi şunu öğrenmek.

"ExecuteExcel4Macro" kullanmadan kapalı bir excel dosyasından , belli bir range aralığını çekmek mümkün mü ?

Belki farklı bir yol vardır...

Not: Ağda kullanılacağı için dosya açılmaması gerekiyor.

 

[Levent Menteşoğlu]

Birde aşağıdaki gibi denermisiniz.

Private Sub CommandButton2_Click()
Dim rs, MyString
Set baglanti1 = CreateObject("ADODB.Connection")
Yol1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\K_Analiz\Data.xls;Extended Properties=""Excel 8.0;HDR=no;IMEX=1"";"
baglanti1.Open Yol1
Set rs = baglanti1.Execute("[Data$A1:O686]")
Worksheets("Data").Range("A1:O686").CopyFromRecordset rs
rs.Close
baglanti1.Close
End Sub

 

[Recep İpek]

Birde DONGU fonksiyonundaki;

gun = 5 + a * 22
gun1 = gun + 21

kodlarını

gun = 4 + a * 22
gun1 = gun + 22

yaparak denermisiniz?

 

[eminkot]

Sayın Levent bey,Sayın Ripek,

kodu denedim yine olmadı.

Ayrıca Levent beyin Spinbutton için vermiş olduğunuz kodları uyguladığımdan DONGU ye ihtiyaç kalmadı.(Yinede denedim olmadı)

Revize edilmiş dosyaları gönderiyorum.(karışıklık olmasın diye)

http://www.excel.web.tr/showthread.php?t=37739

Bu linkte sayın FPC , veritabanının tanımlanmış alanlarından bahsediyor.

Excel yerine Acces veritabanı olarak kullanmış olsak bu sorun gider mi ?

 

[Levent Menteşoğlu]

Son verdiğim kod, Data dosyasındaki 1.satıra başlıklar yazarsanız yani boş bırakmazsanız doğru çalışacaktır.

Not: Kodun doğru çalışması için tanımlanan aralıktaki ilk sekiz hücreden en az birisinin dolu olması gerekir.