Wie kann ich von Excel ein Wert auslesen und in mein Script rein schreiben lassen?

  • VB6

Es gibt 13 Antworten in diesem Thema. Der letzte Beitrag () ist von exenz.

    Wie kann ich von Excel ein Wert auslesen und in mein Script rein schreiben lassen?

    hallo,

    ich programmiere nicht lange mit VB und brauche Hilfe und zwar ich möchte ein wert aus meine Exceltabelle auslesen und in mein Script rein schreiben lassen.

    Visual Basic-Quellcode

    1. Set Excel = CreateObject("excel.Application")
    2. Excel.Workbooks.Open App.Path & "\tb_Artikel.xls"
    3. Excel.Visible = False
    5. i = 0
    6. artnr1 = TF_art_nummer_1
    7. menge1 = TF_menge_1
    9. Do
    11. i = i + 1
    12. Str = Excel.Range("A" & i).Value
    13. Loop Until Str = "" Or Str = artnr1
    15. If Str = "" Then
    16. msg1 = MsgBox("Die angegebene Artikel-Nr. konnte nicht gefunden werden. Bitte überprüfen sie Ihre Eingabe", 48, "Error")
    18. ElseIf Str = artnr1 Then
    20. (ab hier komm ich nicht weiter)
    22. End If
    24. Excel.Quit
    25. Excel.Application.Quit


    Also ich schreibe die Artikel-Nr in ein Textfeld und habe daneben noch 5 andere Textfelder die automatisch ausgefüllt werden sollen.

    Danke im Vorraus :)

    find ich sehr nett...hättest wenigstens schreiben können, dass es nicht funktioniert...kommt ein Fehler, was wird dir ausgegeben, sicher, dass die Index angaben richtig sind? Schonmal mit einer separaten extra Datei probiert?Sicher das Artnr1 überhaupt einen Wert hat?
    hast du schonmal gedebuggt?
    Ich wollte auch mal ne total überflüssige Signatur:
    ---Leer---

    Also ich möchte bei Artikel.Nr. die Nummer reinschreiben und das der Rest sich automachtisch ausfüllt, sobald ich auf den Button klick.



    Und hier sind in der Exceltabele die Werte die ich im obern Bild reinschreiben will, außer bei Menge

    Eigentlich ganz einfach

    Variabel1 = Excel.Range("B" & i).Value
    Variabel2 = Excel.Range("C" & i).Value
    Variabel3 = Excel.Range("D" & i).Value
    Variabel4 = Excel.Range("E" & i).Value
    Variabel5 = Excel.Range("F" & i).Value

    So funzts bei mir einwandfrei:

    Visual Basic-Quellcode

    1. Public Class Form1
    2. Dim Excel As Object
    3. Dim i As Integer
    4. Dim ID As String
    5. Dim Str As String
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    8. Excel = CreateObject("excel.Application")
    9. Try
    10. Excel.Workbooks.Open(Application.StartupPath & "\tb_Artikel.xlsx")
    11. Catch f As Exception
    12. MsgBox(f.Message)
    13. End Try
    15. Excel.Visible = False
    17. i = 0
    18. ID = TextBox1.Text
    20. Do Until ID = Str
    21. i = i + 1
    22. Str = Excel.Range("A" & i).Value
    24. If Str = "" Then
    25. Exit Do
    26. End If
    27. Loop
    29. If Str = "" Then
    30. MsgBox("Die angegebene Artikel-Nr. konnte nicht gefunden werden. Bitte überprüfen sie Ihre Eingabe", 48, "Error")
    31. Else
    33. TextBox2.Text = Excel.Range("B" & i).Value
    34. TextBox3.Text = Excel.Range("C" & i).Value
    35. TextBox4.Text = Excel.Range("D" & i).Value
    36. TextBox5.Text = Excel.Range("E" & i).Value
    37. TextBox6.Text = Excel.Range("F" & i).Value
    39. End If
    40. Excel.Quit()
    41. Excel.Application.Quit()
    42. End Sub
    44. End Class

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „sirblacksoul“ ()