| Forum: ASP Classic |
Thema:
DevTrain-Code funktioniert bei mir nicht :-((( |
Von:
G. Guest (
18.03.2003 15:01) |
Hallo,
vielleicht kann mir jemand von Euch weiterhelfen?
Also ich möchte unter ASP eine vorhandene Word-Datei laden und mit Daten befüllen!
Jedesmal, wenn ich das Skript aufrufe, bekomme ich die Fehlermeldung, dass ein Fehler in folgender Zeile ist:
Set oWord = Server.CreateObject("Word.Application")
Was habe ich vergessen bzw. falsch gemacht?
Ich kann auch keine Einstellungen an der "Global.asa" vornehmen oder überprüfen, da es sich um einen zentralen IntranetServer handelt...
Muss ich vielleicht im Meta-Code angeben, um welche Library es sich handelt, also Word 97 oder Word 2000 (in VB muss man das) ?
Ich weiss einfach nicht, was ich falsch mache ???
Das ist übrigens der komplette Code:
<%@ language=vbscript %>
<%
KdNr = "12345678"
Name = "Herr Peter Völker"
Strasse = "Oberhausen 8"
Wohnort = "84533 D-Wahldorf"
ReNr = "3456787"
dim arrDaten(2,2)
arrDaten(0, 0) = "Drucker": arrDaten(0, 1) = "100,09": arrDaten(0, 2) = "300,27"
arrDaten(1, 0) = "Toner": arrDaten(1, 1) = "29,99": arrDaten(1, 2) = "290,90"
arrDaten(2, 0) = "Papier": arrDaten(2, 1) = "4,4": arrDaten(2, 2) = "62,5"
Pfad = Server.MapPath("./")
Set oWord = Server.CreateObject("Word.Application")
Set oDoc = oWord.Documents.Add(Pfad & "\Rechnung.doc")
oDoc.GoTo(wdGoToBookmark, , , "Adresse").Select
With oWord
.Selection.TypeText Name
.Selection.TypeParagraph
.Selection.TypeText Strasse
.Selection.TypeParagraph
.Selection.TypeParagraph
.Selection.TypeText Wohnort
oDoc.GoTo(wdGoToBookmark, , , "RNr").Select
.Selection.TypeText ReNr
oDoc.GoTo(wdGoToBookmark, , , "Datum").Select
.Selection.TypeText CStr(Date)
oDoc.GoTo(wdGoToBookmark, , , "KNr").Select
.Selection.TypeText KdNr
Set oT = oDoc.Tables(1)
oT.Rows(2 + i).Select
oWord.Selection.InsertRowsBelow UBound(arrDaten) + 2
For i = LBound(arrDaten) To UBound(arrDaten)
oT.Rows(2 + i).Cells(1).Range = i + 1
oT.Rows(2 + i).Cells(2).Range = arrDaten(i, 0)
oT.Rows(2 + i).Cells(3).Range = arrDaten(i, 1)
oT.Rows(2 + i).Cells(4).Range = arrDaten(i, 2)
Gesamt = Gesamt + CDbl(arrDaten(i, 2))
Next
oT.Rows(2 + i).Cells(3).Range = "Netto" & vbCrLf & "MWST"
oT.Rows(2 + i).Cells(4).Range = Gesamt & vbCrLf & Gesamt * 0.16
oT.Rows(2 + i + 1).Cells(3).Range = "Brutto"
oT.Rows(2 + i + 1).Cells(4).Range = Gesamt * 1.16
oT.Rows(2 + i + 1).Select
.Selection.Font.Bold = wdToggle
.Selection.Font.Underline = wdUnderlineSingle
oDoc.BuiltInDocumentProperties("Title").Value = "ASP-Konferenz 2001"
oDoc.BuiltInDocumentProperties("Author").Value = "Bernhard Elbl, ppedv AG"
oDoc.Variables("ID").Value = "BernhardE@ppedv.de"
oDoc.SaveAs Pfad & "\RechnungNeu.doc"
oDoc.Close False
Set oDoc = Nothing
.Quit
End With
Set oWord = Nothing
%>
<SCRIPT LANGUAGE=javascript>
<!--
location.href="RechnungNeu.doc"
//-->
</SCRIPT>
Vielleicht könnt' ihr mir helfen ?
cu
Chris
| Betreff |
Von |
Datum |
|
|
|
|
G.
Guest
|
18.03.2003 16:07 |
|
|
  |
Re: DevTrain-Code funktioniert bei mir nicht :-(((
| Sorry..<br>Zur Info noch: ich rufe immer das ASP-Skript dirkt im Browser auf (z. B. http://139.21.207.190/wdrechnung1.asp + Return)..<br><br>Das ist die Fehlermeldung:<br><br>Kompilierungsfehler in Microsoft... |
|
|
|
|
|
G.
Guest
|
18.03.2003 21:52 |
|
|
|
|
Hannes
Preishuber
|
19.03.2003 08:49 |
|
|
|
Re: DevTrain-Code funktioniert bei mir nicht...
| Das ist möglich, dass der Server kein Office installiert hat. Kann ich aber leider nicht beeinflussen, da es sich um einen Intranetserver handelt und der nicht von mir gesteuert wird..<br><br>Ich hätte da... |
|
|
|
|
|
G.
Guest
|
19.03.2003 09:53 |
|
|
|
Antworten
Vorsicht bei der Eingabe: Die Zeichen ' oder -- sind nicht erlaubt!
