Word mail merge. Problem mit Excel

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Tomi G..

    Word mail merge. Problem mit Excel

    Hallo,

    habe schon einmal das Problem geschildert, doch es hat sich einiges geändert.

    Ich verwende in meinem Program Excel als Datenbank. Das bedeutet das ich beim Program Load die Exceldatei anspreche und die bis zum Close offen bleibt. Excel ist PW geschützt.

    Ich möchte den ausgewählten Eintrag in einem Word Serienbrief ausdrucken. Dies funktioniert auch mit meinem code.

    PROBLEM: sobald ich visible für Excel false setze verlangt es nach manueler PW eingabe.
    mache ich es true öffnet sich die Excel Datei erneuert ohne PW Abfrage.
    Ich will nicht das die User das PW wissen sonst macht die PW geschützte Datei keinen sinn.
    WAS IST DAS PROBLEM????

    Wo ist der unterschied zwischen Visible.true und Visible.false. Warum hat das Auswirkung auf ansprechen von Excel?

    mein mailmerge Code:

    VB.NET-Quellcode

    1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
    3. 'vorlage word!!!
    4. Dim objWord As New Word.Application
    5. Dim objBLAT As Word.Document
    7. objBLAT = objWord.Documents.Open("C:\Users\Tomislav\Documents\Leitungswege1.doc")
    9. Master.objExcel.Visible = True
    10. objWord.Visible = True
    12. objBLAT.MailMerge.MainDocumentType = WdMailMergeMainDocType.wdFormLetters
    13. objBLAT.MailMerge.OpenDataSource(Name:= _
    14. "C:\Users\Tomislav\Documents\TELANL BASIC EXE BACKGROUND.xls", _
    15. ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
    16. AddToRecentFiles:=False, PasswordDocument:="31000", PasswordTemplate:="31000", _
    17. WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _
    18. Connection:="_FilterDatenbank", SQLStatement:= _
    19. "", SQLStatement1:="")
    21. Master.objExcel.Visible = False
    22. objWord.Visible = False
    24. With objBLAT.MailMerge
    25. .Destination = WdMailMergeDestination.wdSendToNewDocument
    26. .MailAsAttachment = False
    27. .MailAddressFieldName = ""
    28. .MailSubject = ""
    29. .SuppressBlankLines = True
    30. With .DataSource
    31. .FirstRecord = 4
    32. .LastRecord = 500
    33. End With
    34. objBLAT.MailMerge.DataSource.ActiveRecord = WdMailMergeActiveRecord.wdFirstRecord
    35. objBLAT.MailMerge.DataSource.FindRecord(FindText:=Me.TextBox1.Text, Field:="Durchwahl")
    37. objBLAT.MailMerge.ViewMailMergeFieldCodes = 9999998
    38. objBLAT.PrintOut()
    40. objBLAT.Close(False)
    42. objWord.Quit(False)
    44. End With
    46. End Sub


    Mit dem zwei Visible.False habe ich es zum laufen gebracht aber Word und Excel sollten von anfang an nicht visible sein!!

    DANKE
    Tomi G.

    Tomi G. schrieb:

    er soll auf die bereits offene Excel zugreifen?
    Lass das Programm Exel selbst öffnen, öffne es nicht schon vorher.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende