Hallo
In einem teil meines programms frage ich ab, ob angegebene Bankleitzahlen existieren
mit:
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?
In einem teil meines programms frage ich ab, ob angegebene Bankleitzahlen existieren
mit:
Visual Basic-Quellcode
- Function Bankleitzahl()
- Dim Excel As Object
- Dim i As Integer
- Dim ID As String
- Dim Str As String
- Excel = CreateObject("excel.Application")
- Try
- Excel.Workbooks.Open(Application.StartupPath & "\blz.xlsx")
- Catch f As Exception
- MsgBox(f.Message)
- End Try
- Excel.Visible = False
- i = 0
- ID = PlzTextBox.Text
- Do Until ID = Str
- i = i + 1
- Str = Excel.Range("A" & i).Value
- If Str = "" Then
- Exit Do
- End If
- Loop
- If Str = "" Then
- MsgBox("Die angegebene Bankleitzahl gibt es nicht. Bitte überprüfen sie Ihre Eingabe")
- Else
- NamebankLabel1.Text = Excel.Range("C" & i).Value
- End If
- Excel.Quit()
- Excel.Application.Quit()
- 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?