Hallo zusammen,
in einer ASP.NET-Applikation versuche ich eine WORD-Serienbriefdatei mit
einer Steuerdatei zu verbinden mit der folgenden Funktion(VB.NET FW1.1):
Public Function WordMerge(ByVal WrdSource As String, ByVal CsvSource As
String, ByVal TargetPath As String) As String
Dim WordApp As New Word.Application
Dim WordDoc As Word.Document
Dim rslt As String = Guid.NewGuid.ToString & ".doc"
Try
WordDoc = WordApp.Documents.Open(CType(WrdSource, Object))
WordDoc.Select()
WordDoc.MailMerge.OpenDataSource(CsvSource)
WordDoc.MailMerge.Destination =
Word.WdMailMergeDestination.wdSendToNewDocument
WordDoc.MailMerge.Execute(False)
WordDoc.AcceptAllRevisions()
WordApp.ActiveDocument.SaveAs(TargetPath & rslt, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing)
Catch ex As Exception
Throw ex
Finally
If Not (WordDoc Is Nothing) Then WordDoc.Close(False)
If Not (WordApp Is Nothing) Then WordApp.Quit(False)
End Try
Return rslt
End Function
Ich kriege leider jedes mal ein Exception :
"System.Runtime.InteropServices.COMException" an der Stelle, wo WORD versucht
die Datei zu öffnen. Ich habe daraufhin versucht mit dem dcomcnfg.exe die
Zugriffsrechte für den ASPNET neu zuzuordnen trotzdem klappts bislang nicht.
kann jmd vielleicht dabei helfen.
Danke im voraus
in einer ASP.NET-Applikation versuche ich eine WORD-Serienbriefdatei mit
einer Steuerdatei zu verbinden mit der folgenden Funktion(VB.NET FW1.1):
Public Function WordMerge(ByVal WrdSource As String, ByVal CsvSource As
String, ByVal TargetPath As String) As String
Dim WordApp As New Word.Application
Dim WordDoc As Word.Document
Dim rslt As String = Guid.NewGuid.ToString & ".doc"
Try
WordDoc = WordApp.Documents.Open(CType(WrdSource, Object))
WordDoc.Select()
WordDoc.MailMerge.OpenDataSource(CsvSource)
WordDoc.MailMerge.Destination =
Word.WdMailMergeDestination.wdSendToNewDocument
WordDoc.MailMerge.Execute(False)
WordDoc.AcceptAllRevisions()
WordApp.ActiveDocument.SaveAs(TargetPath & rslt, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing, Type.Missing,
Type.Missing, Type.Missing, Type.Missing, Type.Missing)
Catch ex As Exception
Throw ex
Finally
If Not (WordDoc Is Nothing) Then WordDoc.Close(False)
If Not (WordApp Is Nothing) Then WordApp.Quit(False)
End Try
Return rslt
End Function
Ich kriege leider jedes mal ein Exception :
"System.Runtime.InteropServices.COMException" an der Stelle, wo WORD versucht
die Datei zu öffnen. Ich habe daraufhin versucht mit dem dcomcnfg.exe die
Zugriffsrechte für den ASPNET neu zuzuordnen trotzdem klappts bislang nicht.
kann jmd vielleicht dabei helfen.
Danke im voraus
Comment