HTML Formundan Excel'e Veri Kaydetme

X

x-trance

Katılım
20 Temmuz 2008
Mesajlar
37
Excel Vers. ve Dili
2003
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.
 
U

ufur87

Katılım
3 Nisan 2007
Mesajlar
3
Excel Vers. ve Dili
2003 tr
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?
 
A

aydin1977

Katılım
24 Eylül 2008
Mesajlar
13
Excel Vers. ve Dili
ofis2003
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 ...
 
B

barutcu

Katılım
3 Ekim 2008
Mesajlar
9
Excel Vers. ve Dili
bilmiyorum ögrenecegim
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
 
O

ofbalki

Katılım
24 Şubat 2006
Mesajlar
243
Excel Vers. ve Dili
EXCEL 2003
Arkadaşlar size zahmet olmazsa, bizlere yardımcı olmak babında yinede bir dosya ekleyin.
 
N

nigeldejoong

Katılım
20 Ocak 2009
Mesajlar
1
Excel Vers. ve Dili
office 2003
burada verilen kodları söylediğiniz şekilde uyguladım fakat kaydettiğimde excell'e kaydetmiyor....
 
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Örnek dosyaları ekte bulabilirsiniz.
 

Ekli dosyalar

K

kalabakli

Katılım
1 Şubat 2008
Mesajlar
2
Excel Vers. ve Dili
office 2007
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.
 
B

baykala

Katılım
13 Nisan 2005
Mesajlar
45
Excel Vers. ve Dili
Excel 2003
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...
 
B

baknediycem

Katılım
27 Şubat 2007
Mesajlar
353
Excel Vers. ve Dili
2002 Türkçe
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"
 
Haluk

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,323
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Altın Üyelik Bitiş Tarihi
∞
Ben, bilmeyenler tarafındayım... :)
 
E

erkan_islamoglu

Katılım
20 Haziran 2009
Mesajlar
1
Excel Vers. ve Dili
excel2007 türkçe
ö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....
 
H

hryildirim

Katılım
2 Ekim 2006
Mesajlar
37
Excel Vers. ve Dili
Office 2000 Türkçe
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
 
C

cagdasahmet

Katılım
3 Ağustos 2009
Mesajlar
4
Excel Vers. ve Dili
2003tr
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...
 
S

selcuk737

Katılım
21 Ağustos 2009
Mesajlar
1
Excel Vers. ve Dili
türkçe
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?
 
R

Recep İpek

Katılım
14 Şubat 2006
Mesajlar
3,426
Excel Vers. ve Dili
(Excel 2016 - İngilizce)
Altın Üyelik Bitiş Tarihi
30-11-2022
Örnek dosyalarınızı eklerseniz yardımcı olmaya çalışalım.
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst