HTML Formuna Excel'den Veri Yükleme

Recep İpek · 10 Ocak 2007

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:

<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>

Haluk · 10 Ocak 2007

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

HTML:

<HTML>
<HEAD>
   <TITLE>Bilgi Giri&#351; 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>

Recep İpek · 10 Ocak 2007

Her zamanki gibi harikasınız.....Teşekkürler...

Haluk · 10 Ocak 2007

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>

Recep İpek · 10 Ocak 2007

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

Bu kodlar birgün foruma güzel bir çalışma olarak geri dönecek...

Haluk · 12 Ocak 2007

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&#351; 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>

Haluk · 13 Ocak 2007

Alternatiflere devam ediyoruz ... :mrgreen:

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>

Haluk · 13 Ocak 2007

Alternatiflere devam ediyoruz ... :mrgreen:

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>

Recep İpek · 13 Ocak 2007

Sn.Haluk Üstadım,

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

Ben hangisini kullanacağim.....

gokhanergul · 16 Şubat 2007

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.....

baykala · 4 Nisan 2007

çok güzel

çalışmalar gerçekten süper..

bir de net üzerinden (hem excel belgemiz hemde html belgemiz nette iken) şartlı çağrıyı nasıl yapabiliriz? Gerçekten tıkandım...

Bi örnek yaptım ama çağrı işini html belgesiolarak yapıyor..

baykala · 12 Nisan 2007

html ile excel sorgusu

Sayın Haluk'un kodlarını biraz değiştirdim, Nette olmadı ama offline olarak C:\DATA\ klasöründe mükemmel çalışıyor..

http://www.excel.web.tr/showthread.php?t=19002&page=3

belki bu formu nete çalıştırabilecek birileri çıkar..

toonami · 30 Nisan 2007

emegini ze salık

FASEN · 10 Haziran 2007

Arkadaşlar elimde excel dosyasında grafikler var .
herbir sayfa1,sayfa2,sayfa3 vs. de grafikler var . ve bu grafiklerin yan sütunlarındaki hücrelerde değerler var .
Bütün bu grafik ve değer içeren verilerin hepsini html ye resim olarak aktarabilirmiyim veya yukarıda ki bahsedilen şekilde.
html olarak kayıt yapınca çok yer kaplıyor.

tamer42 · 23 Ağustos 2008

Sn Haluk hocam,

burada gördüğüm aşağıdaki fonksiyonu kapalı bir excel dosyasından bilgi almada;
Kullanıcı tanımlı fonksiyon olarak kullanmak istediğimde sonuç olarak #VALUE! veriyor.

burada kafama takılam MyRng olarak nasıl bir ifade girmemiz gerektiğidir?

A3 şeklinde girmiştim ama.

Kod:

 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

İyi Çalışmalar.

Haluk · 23 Ağustos 2008

Tamer bey;

Yukarıdaki script içinde olduğu gibi aynen kullanabilirsiniz.

Örneğin;

Kod:

Sub Test()
    MsgBox GetData("A3")
End Sub

Sözkonusu D:\HTML\TempHTML\DataSon.xls dosyası mevcut olduğunda, yukarıdaki kodun çalıştırılması sonucunda MsgBox fonksiyonu ile geri dönen değer; "Test Başlığı3" oluyor.

.

ABATE · 7 Aralık 2014

Bu konuda yardima ihtiyacim var hala. Aktif takipci varsa izah edebilir mi?

HTML Formuna Excel'den Veri Yükleme

Recep İpek

Haluk

𐱅𐰇𐰼𐰚

Recep İpek

Haluk

𐱅𐰇𐰼𐰚

Recep İpek

Haluk

𐱅𐰇𐰼𐰚

Haluk

𐱅𐰇𐰼𐰚

Haluk

𐱅𐰇𐰼𐰚

Recep İpek

gokhanergul

baykala

baykala

toonami

FASEN

tamer42

Destek Ekibi

Haluk

𐱅𐰇𐰼𐰚

ABATE