[ASP] Artikel 20020128: Serverdaten clientseitig in Exceltemplates importieren

[Ursina Huwiler]

Hallo zusammen

Ich benutze zum testen die Vorlagen aus dem Artikel. Beim generieren des
Excell-Files erscheint immer die folgende Fehlermeldung. Ich hab schon
jenste Pfadangaben ausprobiert.

Fehler:
Es ist ein Laufzeitfehler aufgetreten.
Soll der Debugmodus gestartet werden?
Zeile: 13
Fehler: '\\domains\ueligerber.com\wwwroot\admin\data\mainFile.xlt' wurde
nicht gefunden. =DCberprüfen Sie die Rechtschreibung des Dateinamens =
und
überprüfen Sie, ob der Ort der Datei korrekt ist.

Der Dateiname ist korrekt und der Ort der Datei auch. Die DB-Connection
funktioniert auch (getestet). Die Dateien ex3.asp und meinFile.xlt =
liegen im
selben Ordner.
Wo könnte der Fehler liegen?

Ergänzung:
Die DB liegt ausserhalb von wwwroot d.h. nicht im selben Directory wie =
die
anderen Dateien. Pfad zur DB ist c:\domains\domain-name\db

Code (body):
<script Language=VBScript>
<!--
function load_excel(Pfad)
Set objXL = CreateObject("Excel.Application")

objXL.Visible = TRUE
objXL.WorkBooks.Open(Pfad)
objXL.Cells(1, 3).font.bold = true
objXL.Cells(1, 2).Value = "Firma"
objXL.Cells(1, 3).Value = "Anrede"
objXL.Cells(1, 4).Value = "Vorname"
objXL.Cells(1, 5).Value = "Name" 
objXL.Cells(1, 6).Value = "Strasse"
objXL.Cells(1, 7).Value = "PLZ"
objXL.Cells(1, 8).Value = "Ort"
objXL.Cells(1, 9).Value = "Land"
objXL.Cells(1, 10).Value = "Telefon"
objXL.Cells(1, 11).Value = "Fax"
objXL.Cells(1, 12).Value = "Mail"

<%
i=3

While Not RecSet.EOF
	response.write " objXL.Cells(" & i & ", 3).font.bold = true" &
vbCrLF
	response.write " objXL.Cells(" & i & ", 1).Value =" & i & vbCrLF
	response.write " objXL.Cells(" & i & ", 2).Value =""" &
Trim(RecSet("Firma")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 3).Value =""" &
Trim(RecSet("Anrede")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 4).Value =""" &
Trim(RecSet("Vorname")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 5).Value =""" &
Trim(RecSet("Name")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 6).Value =""" &
Trim(RecSet("Strasse")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 7).Value =""" &
Trim(RecSet("PLZ")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 8).Value =""" &
Trim(RecSet("Ort")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 9).Value =""" &
Trim(RecSet("Land")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 10).Value =""" &
Trim(RecSet("Telefon")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 11).Value =""" &
Trim(RecSet("Fax")) & """" & vbCrLF
	response.write " objXL.Cells(" & i & ", 12).Value =""" &
Trim(RecSet("Mail")) & """" & vbCrLF
i=i+1
RecSet.MoveNext
Wend
RecSet.Close=09
%>
Set objXL = Nothing
end function
-->
</script>


<table width="100%" border="1" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10%">Excel Demo</td>
    <td width="42%">1. Excel Vorlage (XLT): Arbeitsmappe =
generieren.</td>
    <td width="48%">
      <input type=image onClick="load_excel
'\\domains\ueligerber.com\wwwroot\admin\data\meinFile.xlt'" =
src="./disk.gif"
name="image">
    </td>
  </tr>
</table>
</body>
</html>

Bin dankbar für jede Hilfe.
Gruss Ursina