VB6 - Excelden Veri Çekmek? - YARDIM

14-08-2010, 19:16:21

~~Nio~~

Üyeliği durduruldu

Merhaba üstadlar,

Excelden vb6 ya veri çekmek istiyorum. İstediğim hücredeki veri örneğin A1 hücresindeki veriyi textboxuma çekmek istiyorum.
Nasıl yapılır?

Şimdiden teşekkürler..

14-08-2010, 22:58:01

#2

kazersoft

1-2 saate kadar eklerim. kolay gelsin ama nette çok butür şeyler birde texte neyini çekcen belirli hücredenmi?

14-08-2010, 23:49:31

#3

~~Nio~~

Üyeliği durduruldu

evet belirli hücreden

15-08-2010, 03:19:44

#4

kazersoft

' Exceli referances/microsfot excel object library actif et
' Excel nesnesini kullanabilmemizi sağlayan tanımlamalar
Dim ExlObj1 As New Excel.Application
Dim ExWb1 As New Excel.Workbook
Dim ExWs1 As New Excel.Worksheet
Set ExWb1 = ExlObj1.Workbooks.Open(App.Path & "\Raporlar.xls") ' buraya excelin adı aynı klasörde olsun
Set ExWs1 = ExlObj1.ActiveSheet
Dim bilgi
bilgi = Trim(ExWs1.Cells(1, 1)) '1.satır 1.sütunu alır
ExWb1.Close
Set ExlObj1 = Nothing
Set ExWb1 = Nothing
Set ExWs1 = Nothing

15-08-2010, 15:46:40

#5

~~Nio~~

Üyeliği durduruldu

kazersoft adlı üyeden alıntı: mesajı görüntüle

' Exceli referances/microsfot excel object library actif et
' Excel nesnesini kullanabilmemizi sağlayan tanımlamalar
Dim ExlObj1 As New Excel.Application
Dim ExWb1 As New Excel.Workbook
Dim ExWs1 As New Excel.Worksheet
Set ExWb1 = ExlObj1.Workbooks.Open(App.Path & "\Raporlar.xls") ' buraya excelin adı aynı klasörde olsun
Set ExWs1 = ExlObj1.ActiveSheet
Dim bilgi
bilgi = Trim(ExWs1.Cells(1, 1)) '1.satır 1.sütunu alır
ExWb1.Close
Set ExlObj1 = Nothing
Set ExWb1 = Nothing
Set ExWs1 = Nothing

Çok teşekkürler...

Yalnız hocm 1.satır 1.sütun demişsin ya. A,B,C diye gidiyor sütünlar harf yerine rakam mı veriyoruz.

15-08-2010, 19:51:26

#6

kazersoft

Nio adlı üyeden alıntı: mesajı görüntüle

Çok teşekkürler...

Yalnız hocm 1.satır 1.sütun demişsin ya. A,B,C diye gidiyor sütünlar harf yerine rakam mı veriyoruz.

evet sütünları say satırda numrası var zaten sayıyla kolay gelsin

15-08-2010, 19:52:31

#7

kazersoft

Nio adlı üyeden alıntı: mesajı görüntüle

Çok teşekkürler...

Yalnız hocm 1.satır 1.sütun demişsin ya. A,B,C diye gidiyor sütünlar harf yerine rakam mı veriyoruz.

osmaniyelimiydin

benimde memleket osmaniye pm at konuşalım ...