Excel abfragen funktionieren nicht sobald word funktionen mit im Programm stehen

  • Excel

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von stikmata.

    Excel abfragen funktionieren nicht sobald word funktionen mit im Programm stehen

    Hallo

    In einem teil meines programms frage ich ab, ob angegebene Bankleitzahlen existieren

    mit:

    Visual Basic-Quellcode

    1. Function Bankleitzahl()
    4. Dim Excel As Object
    5. Dim i As Integer
    6. Dim ID As String
    7. Dim Str As String
    10. Excel = CreateObject("excel.Application")
    11. Try
    13. Excel.Workbooks.Open(Application.StartupPath & "\blz.xlsx")
    14. Catch f As Exception
    15. MsgBox(f.Message)
    16. End Try
    18. Excel.Visible = False
    20. i = 0
    21. ID = PlzTextBox.Text
    23. Do Until ID = Str
    24. i = i + 1
    25. Str = Excel.Range("A" & i).Value
    27. If Str = "" Then
    28. Exit Do
    29. End If
    30. Loop
    32. If Str = "" Then
    33. MsgBox("Die angegebene Bankleitzahl gibt es nicht. Bitte überprüfen sie Ihre Eingabe")
    34. Else
    36. NamebankLabel1.Text = Excel.Range("C" & i).Value
    39. End If
    40. Excel.Quit()
    41. Excel.Application.Quit()
    42. End Function


    Dies Funktioniert auch, jedoch wenn ich dann versuche noch daten in ein word document schreiben möchte und den Verweis windows word 12...

    hinzufüge funktioniert das nicht mehr

    Was kann ich dann machen damit beides funktioniert?

    den Verweis windows word 12... hinzufüge funktioniert das nicht mehr
    Super-Fehlermeldung!
    Da kann man nur im Nebel stochern.


    Ich tippe darauf, dass Late Binding einerseits und die Referenz andererseits nicht passt.
    Ich würde für Word und Excel dieselbe Binding-Methode nehmen.

    Entweder beide über CreateObject oder beide über die Referenz einbinden.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Das ist nicht Fehler sondern der Verweis der gemacht wird.

    Ich habe nun das 'Imports Microsoft.Office.Interop.Word auskommentiert und es wird kein fehler beim starten angezeigt.

    'Imports Microsoft.Office.Interop.Word
    Imports Microsoft.Office.Interop

    wenn ich nun die funktion starte kommt COMException wurde nicht behandelt.

Facebook