Asp Ve Excel Arasında bilgi aktarımı..

14-05-2009, 12:54:15

Üyeliği durduruldu

Merhaba arkadaşlar bu konuda yardımcı olursanız çok sevinirim.

Şuan hali hazırda olan bir excel dosyası kullanılmaktadır ve bu excel dosyasındaki bilgileri bilgisayara bağlı 106 ekran LCD ekrana yansıtmak istiyoruz.

Bunu yapar iken 2 bilgisayar olacak ve bunlar birbirine bağlı olan 2 bilgisayar kapalı sistem ağ sistemi ile birbirine bağlıdır.

1. bilgisayardan excel dosyası açık olacak ve bilgiler güncellendikçe ikinci makine üzerinden LCD ekrana yansıtılacak.

fakat 1. bilgisayarda yapılan işler ekranda gözükmeyecek sadece excel dosyasındaki bilgiler ekranda gözükecek.

excel dosyasındaki bilgileri web sayfası üzerinden LCD ekrana aktarmak istiyorum explorer sayfasını F11 yaparak tam ekran yapacagım ve ekranda explorer üzerinden bilgiler yansıtılacak.

bu konuda yardımcı olacak veya başka fikri olan arkadaş var ise şimdiden teşekkür ederim

Elimdeki malzemeler:
2 tane bilgisayar
1 tane monitör
1 adet bilgisayara bağlamak için LCD

şimdiden teşekkürler.

14-05-2009, 14:49:12

#2

erkutarhan

sayfanın belli bir saniye aralığında kendini yenileme özelliği var
şöyle de bi örnek kod buldum

<%

set wbook = createObject("DypsXLS.XLSApplication")

'Create a Workbook Object and set a password
'to make it read-only
'Set wbook = CreateExcelWorkbook()
wbook.password = "myPassword"

' The default font is Tahoma,10
wbook.SetDefaultFont "Tahoma", 9

' Create Worksheets
wbook.AddSheet("FirstSheet")
' SecondSheet is hidden
wbook.AddSheet("SecondSheet",False)

' The sheet name could be ommit in
' order to have the default one
wbook.AddSheet

' Add Sheet and return a XLSWorkSheet object
Set wsheet = wbook.AddSheet("MySheet")

'Get a reference to the second sheet
Set wsheet = wbook.GetSheet(2)
'and similar :
Set wsheet = wbook.GetSheet("SecondSheet")

' Set the scale factor for the sheet (in percent)
wsheet.ScaleFactor = 95

'Set the active sheet when opened
wbook.SetActiveSheet "MySheet"
'' Or
wbook.SetActiveSheet 3

'adding cells to a worksheet
Set cell = wsheet.AddCell(1, 1,"MyValue") 'cell A1

'Use GetCell to retrieve an already existing cell
Set cell = wsheet.GetCell(1, 1) 'Cell A1
cell.value = "4"

'If you have write permission :
wbook.Save server.mapPath("myExcelWork.xls")
%>

14-05-2009, 18:48:02

#3

~~untied~~

Üyeliği durduruldu

kodu denedim olmadı yada ben beceremedim bu konuda başka fikri olan yada verilen kodu çalıştırabilen arkadaş varmı?

erkutarhan kod için tşk. ederim.

15-05-2009, 00:14:47

#4

gogoturk

Bunu işlemi normal olarak ado ile çok rahat bir şekilde ayny access'e bağlanır gibi yapabilirsin. Aşağıda örneği gönderiyorum.

<% Option Explicit %>
<html>
<head>
<meta http-equiv="refresh" content="5" />
</head>
<body>
<%
Dim objConn, objRS, strSQL
Dim x, curValue

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DRIVER={Microsoft Excel Driver (*.xls)}; IMEX=1; HDR=NO; "&_
"Excel 8.0; DBQ=" & Server.MapPath("excelfile.xls") & "; "
strSQL = "SELECT * FROM A1:Q10000"
Set objRS=objConn.Execute(strSQL)
Response.Write("<table border=""1"">")
Response.Write("<tr>")
For x=0 To objRS.Fields.Count-1
Response.Write("<th>" & objRS.Fields(x).Name & "</th>")
Next
Response.Write("</tr>")
Do Until objRS.EOF
Response.Write("<tr>")
For x=0 To objRS.Fields.Count-1
curValue = objRS.Fields(x).Value
If IsNull(curValue) Then
curValue="N/A"
End If
curValue = CStr(curValue)
Response.Write("<td>" & curValue & "</td>")
Next
Response.Write("</tr>")
objRS.MoveNext
Loop
objRS.Close
Response.Write("</table>")
objConn.Close
Set objRS=Nothing
Set objConn=Nothing
%>
</body>
</html>