DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
yardım istemiştim. Sorun çözüldü.
<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>
k::