Forum
Aktif konular
Üyeler
Kurallar
Arama
Uzman Vbciler Yardımmm Uzman Vbciler Yardımmm
-
arkdaşlar örnegın web sıtede bır yer var yandakı labelde Kod: t1231gyh yazıyor ben şunu ıstıyorum ben vısual basıcte bı program yazıyorumşu an calıştıgım fırma ıcın bu programda orada yazan kodu otomatıkman alt alta excelde kaydetmesını ıstıyorum nasıl yapabılırım örn: A1 kısmına kaydetıcek ?
-
Visual basicten excele kayıt vs.
Alıntı...
diyelim bir tablonuz var ve bu tabloya vbdeki programınızdan uygun şekilde veri göndereceksiniz...........
ve kullanıcı sizin tablonuzun orjinalliğini bozamıycak....
Evet arkadaşlar öncelikle herkese merabalar.
Şimdi diyelim bizim visual basicte yaptığımız bir program var ve ondaki bilgileri bir excel tablosuna göndermek istiyorsunuz....
öncelikle vbdeki projemin bulunduğu klasöre benim biçimini yaptığım tabloyu isminide tbfbas olarak değiştirip atıyorum sonra aynı klasöre aynı excel tablosundan birtane daha kopyalayın bunun da ismini tbfbas1 olarak değiştirip atıyoruz.yani iki tane aynı düzende iki tane tablo buluncak projenin içinde..
sonra programa bir buton oluşturup onunda captionunu excele gönder diye ayarlıyoruz.ve bu butonun clickcini açıyorum yani kod bölümünü....
privative sub excelegonder_click;
Dim exEE As Excel.Application
Dim m As Integer
Set exEE = CreateObject("excel.application")
exEE.Workbooks.Open (App.Path & "\TBFBAS.xls")
exEE.ActiveWorkbook.SaveAs (App.Path & "\TBFBAS1.xls")
'şu an excel tablomuzu açtık
sonra
exEE.Cells(3, 7) ="ibrahim özbaş" 'buda 3.satır 7. sütüna ibrahim özbaş yazar
exEE.Visible = True
End Sub
diyelim ben text1 ve text2 deki değerleri oluşturduğum tabloma atıcak ve toplamlarını 10. satır 11. sütüna atıcağım bunu içinde yukarda ibrahim özbaş yazdırdığımız kısım varya oraya alttakileri yazın;
exEE.Cells(8,11) =text1.text '8. ssatır 11.sütüna text1 deki değeri yazazar
exEE.Cells(9,11) =text2.text
exEE.Cells(10,11) =val(text1.text) + val(text2.text) 'burdada text1. ve text2. deki değerleri 10. satır 11. sütüna atar yanlız text1 ve text2 deki değerler sayı olsun
başka ne yapabilirsiniz diyelim benim bir database kaydım var ve ben o database kayıtlarını excele gönderip kaydetmek istiyorum onun içinde programda databasi butonda açıp aynı şekilde kodları yazmak gerekir örneğin; exEE.Cells(15,15) = teltab!adı gibi...
bu ne işime yarar gördünüz gibi databese kayıtlarını excelde daha önceden hazırlanmış bir biçimde ve düzenli bir şekilde istediğim şekilde gönderip kaydetme ve excelden çıktı almaya yarar....işin iyi tarafı kullanıcı gönderdiğiniz veride bir değişiklik yapsa da ve kaydetse de benim orjinal tablomda hiç bir şekilde değişiklik olmuyo zaten iki tane tablo kullanmamızın sebebi de o .....program ikinci tabloyu birinci tablo üzerinden açıyo.. :)
bu ara gönderilen verileri kaydetmek için farklı kaydet butonu seçilmelidir... -
-
aynısını dınrıdım paşa sagolda ben ınternetten sıtıyorum herhangı brıyere degeL
-
internetteki excele kayıt tam bilemiyorum hiç uygulama şansım olmadı Ne yazık ki yardımcı olamayacağım.
-
VatanisTurK bunu yazdı:
-----------------------------
aynısını dınrıdım paşa sagolda ben ınternetten sıtıyorum herhangı brıyere degeL
-----------------------------internetten istiyorum derken ne demek istedin anlamadım ? Sunu yapmak ıstiyorsun sanırım; bir şirketin sitesi var ve butun bayiler buradan excel'e gereken bilgileri girecek ?
bu şekilde birseyse hangi dille? bu vb ile olmaz script dilleri ile olur
-
sayfanın kodlarını winsock ile alman lazım. daha sonra o kaynak kodları içerisinde ilgili yerleri çekeceksin ve kodu ayıklayacaksın.
sonra arkadaşın verdiği şekilde excel e aktarırsın kodu.
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla