• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

HTML Formundan Excel'e Veri Kaydetme

abi bunların hiçbiri çalışmıyor anlaşılır biçimde anlatacak yokmu arkadaşlar.formlara yazı girip gönder yapıyorum sayfa kendi içine geri dönüp sadece formları temizliyor ama excel dosyasına hiç bir şey girilmemiş oluyor acaba yanlış bir şey mi var.
 
Haluk' Alıntı:
Merhaba,

Veri tabanı olan Excel dosyasını yerel ağda paylaşıma açılmış bir klasöre yerleştirip, HTML dosyasındaki VBscript kodunda da dosya yolunu buna göre değiştiriseniz olur tabii.

Aşağıdaki değişiklikleri denedim ve oldu;

HTML: 
.ConnectionString = "Data Source=\\iisispe\Ortak\TestDataBase.xls; Extended Properties=Excel 8.0;"

Ve;

HTML: 
Set xlBook = xlApp.Workbooks.open("\\iisispe\Ortak\TestDataBase.xls")


Burada;

iisispe >> Yerel ağdaki PC'nin adı

Ortak >> Yerel ağdaki iisispe adlı bilgisayarda paylaşıma açılmış klasörün adı
Genişletmek için tıkla ...



sayın haluk hocam bende sizin çalışmanızı değiştirerek kendime göre bi çalışma yaptım ve ağdan çalıştırmak üzere bu şekilde ayarladım ama ağdaki diğer pc ler eceldeki verileri görebiliyorlar fakat üzerine kayıt ekleyemiyorlar sadece benim pc den kayıt yapılabiliyo bu sorunu nasıl çözebiliriz?
 
HTML VE Excell Sorgulama ve Kayıt Hk

Merhaba Haluk Bey forumda bilgi paylaşımınızı gördüm ve beğendim, Bizler gibi anlamayan arkadaşlara yardımcı olduğunuz için teşekkür ediyorum. Şimdi burda vermiş olduğunuz html kodlarında kendime göre ad soyadı , meslek yerine kendi excell dosyamdaki menü adlarımı koydum ve html olarak kaydettim. Benim sormak istediğim nokta şu ; burda ki html kodlarında excele kayıt gönderme var peki bunun sorgulama kodlarını ve o sorgulamaya göre kayıt kodları nasıl olacak yardımcı olursanız sevinirim. Teşekkürler

Haluk' Alıntı:
Sayın mnz, eğer dosyayı indirmekte problem yaşıyorsanız şöyle yapalım.

HTML sayfasının kodları aşağıdaki gibidir;

Kod: 
<html lang=Tr>

<title>Test Form</title>

<head>
	<meta http-equiv=Content-Type content="text/html; charset=Windows-1254">
</head>

<script language="VBscript">
	Sub SendData()
		Set xlApp = CreateObject("Excel.Application")
		xlApp.Visible = False
		Set xlBook = xlApp.Workbooks.open("C:\TestFolder\TestDatabase.xls")
		Set Sh=xlBook.sheets("Data")
		NoA = Sh.cells(65536,1).end(3).row + 1
		Sh.cells(NoA, 1) = document.veriler.ad.value
		Sh.cells(NoA, 2) = document.veriler.soyad.value
		Sh.cells(NoA, 3) = document.veriler.meslek.value
		Sh.cells(NoA, 4) = document.veriler.dogum_tarih.value
		xlBook.save
		xlBook.close
		Set xlBook = Nothing
		Set xlApp = Nothing
	End Sub
</script> 

<form name="veriler" enctype="text/plain">
	<table border="0" cellspacing="0" cellpadding="4" width="90%">
		<tr>
			<td width="30%"><div align="right">[b]Ad :[/b]</div></td>
			<td width="70%"><input type="text" name="ad" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">[b]Soyad :[/b]</div></td>
			<td><input type="text" name="soyad" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">[b]Meslek :[/b]</div></td>
			<td><input type="text" name="meslek" size="30"></td>
		</tr>
		<tr>
			<td><div align="right">[b]Doğum Tarihi :[/b]</div></td>
			<td><input type="text" name="dogum_tarih" size="30"></td>
		</tr>
		<tr>
			<td></td>
			<td><input type="submit" name="submit" value=" Gönder" onClick="SendData()"></td>
		</tr>
		
	</table>
</form>

</html>

Kodlarda adı geçen dosya yolundaki Excel dosyasını oluşturun (C:\TestFolder\TestDatabase.xls).

Sayfalardan birinin adı Data olsun.

Bu sayfada, A1-B1-C1-D1 hücrelerine tablo başlıklarını girin. (Ad, Soyad, Meslek, Doğum Tarihi) şeklinde ve dosyayı kaydedip, kapatın.

Sonra, HTML sayfasını açın, verileri girip düğmeye tıklayarak verilerinizi Excel dosyasına kaydedin.

Not: HTML dosyasını IE ile açmayı unutmayın ...
Genişletmek için tıkla ...
 
telefon rehberi

iyi günler sizin çalışmalarınızdan bakaraktan kenime uygun bir sekilde ayarlayarak telefon rehberi yapmaya çalıştım ama ad soyad gibi olan yerlerin sayılarını biraz artırınca belli kısımların kayıtlarını yapmıyor bunu nasıl çöze bilirim acaba ???

ayarladıgım sayfa ektedir
c\Testfolder\ uzantısında çalışıyor tabi siz daha iyi bilirsiniz
 
Arkadaşlar size zahmet olmazsa, bizlere yardımcı olmak babında yinede bir dosya ekleyin.
 
burada verilen kodları söylediğiniz şekilde uyguladım fakat kaydettiğimde excell'e kaydetmiyor....
 
Pardon ama bende mi bir sorun var bir türlü anlayamadım ne yaptıysam olmuyor. Herşeyi söylenenler gibi yaptım ancak bir türlü verileri excele kaydedeimiyorum. Forumda sorun yok kayıt yaptıramıyorum.
 
Veri Kaydetme Problemi

Öncelikle bu konunun bu kadar ilgi çekmesi çok sevindirici...
Konunun başlangıç tarihine bakarsanız üzerinden bunca zaman geçmesine rağmen hala ilgi var... Örnek kodlar sayfaların içinde var... Yapmanız gereken kodların içindeki C:\VERI\ gibi klasör bağlantlarını doğru kurmak... html kodları gayet güzel çalışıyor...
 
Bir yığın işimi kolaylaştıracak bir çalışma. Emeği geçen herkese teşekkür ederim.
Burada mükemmel insanlar var.
Üstadlarımdan birinin bir sözü var, hanginizindi, hatırlayamadım şimdi. ama aynen öyle "dünyada iki çeşit insan vardır: excel bilenler ve bilmeyenler"
 
Ben, bilmeyenler tarafındayım... :)
 
öncelikle konuda emeği geçen tüm arkadaşlara teşekkür ediyorum(özellikle haluk hocam a). haluk hocamın verdiği kodlar gayet güzel çalışıyopr fakat serverde başarısız:( çok zmandır arayış iersindeym ama bir çözüm sunulursa çok makbule geçecek . şimdiden teşekkur ediyorum....
 
Web sayfasındaki açılır menüye makro ile bilgi girişi nasıl yapılrı

Bir internet portalına makro ile otomatik bilgi girişi yapmaya çalışıyorum fakat yapamadığım açılır menüye bilgi girişi yapamıyorum. direk boş bıraktırıyor. Bu konuda yardımcı olabilirmisiniz. Sayfanın açılır menülü olan kısmı aşağıdaki gibidir.

<TD class=servHd noWrap align=left width=133>Parça Kodu</TD>
<TD class=servBodL noWrap colSpan=4><SELECT size=1 name=f_parcaKodu id=SELECT1>
<OPTION selected>0077935680E</OPTION> <OPTION>0467489050E</OPTION>
<OPTION>0467532040E</OPTION> <OPTION>0467536900E</OPTION>
<OPTION>0467607450E</OPTION> <OPTION>0467607460E</OPTION>
OPTION>8200672792</OPTION>
<OPTION>8200672793</OPTION></SELECT></TD></TR>
<TR>


Makro ise aşağıdaki gibidir. Fakat portala statik ip ile giriş mümkün bu nedenle giriş yapılmaz.
Sub portalgiris()
Dim URL As String
Dim IE As Object
Dim dongu As Integer
URL = "http://portal.xxxxxxx.com.tr/frm_login.asp"
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
.Navigate URL
Do While .ReadyState <> 4: Loop
With .document.All
.frm_login_kodu.Value = "xxxxxx"
.frm_login_kadi.Value = "xxxxxx"
.frm_login_parola.Value = "xxxxxx"
End With
.document.forms(0).submit
Do While .ReadyState <> 4: Loop
End With
URL = "http://portal.xxxxxx.com.tr/page.asp?pageid=frm_siparis_etiket"
With IE
.Visible = True
.Navigate URL
Application.Wait Now + TimeValue("00:00:03")
Do While .ReadyState <> 4: Loop
With .document.All
.f_miktar.Value = etiket.adet.Value
.f_ambalajMiktari(0).Value = etiket.kasaad.Value
.f_irsaliyeNo(0).Value = etiket.irsaliyeno.Value
.f_sevkTarihi.Value = etiket.Calendar5.Value
.f_partiNo(0).Value = etiket.refno.Value
.f_kasaTipi(0).Value = etiket.kasatip.Value
.f_netAgirlik(0).Value = etiket.netagirlik.Value
.f_brutAgirlik(0).Value = etiket.brutagirlik.Value
For dongu = 1 To 1000
.f_parcaKodu(0).Focus
.f_parcaKodu(0).Value = etiket.firstkr.Value
etiket.parcakodportal.Value = .f_parcaKodu(0).Value
If etiket.parcakodportal.Value = etiket.urunad.Value Then
dongu = 1000
Else
dongu = dongu + 1
End If
Next dongu
End With
.document.forms(0).submit
Do While .ReadyState <> 4: Loop
End With

Set IE = Nothing
End Sub
 
slmlar

arkadaşlar merhaba konunun bu zamanlara kadar geldiğine çok sewindim..benim bir sorunum war, sizin baştan beri uğraştığınıza çok benziyo.. umarım bana yardımcı olabilirsiniz.. anlatmaya başlıyorum.. şimdi bi tane web sayfası olacak orada adı soyadı, tc kimlik gibi bilgiler olacak.. gönder tuşuna bastığımızda daha önceden matbu olarak içeriği hazırlanmış olan word belgesinde gerekli yerlere web sayfasından gelen weriler doldurularak kullanıcıya word sayfası olarak önüne gelecek.. o isterse kaydedecek, istersede çıktısını alıp kapatacak.. ben herhangi bi şekilde web sayfasında yazdıklarımı bi weritabanına kaydetmesini istemiyorum. o an oraya ne yazılıp gönder tuşuna basıldıysa anlık olarak word sayfasına yazılıp kullanıcının önüne word dökümanı olarak çıkmasını istiyorum. umarım derdimi anlatabilmişimdir... şimdiden emeği geçecek olanlara çok teşekkürler.... inşallah derdime derman olursunuz...
 
Olmuyor!

değerli hocalarım şimdi bu html form konusunu başa döndürmek istiyorum. bir türlü olmadı nedense. bütün yazılanları aynı şekilde uyguladım olmadı ekstradan xls dosyasının bulunduğu klasöre tüm izinleri verdim yine olmadı. ie6 firefox ve chrome da denedim sonuç 0 veriyollarındada bir problem yok eminim. uzun zamandır web kodlamalarını kendim yapamasamda asp entegre ile çeşitli web siteleri yaptım bunu yapamadım çok utandım:) yok mu yardım edecek acaba?
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst