Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > Diğer Yazılımlar > WEB Tasarım&Programlama > JavaScript
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 09-01-2007, 23:14   #1
Recep İpek
Uzman
 
Recep İpek kullanıcısının avatarı
 
Giriş: 14/02/2006
Şehir: İstanbul
Mesaj: 3,439
Excel Vers. ve Dili:
( Excel 2010 - İngilizce )
Varsayılan HTML Formuna Excel'den Veri Yükleme

Aşağıdaki kodlar ile tasarlamış olduğum HTML formunun ALAN1 isimli Textbox bilgi alanına C'deki DATASON.xls dosyasının DATA sayfasındaki a1 hücresini aktarabiliyorum.

Peki bu bilgiyi Textbox bilgi alanına değilde xxxxxxxxx yazan yere,
yani Table(Tablo) içersine nasıl aktarabiliriz?

Fonksiyon ile bilgiyi alıp sonradan bu alana aktarabiliriz diye düşünüyorum.Fakat şu anda takıldım.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
<HTML>
<HEAD>
<TITLE>Bilgi Giriş Formu</TITLE>
</HEAD>

<FORM NAME="ANA" >
<CENTER><TABLE BORDER="1" WIDTH="50%">
<TR>
<TD WIDTH="50%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER><FONT SIZE=4><b>xxxxxxxxxx</b></FONT></TD>
</TR>
</TABLE>
<BR>
<BR>
<INPUT NAME="ALAN1" TYPE="TEXT" SIZE=50 ></CENTER>

<Script Language="VBScript"> 

Sub Window_OnLoad()
On Error Resume Next

Set MyForm = Document.ANA

Dosya = "C:\DATASON.XLS"

Set xlApp = CreateObject("Excel.Application") 

xlApp.Visible = False

Set xlBook = xlApp.Workbooks.Open(Dosya) 
Set Sh =xlBook.Sheets("DATA")

MyForm.ALAN1.Value = Sh.Cells(1,1).Value

xlBook.Save
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
Set MyForm = Nothing

Msgbox "Bilgiler Forma Başarıyla Yüklendi",32

End Sub
</Script> 
</FORM>
</HTML>
__________________
www.excel.web.tr
Recep İpek Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-01-2007, 15:42   #2
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,057
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Aşağıdaki kodu, kendinize göre geliştirirsiniz ...

[html]<HTML>
<HEAD>
<TITLE>Bilgi Giriş Formu</TITLE>
</HEAD>
<FORM NAME="ANA" >
<CENTER>
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD WIDTH="50%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER><FONT SIZE=4><b>
<script Language="VBScript">
On Error Resume Next
Dosya = "C:\DATASON.XLS"
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(Dosya)
Set Sh =xlBook.Sheets("DATA")
x = Sh.Cells(1,1).Value
document.write (x)
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
</script>
</b></FONT>
</TD>
</TR>
</TABLE>
<BR>
<BR>
</FORM>
</HTML>[/html]
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-01-2007, 16:28   #3
Recep İpek
Uzman
 
Recep İpek kullanıcısının avatarı
 
Giriş: 14/02/2006
Şehir: İstanbul
Mesaj: 3,439
Excel Vers. ve Dili:
( Excel 2010 - İngilizce )
Varsayılan

Her zamanki gibi harikasınız.....Teşekkürler...
__________________
www.excel.web.tr
Recep İpek Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-01-2007, 16:34   #4
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,057
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Ben de size teşekkür ederim.

Bu arada; yukarıdaki kodu revize ettim ve biraz daha esnek hale getirdim.

Şöyle ki; HTML sayfasında ayrı yerlerde aynı Excel dosyasından değişik hücreler okuyup, yazmanız gerekebilir.

Bu durumda, Sub yerine bir fonksiyon kullanmak işleri daha kolaylaştıracaktır.

Aşağıdaki kodla, söz konusu Excel dosyasında A1 hücresi HTML sayfasındaki tabloya, C1 hücresi ise HTML sayfasındaki veri giriş kutusuna yazılmaktadır.

İlgili kod aşağıdaki gibidir;

[HTML]<HTML>
<HEAD>
<TITLE>Bilgi Giriş Formu</TITLE>
<script Language="VBScript">
Function GetData(MyRow, MyColumn)
On Error Resume Next
Dosya = "C:\DATASON.XLS"
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Open(Dosya)
Set Sh =xlBook.Sheets("DATA")
GetData = Sh.Cells(MyRow,MyColumn).Value
xlBook.Save
xlBook.Close
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing
End Function
</script>
</HEAD>
<FORM NAME="ANA" >
<CENTER>
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD WIDTH="50%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER><FONT SIZE=4><b>
<script Language="VBScript">
x=GetData(1,1)
document.write(x)
</script>
</b></FONT>
</TD>
</TR>
</TABLE>
<br><br><br>
<INPUT NAME="ALAN1" TYPE="TEXT" SIZE=50 ></CENTER>
<script Language="VBScript">
x=GetData(1,3)
document.ANA.ALAN1.Value = x
</script>
<BR>
<BR>
</FORM>
</HTML>[/HTML]
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 10-01-2007, 16:39   #5
Recep İpek
Uzman
 
