Excelden Veri Alma -Excel Sayfasını İçe Aktarma

1 2 3 4 5 6 7
08/01/2020, 11:51

berduş

ufak bir çalışma ama geliştirilebilir.
aktarılacak tabloyu
excel dosyasını ve Excel sayfasını seçip butona basınca
isterseniz yeni tablo olarak isterseniz de  var olan tabloya aktarıyor
Not: maalesef 2 eksiği var
1 - Excelden alan aktaramıyorsunuz
2 - sayfa isminde boşluk varsa sorun çıkıyor
dilerim işinize yarar[attachment=31141]
bu sürümde
1 - tabloya alan da aktarabiliyorsunuz
2 - sayfa isminde boşluk varsa sorunsuz bir şekilde aktarıyor
3 - mümkün olduğunca hata önleme kodları eklendi
4 - dosya seçme iptalindeki hata giderildi
Not: Benim denemelerimde sorun çıkmadı ama garantisi yok)[attachment=31146]
5 - tablo eklemek yada bağlama özelliği[attachment=31489]
19 Şubat 2020 tarihli güncelleme: https://accesstr.net/attachment.php?aid=31520
19/02/2020, 14:27

berduş

bu sürümde
1 - alan da aktarabiliyorsunuz
2 - sayfa isminde boşluk varsa sorunsuz bir şekilde aktarıyor
3 - mümkün olduğunca hata önleme kodları eklendi
4 - dosya seçme iptalindeki hata giderildi
5 - tablo eklemek yada bağlama özelliği
6 - liste kutusunda veri on izleme
7 - Excel dosyasındaki belli bir aralıktaki veriyi alma;
sayfa seçmenin yanında hücre de seçilebilir
sadece sütun başlığı ;
yani ilk hücre : C
son hücre : F şeklinde de
Yada
yani ilk hücre : C7
son hücre : F şeklinde de yazılabilir
yani ilk hücre : C8
son hücre : F23 şeklinde de yazılabilir
satır numaraları eklenerek de;
8 - seçilen Excel dosyasını açma

19/02/2020, 15:00

adnan

Merhaba,
Sn.berduş, çok güzel olmuş elinize sağlık.
Saygılarımla
19/02/2020, 15:48

berduş

teşekkürler @adnan bey ama biraz tembellikten birazda bıkkınlıktan olsa gerek eğer hücre isimleri uygun formatta olmazsa hata vermesini engelleyecek kod eklemedim. ))
21/02/2020, 18:58

feraz

DCount("Name", "MSysObjects", "Name='" & txtTblAd & "'") > 0


üstteki yeri alttaki gibi yapmayacakmıydınız başka bir konuda yapmıştınız hani.

DCount("Name", "MSysObjects", "Name='" & txtTblAd & "' and type in (1,4,6)") > 0

Ayrıca hata verdi .Durumu Gif ile anlattım sayın hocam.


yanlış dosyayı indirmiş olabilirsiniz @feraz bey
son dosya 2. mesajda yer alıyor
1 2 3 4 5 6 7