HTML Formundan Excel'e Veri Kaydetme

xlomba · 11 Aralık 2011

şimdi bunu düzenledim ancak data.xls açıkken index.html den giriş yapamıyorum.amir açıklaması yazan sütuna farklı oturumdan cevap yazılacak ve excell sayfasının açılıp kapanması işini hallemedim.bu konuda yardımcı olabilir misiniz?

xlomba · 12 Aralık 2011

yardımcı olacak yokmu arkadaşlar?

xlomba · 14 Aralık 2011

yukarıda paylaştığım dosyada index.html ve data.xls var. (direkt olarak C:\ dizinde açıp çalıştırmanız gerekli)
şimdi; data.xls açıksa index.html den veri girşi yapılamıyor (kayıt almıyor)
bende de şuan için data.xls nin açık olması gerekiyor.bunun için birtane daha amir.htm (ekte verdim) gibi bir dosya oluşturmam gerekiyor.
amir.html den açıklama yazmak istenen yazının sıra nosu girilerek o satıra açıklama girilecek.
yardımcı olacak arkadaşlara şimdiden teşekkürler.

SONSUZLUK22 · 11 Ocak 2012

merhaba

aydin1977' Alıntı:
Sayın Modalı Merhaba

Öncelikle sorduğum soruya ilgi gösterdiğiniz için teşekkür ederim.

Benim sorunum ben aynı kayıt yaptığımda bu sicil no kayıtlı uyarısı veriyor. Bu uyarıyı almak istemiyorum. Aynı no ile defalarca kayıt yapmak istiyorum. Sayın Recep İpek'in örnek text dosyasını gönderiyorum. Şimdiden teşekkürler...

<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Personel Programı</title>
</head>

<body bgcolor=gray onload="VeriAc()" unload="VeriKapat()">
<form name="ANAFORM">

<table border="1" width="100%">
<TR>
<TD WIDTH="100%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER><FONT SIZE=5><b>Personel Programı</b></FONT></TD>
</TR>
</table>
<br>

<table border="1" width="100%" HEIGHT="19%"BGCOLOR="#BAC7BC" >
<tr>
<td width="20%"> <FONT SIZE=4><b>Sıra</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN1" SIZE=6 tabindex="1"></td>
<td width="20%" align=center><INPUT NAME="REFRESH1" TYPE="Hidden" OnClick="window.location.reload();VeriAc()" VALUE=" Güncelle "style="color: #0066CC; font-weight: bold"> </td>
<td width="20%"> <FONT SIZE=4><b>Departman</b></FONT></td>
<td width="20%"> <SELECT NAME="ALAN7" size="1" tabindex="7">
<OPTION >- -Seçiniz- -
<OPTION VALUE="Üretim">Üretim
<OPTION VALUE="Yönetim">Yönetim
<OPTION VALUE="Mühendislik">Mühendislik
<OPTION VALUE="Bakım">Bakım
<OPTION VALUE="Lojistik">Lojistik
<OPTION VALUE="Satış">Satış
<OPTION VALUE="İnsan Kaynakları">İnsan Kaynakları
<OPTION VALUE="Bilgi İşlem">Bilgi İşlem
<OPTION VALUE="Finans">Finans
<OPTION VALUE="Kalite">Kalite
<OPTION VALUE="Satınalma">Satınalma
</SELECT>
</td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Sicil</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN2" SIZE=6 tabindex="2" ></td>
<td width="20%" align=center> <INPUT NAME="ALAN90" TYPE="HIDDEN" SIZE=6></td>
<td width="20%"> <FONT SIZE=4><b>Görevi</b></FONT></td>
<td width="20%"> <SELECT NAME="ALAN8" size="1" tabindex="8">
<OPTION>- -Seçiniz- -
<OPTION VALUE="Memur">Memur
<OPTION VALUE="İşçi">İşçi
<OPTION VALUE="Mühendis">Mühendis
<OPTION VALUE="Müdür">Müdür
</SELECT>
</td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Adı</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN3" SIZE=25 tabindex="3" ></td>
<td width="20%" align=center> <b>Aktif &nbsp&nbsp Kayıt &nbsp&nbsp No</b></td>
<td width="20%"> <FONT SIZE=4><b>Brüt Ücret</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN9" SIZE=11 tabindex="9" ></td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Soyadı</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN4" SIZE=25 tabindex="4"></td>
<td width="20%"align=center> <INPUT NAME="ALAN91" TYPE="TEXT" SIZE=6></td>
<td width="20%"> <FONT SIZE=4><b>TC Kimlik Numarası</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN10" SIZE=11 MAXLENGTH=11 tabindex="10"></td>
</tr>
<tr>
<td width="20%"> <FONT SIZE=4><b>Giriş Tarihi</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN5" SIZE=11 tabindex="5"></td>
<td width="20%" align=center> <b>Toplam &nbsp&nbsp Kayıt &nbsp&nbsp No</b></td>
<td width="20%"> <FONT SIZE=4><b>Cinsiyet</b></FONT></td>
<td width="20%"> <SELECT NAME="ALAN11" size="1" tabindex="11">
<OPTION>- -Seçiniz- -
<OPTION VALUE="Erkek">Erkek
<OPTION VALUE="Bayan">Bayan
</SELECT>
</td>
</tr>

<tr>
<td width="20%"> <FONT SIZE=4><b>Çıkış Tarihi</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN6" SIZE=11 tabindex="6"></td>
<td width="20%"align=center> <INPUT NAME="ALAN92" TYPE="TEXT" SIZE=6></td>
<td width="20%"> <FONT SIZE=4><b>Doğum Tarihi</b></FONT></td>
<td width="20%"> <INPUT NAME="ALAN12" SIZE=11 tabindex="12"></td>
</tr>

</table>

<br>

<table BORDER="1" WIDTH="100%">
<TR>
<TD WIDTH="100%" HEIGHT="10" BGCOLOR="#FFFF99" ALIGN=CENTER><b></b></TD>
</TR>
</table>
<br>
<table BORDER="1" WIDTH="100%">
<TR>
<TD WIDTH="100%" HEIGHT="45" BGCOLOR="#BAC7BC" align="center">
<INPUT NAME="EKLE" TYPE="BUTTON" OnClick="EKLE1()" VALUE=" Ekle " style="color: #0066CC; font-weight: bold; text-decoration: blink">
<INPUT NAME="ILKKAYIT" TYPE="BUTTON" OnClick="ILKKAYIT1()" VALUE=" İlk "style="color: #0066CC; font-weight: bold">
<INPUT NAME="OKAYIT" TYPE="BUTTON" OnClick="OKAYIT1()" VALUE=" Önceki "style="color: #0066CC; font-weight: bold">
<INPUT NAME="SKAYIT" TYPE="BUTTON" OnClick="SKAYIT1()" VALUE=" Sonraki "style="color: #0066CC; font-weight: bold">
<INPUT NAME="SONKAYIT" TYPE="BUTTON" OnClick="SONKAYIT1()" VALUE=" Son "style="color: #0066CC; font-weight: bold">
<INPUT NAME="BUL" TYPE="BUTTON" OnClick="BUL1()" VALUE=" Bul "style="color: #0066CC; font-weight: bold">
<INPUT NAME="DUZELT" TYPE="BUTTON" OnClick="DUZELT1()" VALUE=" Düzelt "style="color: #0066CC; font-weight: bold">
<INPUT NAME="SIL" TYPE="BUTTON" OnClick="SIL1()" VALUE=" Sil "style="color: #0066CC; font-weight: bold">
<INPUT NAME="IPTAL" TYPE="BUTTON" OnClick="IPTAL1()" VALUE=" İptal "style="color: #0066CC; font-weight: bold">
<INPUT NAME="KAYDET" TYPE="BUTTON" OnClick="KAYDET1()" VALUE=" Kaydet "style="color: #0066CC; font-weight: bold">
</TD>
</TR>
</table>
<br>
<table BORDER="1" WIDTH="100%">
<TR>
<TD WIDTH="100%" HEIGHT="10" BGCOLOR="#FFFF99" ALIGN=CENTER><b></b></TD>
</TR>
</table>

<br>

<table border="1" width="100%" HEIGHT="20%"BGCOLOR="#BAC7BC">
<tr>

<td width="100%"><TEXTAREA NAME="BILGI1" ROWS="12" COLS="118" tabindex="13"></TEXTAREA></td>

</tr>
</table>

<br>

<Script Language="VBScript">

Public Db
Public RS
Public SQLStr

Sub VeriAc()
Baglanti()
al(4)
End Sub

Sub Baglanti()

Set Db = CreateObject("ADODB.Connection")

Db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\TestFolder\PERSONEL.mdb;Jet OLEDBatabase Password=1234;"

Set RS = CreateObject("ADODB.Recordset")

SQLStr = "SELECT * FROM [PERDATA] ORDER BY SIRA,SICIL"

RS.Open SQLStr, Db, 1, 3

End Sub

Sub al(deg1)

Set MyForm = Document.ANAFORM

If RS.RecordCount > 0 Then

If deg1=1 Then

RS.MoveFirst

ElseIf deg1=2 Then

RS.MovePrevious

ElseIf deg1=3 Then

RS.MoveNext

ElseIf deg1=4 Then

RS.MoveLast

Else
a=1
End If

MyForm.Reset

MyForm.ALAN91.Value = RS.AbsolutePosition

MyForm.ALAN92.Value = RS.RecordCount

MyForm.ALAN1.Value=RS("SIRA")
MyForm.ALAN2.Value=RS("SICIL")
MyForm.ALAN3.Value=RS("ADI")
MyForm.ALAN4.Value=RS("SOYADI")
MyForm.ALAN5.Value=RS("GIRIS")
If RS("CIKIS")<>"" Then MyForm.ALAN6.Value=RS("CIKIS")
MyForm.ALAN7.Value=RS("DEPARTMAN")
MyForm.ALAN8.Value=RS("GOREVI")
MyForm.ALAN9.Value=RS("BRUT")
MyForm.ALAN10.Value=RS("TCKIMNO")
MyForm.ALAN11.Value=RS("CINS")
If RS("DOGTAR")<>"" Then MyForm.ALAN12.Value=RS("DOGTAR")
MyForm.BILGI1.Value=RS("BILGI")

Else

Msgbox "Veritabanında Kayıt Bulunamadı." ,16,"UYARI"

End If

Ekran(1)

End Sub

Sub VeriKapat()
Set MyForm = Nothing
RS.Close
Set RS = Nothing
Db.Close
Set Db = Nothing
End Sub

Sub Mesaj()
Msgbox "Çalışmalar Devam Ediyor",,"Uyarı"
End Sub

Sub KAYDET1()
Dim sonuc

Set MyForm = Document.ANAFORM

sonuc=False

If MyForm.ALAN2.Value="" Or Not IsNumeric(MyForm.ALAN2.Value) Then
HataMesaj ="Sicil Numarası Boş veya Hatalı Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN3.Value="" Then
HataMesaj=HataMesaj + "Adı Boş Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN4.Value="" Then
HataMesaj=HataMesaj + "Soyadı Boş Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN5.Value="" Or Not IsDate(MyForm.ALAN5.Value) Then
HataMesaj=HataMesaj + "Giriş Tarihi Boş veya Hatalı Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN9.Value="" Or Not IsNumeric(MyForm.ALAN9.Value) Then
HataMesaj=HataMesaj + "Brüt Ücreti Boş veya Hatalı Olamaz!" + Chr(13)
sonuc=False
End If

If MyForm.ALAN10.Value="" Or Not IsNumeric(MyForm.ALAN10.Value) Or Len(MyForm.ALAN10.Value)<>11 Then
HataMesaj=HataMesaj + "TC Kimlik Numarası Boş veya Hatalı Olamaz!"
sonuc=False
End If

If sonuc=False Then
MsgBox + "******************************" + Chr(13) + HataMesaj + Chr(13) + "******************************",13,"Bilgi"
MyForm.ALAN2.Focus
Exit Sub
End If

If MyForm.ALAN90.Value=1 Then

veribul1=MyForm.ALAN2.Value

If veribul1="" Or Not IsNumeric(veribul1) Then Exit Sub

Baglanti()

RS.Find ("SICIL= '" + veribul1 + "'")

If RS.EOF Then

RS.AddNew

RS("SIRA")=MyForm.ALAN92.Value+1
RS("SICIL")=MyForm.ALAN2.Value
RS("ADI")=MyForm.ALAN3.Value
RS("SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("GIRIS")=MyForm.ALAN5.Value
If MyForm.ALAN6.Value <>"" Then RS("CIKIS")=MyForm.ALAN6.Value

RS("DEPARTMAN")=MyForm.ALAN7.Value
RS("GOREVI")=MyForm.ALAN8.Value
If MyForm.ALAN9.Value <>"" Then RS("BRUT")=MyForm.ALAN9.Value
If MyForm.ALAN10.Value <>"" Then RS("TCKIMNO")=MyForm.ALAN10.Value
RS("CINS")=MyForm.ALAN11.Value
If MyForm.ALAN12.Value <>"" Then RS("DOGTAR")=MyForm.ALAN12.Value
RS("BILGI")=MyForm.BILGI1.Value

RS.Update

Myform.REFRESH1.OnClick()

Msgbox "Girdiğiniz Bilgiler Kaydetildi. " ,16,"UYARI"

Else

MsgBox MyForm.ALAN2.Value & " Sicil Numaralı Kişi Kayıtlı." ,16 , "Uyarı"

MyForm.ALAN2.SetFocus

Exit Sub

End If

ElseIf MyForm.ALAN90.Value=2 Then

RS("SICIL")=MyForm.ALAN2.Value
RS("ADI")=MyForm.ALAN3.Value
RS("SOYADI")=MyForm.ALAN4.Value
If MyForm.ALAN5.Value <>"" Then RS("GIRIS")=MyForm.ALAN5.Value
If MyForm.ALAN6.Value <>"" Then RS("CIKIS")=MyForm.ALAN6.Value

RS("DEPARTMAN")=MyForm.ALAN7.Value
RS("GOREVI")=MyForm.ALAN8.Value
If MyForm.ALAN9.Value <>"" Then RS("BRUT")=MyForm.ALAN9.Value
If MyForm.ALAN10.Value <>"" Then RS("TCKIMNO")=MyForm.ALAN10.Value
RS("CINS")=MyForm.ALAN11.Value
If MyForm.ALAN12.Value <>"" Then RS("DOGTAR")=MyForm.ALAN12.Value
RS("BILGI")=MyForm.BILGI1.Value

RS.Update

Msgbox "Düzenlediğiniz Bilgiler Kaydetildi." ,16,"UYARI"

Else

Msgbox "Hata Oluştu.",16,"Uyarı"

End If

MyForm.ALAN90.Value=0

Ekran(1)

End Sub

Sub EKLE1()
Ekran(2)
Set MyForm = Document.ANAFORM
MyForm.Reset

MyForm.ALAN90.Value=1

MyForm.ALAN91.Value = RS.RecordCount

MyForm.ALAN92.Value = RS.RecordCount
MyForm.ALAN1.Value=MyForm.ALAN92.Value+1
End Sub

Sub ILKKAYIT1()
RS.MoveFirst
al(1)
Ekran(4)
End Sub

Sub OKAYIT1()
If RS.BOF = True Then
RS.MoveFirst
Else
RS.MovePrevious
End If
If IsNumeric(RS("SIRA")) Then
al(2)
Else
MsgBox ("İlk Kayıt")
Ekran(4)
End If
End Sub

Sub SKAYIT1()
If RS.EOF = True Then
RS.MoveLast
Else
RS.MoveNext
End If
If IsNumeric(RS("SIRA")) Then
al(3)
Else
MsgBox ("Son Kayıt")
Ekran(5)
End If
End Sub

Sub SONKAYIT1()
al(4)
Ekran(5)
End Sub

Sub IPTAL1()
Set MyForm = Document.ANAFORM
If MyForm.ALAN90.Value=1 Then
MyForm.Reset
al(0)
End If
MyForm.ALAN90.Value=0
Ekran(1)
End Sub

Sub DUZELT1()
Ekran(3)
Set MyForm = Document.ANAFORM
MyForm.ALAN90.Value=2

End Sub

Sub BUL1()
Dim veribul

Baglanti()

veribul=Inputbox("Aradığınız kişinin sicil numarasını giriniz.","Uyarı")

If veribul="" Or Not IsNumeric(veribul) Then Exit Sub

RS.Find ("SICIL= '" + veribul + "'")

If RS.EOF Then
Msgbox "Aradığınız Kayıt Bulunamadı." ,16,"Uyarı"
Else
Ekran(3)
al(0)
Ekran(1)
End If
End Sub

Sub SIL1()
If Not (RS.EOF And RS.BOF) Then
If Msgbox("İlgili Kaydı Silmek İstiyormusunuz??",vbYesNo)=vbYes Then
RS.Delete
Set MyForm = Document.ANAFORM
Myform.REFRESH1.OnClick()
Msgbox "İlgili Kayıt Silindi. " ,16,"Uyarı"
end if
End if

End Sub

Sub Ekran(deg)

Set MyForm = Document.ANAFORM
If deg=1 Then
MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = True
MyForm.ALAN3.Disabled = True
MyForm.ALAN4.Disabled = True
MyForm.ALAN5.Disabled = True
MyForm.ALAN6.Disabled = True
MyForm.ALAN7.Disabled = True
MyForm.ALAN8.Disabled = True
MyForm.ALAN9.Disabled = True
MyForm.ALAN10.Disabled = True
MyForm.ALAN11.Disabled = True
MyForm.ALAN12.Disabled = True
MyForm.ALAN90.Disabled = True
MyForm.ALAN91.Disabled = True
MyForm.ALAN92.Disabled = True
MyForm.BILGI1.Disabled = True

MyForm.EKLE.Disabled = False
MyForm.ILKKAYIT.Disabled = False
MyForm.OKAYIT.Disabled = False
MyForm.SKAYIT.Disabled = False
MyForm.SONKAYIT.Disabled = False
MyForm.BUL.Disabled = False
MyForm.DUZELT.Disabled = False
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = True
MyForm.KAYDET.Disabled = True

Elseif deg=2 Then

MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = False
MyForm.ALAN3.Disabled = False
MyForm.ALAN4.Disabled = False
MyForm.ALAN5.Disabled = False
MyForm.ALAN6.Disabled = False
MyForm.ALAN7.Disabled = False
MyForm.ALAN8.Disabled = False
MyForm.ALAN9.Disabled = False
MyForm.ALAN10.Disabled = False
MyForm.ALAN11.Disabled = False
MyForm.ALAN12.Disabled = False
MyForm.ALAN90.Disabled = False
MyForm.ALAN91.Disabled = False
MyForm.ALAN92.Disabled = False
MyForm.BILGI1.Disabled = False

MyForm.EKLE.Disabled = True
MyForm.ILKKAYIT.Disabled = True
MyForm.OKAYIT.Disabled = True
MyForm.SKAYIT.Disabled = True
MyForm.SONKAYIT.Disabled = True
MyForm.BUL.Disabled = True
MyForm.DUZELT.Disabled = True
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = False
MyForm.KAYDET.Disabled = False

Elseif deg=3 Then

MyForm.ALAN1.Disabled = False
MyForm.ALAN2.Disabled = False
MyForm.ALAN3.Disabled = False
MyForm.ALAN4.Disabled = False
MyForm.ALAN5.Disabled = False
MyForm.ALAN6.Disabled = False
MyForm.ALAN7.Disabled = False
MyForm.ALAN8.Disabled = False
MyForm.ALAN9.Disabled = False
MyForm.ALAN10.Disabled = False
MyForm.ALAN11.Disabled = False
MyForm.ALAN12.Disabled = False
MyForm.ALAN90.Disabled = False
MyForm.ALAN91.Disabled = False
MyForm.ALAN92.Disabled = False
MyForm.BILGI1.Disabled = False

MyForm.EKLE.Disabled = True
MyForm.ILKKAYIT.Disabled = True
MyForm.OKAYIT.Disabled = True
MyForm.SKAYIT.Disabled = True
MyForm.SONKAYIT.Disabled = True
MyForm.BUL.Disabled = True
MyForm.DUZELT.Disabled = True
MyForm.SIL.Disabled = False
MyForm.IPTAL.Disabled = False
MyForm.KAYDET.Disabled = False

ElseIf deg=4 Then

MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = True
MyForm.ALAN3.Disabled = True
MyForm.ALAN4.Disabled = True
MyForm.ALAN5.Disabled = True
MyForm.ALAN6.Disabled = True
MyForm.ALAN7.Disabled = True
MyForm.ALAN8.Disabled = True
MyForm.ALAN9.Disabled = True
MyForm.ALAN10.Disabled = True
MyForm.ALAN11.Disabled = True
MyForm.ALAN12.Disabled = True
MyForm.ALAN90.Disabled = True
MyForm.ALAN91.Disabled = True
MyForm.ALAN92.Disabled = True
MyForm.BILGI1.Disabled = True

MyForm.EKLE.Disabled = False
MyForm.ILKKAYIT.Disabled = True
MyForm.OKAYIT.Disabled = True
MyForm.SKAYIT.Disabled = False
MyForm.SONKAYIT.Disabled = False
MyForm.BUL.Disabled = False
MyForm.DUZELT.Disabled = False
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = True
MyForm.KAYDET.Disabled = True

ElseIf deg=5 Then

MyForm.ALAN1.Disabled = True
MyForm.ALAN2.Disabled = True
MyForm.ALAN3.Disabled = True
MyForm.ALAN4.Disabled = True
MyForm.ALAN5.Disabled = True
MyForm.ALAN6.Disabled = True
MyForm.ALAN7.Disabled = True
MyForm.ALAN8.Disabled = True
MyForm.ALAN9.Disabled = True
MyForm.ALAN10.Disabled = True
MyForm.ALAN11.Disabled = True
MyForm.ALAN12.Disabled = True
MyForm.ALAN90.Disabled = True
MyForm.ALAN91.Disabled = True
MyForm.ALAN92.Disabled = True
MyForm.BILGI1.Disabled = True

MyForm.EKLE.Disabled = False
MyForm.ILKKAYIT.Disabled = False
MyForm.OKAYIT.Disabled = False
MyForm.SKAYIT.Disabled = True
MyForm.SONKAYIT.Disabled = True
MyForm.BUL.Disabled = False
MyForm.DUZELT.Disabled = False
MyForm.SIL.Disabled = True
MyForm.IPTAL.Disabled = True
MyForm.KAYDET.Disabled = True
Else
Exit Sub
End If
End Sub

</script>
</form>
</body>
</html>

öncelikle Bu çalışma gayet ilginç bir çalışma ben ofısteki bilgisayarımda bunun gibi bazı çalışmalar yapıyorum ancak verileri girdikten sonra kayıt etmekte zorlanıyorum bu çalışmayıda kendıme öre tasarlamayı düşünüyorum ancak kaydet dedıgımde nereye ve nasıl olacagını bir türlü yapamadım herhengi bir program kullanmadan sadece scriptler üzerınde oynama yaparak denıyorum sizden ricam boyle bır çalışmada girdigim verileri kaydetmem için gereklı olan dosya yollarını bana bıldırmenız (c:\belgelerim\kayıt\) gibi bir türlü oluşturamadım ayrıca google chorme ve firefoxta çalışmıyor sanırım ie de çalışıyor verileri dogru girdikten sonra kaydet dedıgımde boş boş bir hata verıyor ve nereye kaydedecegını bulamıyorum şimdiden teşekkürler herkese

SONSUZLUK22 · 24 Ocak 2012

sayın modalı exel formuna yenı katıldım sayfaları gezerken uzun zamandır amatörce tasarlamaya çalıştıgım bir program için örnek buldum üzerinde birkaç oynama yaptım ancak forma yazdıgım verileri birtürlü exele aktaramıyorum 2 örnegi alıp birleştirme usulü ile 1 örnek hazırladım tasarımımda kaydet tuşu işe yaramıyor sizden ricam bana bu konu için yardımcı olmanız

öncelikle girdigim verileri exele aktaramıyorum 1. problemim bu

örnekte göreceginiz üzere bazı bölümlerde seçiniz seçenekleri ile bölümler oluşturdum aynı zamanda yine form üzerinde yazılan haftaları mesela (1.hafta) yı seçip göster dedigimde exelden 1. haftayı listelemek

gümrük idaresi bölümünde örnegin "mersin güm. müd." seçenegini exelden listelemek gibi

yazdırma seçenegi gibi birkaç fonksiyon eklemem gerekıyor gerçi bayagı eklemem gereken fonksiyonlar var ama sizi daha fazla yormamak amacıyla bu kadarınada yardımcı olursanız bana kafidir şimdiden teşekkür ederim

SONSUZLUK22 · 27 Ocak 2012

Acilen yardım lütfen
bu konu benım ıcın cok onemlı ivedi olarak yardıma ıhtıyacım var

cthax · 22 Temmuz 2014

Haluk Bey Yardım

Haluk bey dosyayı email ile gönderebilmeniz mümkünmü acaba,altın üye olmadığım için indirmeye izin vermiyor

selimsami · 18 Kasım 2014

Aynı işleme benimde ihjtiyacım var. Ekte dedğiniz dosyayı göremiyorum

ABATE · 23 Kasım 2014

Yüklenen dosyaların hiçbiri çalışmadı bilgisayarımda.

gablocu · 16 Aralık 2014

Arkadaşlar elimde bir excel dosya var. 4 sütunlu bir çalışma sayfası var. Ürün adı, Barkod, Skt ve Skt 2 sütunların adı. Bu sayfa ürün isimleri ve barkodu ile dolu bir sayfa. Benim istediğim ise şudur. Bu excel dosyası bilgisayarda duracak ağa paylaşıma açılacak. Ben alışveriş merkezi içerisinde gezerken herhangi bir ürünün yanına geleceğim ve tarigini kontrol edeceğim sonra eğer tarihi 1-2 ay falan kaldıysa tabloya eklemek isteyeceğim. Bir html sayfasını telefonumdan paylaşılmış klasörden açtığım zaman barkodu sorugulayıp ilgili ürünü çağırıp karşısına skt girp kaydetmek istiyorum. Normalde bunu excel dosyasını telefondan açıp buldan barkod bulup kaydedip yapıyorum ama çook zaman alıyor. Yardımcı olur musunuz?

aksoy520 · 16 Ağustos 2019

bütün her şeyi denememe rağmen başarılı bir sonuç alamadım yardımcı olabilir misiniz

ALTUNAYT · 8 Şubat 2023

Haluk' Alıntı:
Sayın ripek,

Ufak bir çalışma yaptım ve ekte gönderiyorum.

Ekli zip dosyasını indirdikten sonra,

- Bilgisayarınızda C:\TestFolder şeklinde bir klasör yaratın.

- Ekli zip dosyasının içindeki TestDataBase.xls dosyasını bu klasöre yerleştirin yani, C:\TestFolder\TestDataBase.xls olsun.

- Ekli diğer Test.htm dosyasını örneğin masaüstüne yerleştirin ve açın. Burada çok basit bir form hazırladım. Bu formdaki ad-soyad-meslek-doğum tarihi gibi bilgileri forma girdikten sonra HTML formundaki Gönder butonuna tıklayın.

- Formdaki veriler, kapalı durumdaki C:\TestFolder\TestDataBase.xls dosyasına kaydedilecektir.

- Her yeni veri girişinde, yeni veriler C:\TestFolder\TestDataBase.xls dosyasında Data sayfasında alt alta kaydedilecektir.

Umarım işinize yarar veya size fikir verir...

İlave: Dosyanın daha geliştirilmiş hali, bu mesaj başlığının 2nci sayfasındadır.

burada dosya göremedim. iletme şansınız var mı?

HTML Formundan Excel'e Veri Kaydetme

xlomba

Ekli dosyalar

xlomba

xlomba

Ekli dosyalar

SONSUZLUK22

SONSUZLUK22

Ekli dosyalar

SONSUZLUK22

cthax

selimsami

ABATE

gablocu

aksoy520

ALTUNAYT