Recep İpek kullanıcısının avatarı
 
Giriş: 14/02/2006
Şehir: İstanbul
Mesaj: 3,439
Excel Vers. ve Dili:
( Excel 2010 - İngilizce )
Varsayılan

Bu daha güzel oldu...Ellerinize sağlık...

Bu kodlar birgün foruma güzel bir çalışma olarak geri dönecek...
__________________
www.excel.web.tr
Recep İpek Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-01-2007, 16:00   #6
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,057
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Bir alternatif daha ....

Burada, sözkonusu Excel dosyasını açmadan kapalı durumdayken Excel4 makrosu ile A1 ve C1 hücrelerindeki veriler okunarak HTML sayfasında ilgili yerlere yazılmaktadır.

[html]<HTML>
<HEAD>
<TITLE>Bilgi Giriş Formu</TITLE>
<script Language="VBScript">
Function GetData(MyRow, MyColumn)
On Error Resume Next
MyPath="C:\"
MyFile="DataSon.xls"
MySh="Data"
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
MyArg = "'" & MyPath & "[" & MyFile & "]" & MySh & "'!R"
GetData = xlApp.ExecuteExcel4Macro(MyArg & MyRow & "C" & MyColumn)
Set xlApp = Nothing
End Function
</script>
</HEAD>
<FORM NAME="ANA" >
<CENTER>
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD WIDTH="50%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER><FONT SIZE=4><b>
<script Language="VBScript">
x=GetData(1,1)
document.write(x)
</script>
</b></FONT>
</TD>
</TR>
</TABLE>
<br><br><br>
<INPUT NAME="ALAN1" TYPE="TEXT" SIZE=50 ></CENTER>
<script Language="VBScript">
x=GetData(1,3)
document.ANA.ALAN1.Value = x
</script>
<BR>
<BR>
</FORM>
</HTML>[/html]
__________________
Kod anlatılmaz,yazılır !
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2007, 15:07   #7
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,057
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Alternatiflere devam ediyoruz ...

Alternatif-1 : Arka planda Excel dosyasını gizli olarak açıp, verileri almak (Yukarıda Mesaj No: 2 ve 4)

Alternatif-2 : Kapalı Excel dosyasından Excel4 makrosu ile verileri almak (Yukarıda Mesaj No: 6)

Alternatif-3 : Kapalı Excel dosyasından DAO ile verileri almak. Aşağıda belirtilmiştir...

Bu kez, söz konusu kapalı durumdaki Excel dosyasındaki Data isimli sayfada A1 ve C1 hücrelerinin içeriklerini DAO ile okuyup, HTML sayfasına yazıyoruz.

Kapalı Excel dosyasının yolu aşağıdaki gibi olmalıdır:

D:\HTML\TempHTML\DataSon.xls

Bence, en hızlısı ve en profosyonelcesi bu oldu ...

Buradaki VBscript'i Excel veya başka bir Office programına ait VBA'de rahatlıkla kullanabilirsiniz. Herhangibir referans bile eklemeye gerek yoktur ....

[html]<HTML>
<HEAD>
<TITLE>Bilgi Giris Formu</TITLE>
<script Language="VBScript">
Function GetData(MyRng)
Dim daoDBEngine
Dim RS
MyFile="D:\HTML\TempHTML\DataSon.xls"
MySh="Data"
On Error Resume Next
Set daoDBEngine = CreateObject("DAO.DBEngine")
Set daoDBEngine = CreateObject("DAO.DBEngine.36")
On Error GoTo 0
Set dbtmp = daoDBEngine.OpenDatabase(MyFile, False, True, "Excel 8.0; HDR=NO")
Set RS = dbtmp.OpenRecordset("select * from [Data$" & MyRng & ":" & MyRng & "]")
GetData= RS.Fields(0).Value
End Function
</script>
</HEAD>
<FORM NAME="ANA" >
<CENTER>
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD WIDTH="50%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER>
<FONT SIZE=4>
<b>
<script Language="VBScript">
x=GetData("A1")
document.write(x)
</script>
</b>
</FONT>
</TD>
</TR>
</TABLE>
<br><br><br>
<INPUT NAME="ALAN1" TYPE="TEXT" SIZE=50 >
</CENTER>
<script Language="VBScript">
x=GetData("C1")
document.ANA.ALAN1.Value = x
</script>
<BR> <BR>
</FORM>
</HTML>[/html]
__________________
Kod anlatılmaz,yazılır !

Bu mesaj en son " 13-01-2007 " tarihinde saat 15:19 itibariyle Haluk tarafından düzenlenmiştir....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2007, 17:24   #8
Haluk
Özel Üye
 
Giriş: 07/07/2004
Şehir: Türkiye
Mesaj: 5,057
Excel Vers. ve Dili:
Office 2010 - İngilizce
Varsayılan

Alternatiflere devam ediyoruz ...

Alternatif-1 : Arka planda Excel dosyasını gizli olarak açıp, verileri almak (Yukarıda Mesaj No: 2 ve 4)

Alternatif-2 : Kapalı Excel dosyasından Excel4 makrosu ile verileri almak (Yukarıda Mesaj No: 6)

Alternatif-3 : Kapalı Excel dosyasından DAO ile verileri almak. (Yukarıda Mesaj No: 7)

Alternatif-4 : Kapalı Excel dosyasından ADO ile verileri almak. Aşağıda belirtilmiştir...

Bu kez de, söz konusu kapalı durumdaki Excel dosyasındaki Data isimli sayfada A1 ve C1 hücrelerinin içeriklerini ADO - OLEDB ile okuyup, HTML sayfasına yazıyoruz.

Bu metot yine Alternatif:3 - DAO kullanımı ile aynı derecede başarılı bir yöntem.

Kapalı Excel dosyasının yolu aşağıdaki gibi olmalıdır:

D:\HTML\TempHTML\DataSon.xls

[html]<HTML>
<HEAD>
<BODY>
<TITLE>Bilgi Giris Formu</TITLE>
<script Language="VBScript">
Function GetData(MyRng)
Dim Conn
Dim RS
MyFile="D:\HTML\TempHTML\DataSon.xls"
MySh="Data"
Set Conn = CreateObject("ADODB.Connection")
Set RS = CreateObject("ADODB.RecordSet")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\HTML\TempHTML\DataSon.xls;" & _
"Extended Properties=""Excel 8.0; HDR=No"""
RS.Open "Select * from [Data$" & MyRng & ":" & MyRng &"]", Conn, 1
GetData= RS.Fields(0).Value
Conn.Close
End Function
</script>
</HEAD>
<FORM NAME="ANA" >
<CENTER>
<TABLE BORDER="1" WIDTH="50%">
<TR>
<TD WIDTH="50%" HEIGHT="20" BGCOLOR="#FFFF99" ALIGN=CENTER>
<FONT SIZE=4>
<b>
<script Language="VBScript">
x=GetData("A1")
document.write(x)
</script>
</b>
</FONT>
</TD>
</TR>
</TABLE>
<br><br><br>
<INPUT NAME="ALAN1" TYPE="TEXT" SIZE=50 >
</CENTER>
<script Language="VBScript">
x=GetData("C1")
document.ANA.ALAN1.Value = x
</script>
<BR> <BR>
</BODY>
</FORM>
</HTML>[/html]
__________________
Kod anlatılmaz,yazılır !

Bu mesaj en son " 13-01-2007 " tarihinde saat 21:08 itibariyle Haluk tarafından düzenlenmiştir....
Haluk Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2007, 20:21   #9
Recep İpek
Uzman
 
Recep İpek kullanıcısının avatarı
 
Giriş: 14/02/2006
Şehir: İstanbul
Mesaj: 3,439
Excel Vers. ve Dili:
( Excel 2010 - İngilizce )
Varsayılan

Sn.Haluk Üstadım,

Bir problemin bu kadarda çözümü olmaz ki.....

Ben hangisini kullanacağim.....
__________________
www.excel.web.tr
Recep İpek Çevrimdışı   Alıntı Yaparak Cevapla
Eski 16-02-2007, 04:27   #10
gokhanergul
 
Giriş: 16/02/2007
Mesaj: 3
Excel Vers. ve Dili:
2003 türkçe
Varsayılan internette kullanmak

ben bunlardan birini internette kullanmak istiyorum ama dosya yollarını yazarken C: filan koyuyoruz bu sorun çıkarmazmı? internette kullanmak için ne yapabilirim acil yardımlarınız bekliyorum.... ellerinize sağlık hepinizin bu arada siteye yeni girdimbu örnekle ilgili herşeyi inceledim . Tebrikler.....
gokhanergul Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 03:14


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden