per vbscript und hta --> Daten in Excel eintragen

  • VBScript

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von p41n.

    per vbscript und hta --> Daten in Excel eintragen

    Hallo Zusammen,

    Da ich mich nun schon eine ganze Weile mit der Thematik beschäftige, aber gerade überhaupt nicht weiterkomme, hoffe ich, ihr könnt mir helfen.
    Ich habe mir ein VBScript geschrieben, mit welchem ich Daten in ein Excel Sheet eintragen kann.
    Soweit funktioniert das auch problemlos. Da ich aber bei zwei Eingaben gerne ein DropDown Menu hätte und dies mit VBScript nicht ordentlich zu realisieren ist, habe ich mich für eine HTML-Applikation entschieden. Das Grundgerüst steht auch schon. Nur habe ich nun das Problem den restlichen VBScript Code in die hta-File so einzufügen, dass es auch funktioniert.

    Hier mal mein VBScript:

    Visual Basic-Quellcode

    1. Rem =================================================================================================================
    2. Rem == Start der 1. Abfrage in einer Messagebox. ==
    3. Rem =================================================================================================================
    5. dim m
    6. m = MsgBox("Mit dieser Anwendung wird ein neuer Benutzer in die Datenbank eingetragen!",vbOk,"Meldung")
    8. if m = 2 then
    10. WScript.Quit
    12. End If
    14. Rem =================================================================================================================
    15. Rem == Start der 2. Abfrage in einer Messagebox. ==
    16. Rem =================================================================================================================
    18. dim e
    19. e = msgbox("Einen Benutzer in die Datenbank eintragen?",+vbyesno,"Meldung")
    21. if e = vbno then
    23. WScript.Quit
    25. End If
    27. Rem =================================================================================================================
    28. Rem == Start der Do... Loop Anweisung! ==
    29. Rem =================================================================================================================
    31. DO
    33. Rem =================================================================================================================
    34. Rem == Initialisiere Excel Objekt. ==
    35. Rem =================================================================================================================
    37. Set oExcel = CreateObject("Excel.application")
    39. Rem =================================================================================================================
    40. Rem == Aktive Datei der ersten Objektvariablen zuordnen. ==
    41. Rem =================================================================================================================
    43. Set oWorkbook1 = oExcel.Workbooks.Open("test.xlsx")
    45. Rem =================================================================================================================
    46. Rem == Der Speicherort des Excel Sheets wird der Variablen "pfadzurexceldatei" zugeordnet. ==
    47. Rem =================================================================================================================
    49. pfadzurexceldatei="test.xlsx"
    51. Rem =================================================================================================================
    52. Rem == Variablen werden über InputBox abgefragt und für den späteren Eintrag zugewiesen. ==
    53. Rem =================================================================================================================
    55. Login = InputBox ("Accountname")
    56. VorlageA = InputBox ("Vorlage A")
    57. VorlageB = InputBox ("Vorlage B")
    58. Nachname = InputBox ("Nachname")
    59. Vorname = InputBox ("Vorname")
    60. Mainf = InputBox ("Hauptfunktion")
    61. Subf = InputBox ("Zusatzfunktion")
    62. Tele = InputBox ("Festnetznummer")
    63. Fax = InputBox ("Faxnummer")
    64. Handy = InputBox ("Handynummer")
    65. Mail = InputBox ("Mailadresse")
    67. Rem =================================================================================================================
    68. Rem == n Zeilen in einer Spalte untersuchen. (nach 1x Durchlauf --> Abbruch der Schleife mit "Exit For") ==
    69. Rem =================================================================================================================
    71. For nCounter = 1 To 500
    72. If oWorkbook1.Sheets(1).Cells(nCounter, 1).Value = "" Then
    73. oWorkbook1.Sheets(1).Cells(nCounter, 1).Value = (Login)
    74. oWorkbook1.Sheets(1).Cells(nCounter, 2).Value = (VorlageA)
    75. oWorkbook1.Sheets(1).Cells(nCounter, 3).Value = (VorlageB)
    76. oWorkbook1.Sheets(1).Cells(nCounter, 4).Value = (Nachname)
    77. oWorkbook1.Sheets(1).Cells(nCounter, 6).Value = (Vorname)
    78. oWorkbook1.Sheets(1).Cells(nCounter, 7).Value = (Mainf)
    79. oWorkbook1.Sheets(1).Cells(nCounter, 8).Value = (Subf)
    80. oWorkbook1.Sheets(1).Cells(nCounter, 9).Value = (Tele)
    81. oWorkbook1.Sheets(1).Cells(nCounter, 10).Value = (Fax)
    82. oWorkbook1.Sheets(1).Cells(nCounter, 11).Value = (Handy)
    83. oWorkbook1.Sheets(1).Cells(nCounter, 12).Value = (Mail)
    84. Exit For
    85. End if
    86. Next
    88. Rem =================================================================================================================
    89. Rem == Datei wieder schliesen. ==
    90. Rem =================================================================================================================
    92. oWorkbook1.SaveAs(pfadzurexceldatei)
    93. oWorkbook1.Close
    95. Rem =================================================================================================================
    96. Rem == Wiederholung der Do... Loop Anweisung durch Setzen der Variable mit der Messagebox. ==
    97. Rem =================================================================================================================
    99. dim a
    100. a = msgbox("Einen weiteren Benutzer in die Datenbank eintragen?",+vbyesno,"Meldung")
    102. Loop while a = vbyes
    104. Rem =================================================================================================================
    105. Rem == Verarbeitungsende und Ausgabe einer Meldung durch die Messagebox. ==
    106. Rem =================================================================================================================
    108. variable = MsgBox("Der/Die Anwender wurde(n) erfolgreich in die Datenbank eingetragen !",vbOKOnly,"Meldung")
    110. Rem =================================================================================================================
    111. Rem == Objektverweis wieder entfernen. ==
    112. Rem =================================================================================================================
    114. Set oWorkbook1 = Nothing
    115. oExcel.Quit



    Hier hier ist meine bisherige hta-File:

    HTML-Quellcode

    1. <html>
    2. <head>
    3. <title>Benutzerverwaltung</title>
    4. <HTA:APPLICATION
    5. ID="objTest"
    6. APPLICATIONNAME="Benutzerverwaltung"
    7. SCROLL="no"
    8. SINGLEINSTANCE="yes"
    9. windowState="normal"
    10. >
    11. </head>
    13. <SCRIPT LANGUAGE="VBScript">
    15. DIM Login
    16. DIM VorlageA
    17. DIM VorlageB
    18. DIM Nachname
    19. DIM Vorname
    20. DIM Mainf
    21. DIM Subf
    22. DIM Tele
    23. DIM Fax
    24. DIM Handy
    25. DIM Mail
    27. Sub Excel
    28. Set oExcel = CreateObject("Excel.application")
    29. Set oWorkbook1 = oExcel.Workbooks.Open("test.xlsx")
    30. pfadzurexceldatei="test.xlsx"
    31. End Sub
    33. Sub GenerateEntry
    34. For nCounter = 1 To 500
    35. If oWorkbook1.Sheets(1).Cells(nCounter, 1).Value = "" Then
    36. oWorkbook1.Sheets(1).Cells(nCounter, 1).Value = (Login)
    37. oWorkbook1.Sheets(1).Cells(nCounter, 2).Value = (VorlageA)
    38. oWorkbook1.Sheets(1).Cells(nCounter, 3).Value = (VorlageB)
    39. oWorkbook1.Sheets(1).Cells(nCounter, 4).Value = (Nachname)
    40. oWorkbook1.Sheets(1).Cells(nCounter, 6).Value = (Vorname)
    41. oWorkbook1.Sheets(1).Cells(nCounter, 7).Value = (Mainf)
    42. oWorkbook1.Sheets(1).Cells(nCounter, 8).Value = (Subf)
    43. oWorkbook1.Sheets(1).Cells(nCounter, 9).Value = (Tele)
    44. oWorkbook1.Sheets(1).Cells(nCounter, 10).Value = (Fax)
    45. oWorkbook1.Sheets(1).Cells(nCounter, 11).Value = (Handy)
    46. oWorkbook1.Sheets(1).Cells(nCounter, 12).Value = (Mail)
    47. Exit For
    48. End if
    49. Next
    50. End Sub
    52. Sub Abschluss
    53. oWorkbook1.SaveAs(pfadzurexceldatei)
    54. oWorkbook1.Close
    55. Set oWorkbook1 = Nothing
    56. oExcel.Quit
    57. End Sub
    59. Sub Window_Onload
    60. LoadDropDownA
    61. LoadDropDownB
    62. End Sub
    64. Sub LoadDropDownA
    65. ClearListBoxA
    66. Set objFS = CreateObject("Scripting.FileSystemObject")
    67. Set objFile = objFS.OpenTextFile("VorlagenA.txt")
    68. strVorlagenA = objFile.ReadAll
    69. objFile.Close
    70. arrVorlagenA = Split(strVorlagenA,vbNewLine)
    71. For Each strNumber in arrVorlagenA
    72. Set objOption = Document.createElement("OPTION")
    73. objOption.Text = strNumber
    74. objOption.Value = strNumber
    75. VorlagenA.Add(objOption)
    76. Next
    77. End Sub
    79. Sub LoadDropDownB
    80. ClearListBoxB
    81. Set objFS = CreateObject("Scripting.FileSystemObject")
    82. Set objFile = objFS.OpenTextFile("VorlagenB.txt")
    83. strVorlagenB = objFile.ReadAll
    84. objFile.Close
    85. arrVorlagenB = Split(strVorlagenB,vbNewLine)
    86. For Each strNumber in arrVorlagenB
    87. Set objOption = Document.createElement("OPTION")
    88. objOption.Text = strNumber
    89. objOption.Value = strNumber
    90. VorlagenB.Add(objOption)
    91. Next
    92. End Sub
    94. Sub ClearListboxA
    95. For Each objOption in VorlagenA.Options
    96. objOption.RemoveNode
    97. Next
    98. End Sub
    100. Sub ClearListboxB
    101. For Each objOption in VorlagenB.Options
    102. objOption.RemoveNode
    103. Next
    104. End Sub
    106. Sub Buttona_onclick
    107. a = VorlagenA.Value
    108. MsgBox a
    109. End Sub
    111. Sub Buttonb_onclick
    112. a = VorlagenB.Value
    113. MsgBox a
    114. End Sub
    116. Sub Buttonc_onclick
    117. c = outlook.Value
    118. MsgBox c
    119. End Sub
    121. </SCRIPT>
    123. <body>
    124. <fieldset>
    125. <p><b><u><font color="#FF0000" family="arial" size="5"><center>Formular zum Hinzufügen von Anwendern zur Datenbank!</center><br></font></u></b></p>
    126. <table>
    127. <tr>
    128. <td>Bitte wählen Sie die 1.Vorlage aus:
    129. <select name="VorlagenA"></select><br><br></td>
    131. <td align="right">Bitte wählen Sie die 2.Vorlage aus:
    132. <select name="VorlagenB"></select><br><br></td>
    133. </tr>
    135. <tr>
    136. <td><label for="name">Bitte die Benutzerkennung des Anwenders angeben!</label>
    137. <input name="Daten" type="text" size="70"></input></td>
    139. <td align="right"><label for="name">Bitte den Nachnamen des Anwenders angeben!</label>
    140. <input name="Daten" type="text" size="70"></input></td>
    141. </tr>
    143. <tr>
    144. <td><label for="name">Bitte den Vornamen des Anwenders angeben!</label>
    145. <input type="text" size="70"></input></td>
    147. <td align="right"><label for="name">In welcher Funktion ist der Anwender tätig?</label>
    148. <input type="text" size="70"></input></td>
    149. </tr>
    151. <tr>
    152. <td><label for="name">Sofern der Anwender eine Zusatzfunktion hat, bitte angeben!</label>
    153. <input type="text" size="70"></input></td>
    155. <td align="right"><label for="name">Unter welcher Festnetznummer ist der Anwender erreichbar?</label>
    156. <input type="text" size="70"></input></td>
    157. </tr>
    159. <tr>
    160. <td><label for="name">Unter welche Faxnummer ist der Anwender erreichbar?</label>
    161. <input type="text" size="70"></input></td>
    163. <td align="right"><label for="name">Unter welcher Nummer ist der Anwender unterwegs erreichbar?</label>
    164. <input type="text" size="70"></input><br><br></td>
    165. </tr>
    166. </table>
    168. <center><tr>
    169. <label for="name">Unter welcher Mailadresse ist der Anwender erreichbar?</label><br>
    170. <input type="text" size="70"></input>
    171. </tr></center>
    173. <center><tr>
    174. <form> <input type="Button" name="Buttona" value="2. Vorlage">
    175. <input type="Button" name="Buttonb" value="1. Vorlage">
    176. <input type="Button" name="Buttonc" value="Alle Daten übermitteln"></form>
    177. </tr></center>
    178. </fieldset>
    179. </body>
    180. </html>


    Also das VBScript läuft tadellos. Und die hta-File bisher auch. Nun würde ich gerne die Funktionen aus dem Script in die hta-File übertragen. Für euch Spezialisten bestimmt ein Kinderspiel. Oder? ;)

    Vorab schon mal Danke für eure Hilfe.


    Freundliche Grüße

    p41n

    Gelöst!

    Hallo Gemeinde,

    Ich konnte das Problem nun letztendlich doch selbst lösen.

    Für die, die wissen wollen, wie ich es realisiert habe, könnt ihr euch nun den Quellcode ansehen:

    Visual Basic-Quellcode

    1. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Strict//EN"
    2. "http://www.w3.org/TR/html4/strict.dtd">
    3. <html>
    4. <head>
    5. <title>Benutzerverwaltung</title>
    6. <HTA:APPLICATION
    7. ID="objTest"
    8. Border="thin"
    9. Maximizebutton="No"
    10. APPLICATIONNAME="Benutzerverwaltung"
    11. SCROLL="no"
    12. SINGLEINSTANCE="yes"
    13. windowState="normal"
    14. >
    15. </head>
    17. <SCRIPT LANGUAGE="VBScript">
    19. Sub Window_Onload
    20. LoadDropDownA
    21. LoadDropDownB
    22. End Sub
    24. Sub LoadDropDownA
    25. ClearListBoxA
    26. Set objFS = CreateObject("Scripting.FileSystemObject")
    27. Set objFile = objFS.OpenTextFile("VorlagenA.txt")
    28. strVorlagenA = objFile.ReadAll
    29. objFile.Close
    30. arrVorlagenA = Split(strVorlagenA,vbNewLine)
    31. For Each strNumber in arrVorlagenA
    32. Set objOption = Document.createElement("OPTION")
    33. objOption.Text = strNumber
    34. objOption.Value = strNumber
    35. VorlagenA.Add(objOption)
    36. Next
    37. End Sub
    39. Sub LoadDropDownB
    40. ClearListBoxB
    41. Set objFS = CreateObject("Scripting.FileSystemObject")
    42. Set objFile = objFS.OpenTextFile("VorlagenB.txt")
    43. strVorlagenB = objFile.ReadAll
    44. objFile.Close
    45. arrVorlagenB = Split(strVorlagenB,vbNewLine)
    46. For Each strNumber in arrVorlagenB
    47. Set objOption = Document.createElement("OPTION")
    48. objOption.Text = strNumber
    49. objOption.Value = strNumber
    50. VorlagenB.Add(objOption)
    51. Next
    52. End Sub
    54. Sub ClearListboxA
    55. For Each objOption in VorlagenA.Options
    56. objOption.RemoveNode
    57. Next
    58. End Sub
    60. Sub ClearListboxB
    61. For Each objOption in VorlagenB.Options
    62. objOption.RemoveNode
    63. Next
    64. End Sub
    66. Sub Buttoncreate_onclick
    67. a = login.Value
    68. b = VorlagenA.Value
    69. c = VorlagenB.Value
    70. d = surname.Value
    71. e = firstname.Value
    72. f = vunction.Value
    73. g = addfunction.Value
    74. h = phone.Value
    75. i = fax.Value
    76. j = mobile.Value
    77. k = mail.Value
    78. Set oExcel = CreateObject("Excel.application")
    79. oExcel.Visible = False
    80. oExcel.DisplayAlerts = False
    81. Set oWorkbook1 = oExcel.Workbooks.Open("pfad\test.xlsx")
    82. pfadzurexceldatei="pfad\test.xlsx"
    83. For nCounter = 1 To 500
    84. If oWorkbook1.Sheets(1).Cells(nCounter, 1).Value = "" Then
    85. oWorkbook1.Sheets(1).Cells(nCounter, 1).Value = (a)
    86. oWorkbook1.Sheets(1).Cells(nCounter, 2).Value = (b)
    87. oWorkbook1.Sheets(1).Cells(nCounter, 3).Value = (c)
    88. oWorkbook1.Sheets(1).Cells(nCounter, 4).Value = (d)
    89. oWorkbook1.Sheets(1).Cells(nCounter, 5).Value = (e)
    90. oWorkbook1.Sheets(1).Cells(nCounter, 6).Value = (f)
    91. oWorkbook1.Sheets(1).Cells(nCounter, 7).Value = (g)
    92. oWorkbook1.Sheets(1).Cells(nCounter, 8).Value = (h)
    93. oWorkbook1.Sheets(1).Cells(nCounter, 9).Value = (i)
    94. oWorkbook1.Sheets(1).Cells(nCounter, 10).Value = (j)
    95. oWorkbook1.Sheets(1).Cells(nCounter, 11).Value = (k)
    96. Exit For
    97. End if
    98. Next
    99. oWorkbook1.SaveAs(pfadzurexceldatei)
    100. oWorkbook1.Close
    101. Set oWorkbook1 = Nothing
    102. oExcel.Quit
    103. MsgBox "Der Mitarbeiter wurde erfolgreich in die Datenbank eingetragen!"
    104. End Sub
    106. Sub Buttonreset_onclick
    107. login.Value = ""
    108. VorlagenA.Value = ""
    109. VorlagenB.Value = ""
    110. surname.Value = ""
    111. firstname.Value = ""
    112. vunction.Value = ""
    113. addfunction.Value = ""
    114. phone.Value = ""
    115. fax.Value = ""
    116. mobile.Value = ""
    117. mail.Value = ""
    118. End Sub
    120. Sub Buttonclose_onclick
    121. Me.Close()
    122. End Sub
    124. </SCRIPT>
    126. <body bgcolor="#000000">
    128. <p><b><u><font color="#FFFF00" family="arial" size="5"><center>Formular zum Hinzufügen von Mitarbeitern zur Signatur-Datenbank!</center><br></font></u></b></p>
    129. <table border="1" bgcolor="#eeeeee" bordercolor="#hhhhhh" align="center" rules="groups" width="70%">
    130. <tr>
    131. <td><br><center>Neue E-Mail Nachrichten:</center>
    132. <center><select name="VorlagenA"></select></center></td>
    134. <td><center>Antworten/Weiterleitungen:</center>
    135. <center><select name="VorlagenB"></select></center></td>
    136. </tr>
    138. <tr>
    139. <td><br><center><label for="name">Benutzerkennung</label></center>
    140. <center><input type="text" name="login" size="50"></input></center></td>
    142. <td><br><center><label for="name">Nachname</label></center>
    143. <center><input type="text" name="surname" size="50"></input></center></td>
    144. </tr>
    146. <tr>
    147. <td><center><label for="name">Vorname</label></center>
    148. <center><input type="text" name="firstname" size="50"></input></center></td>
    150. <td><center><label for="name">Hauptfunktion</label></center>
    151. <center><input type="text" name="vunction" size="50"></input></center></td>
    152. </tr>
    154. <tr>
    155. <td><center><label for="name">Zusatzfunktion</label></center>
    156. <center><input type="text" name="addfunction" size="50"></input></center></td>
    158. <td><center><label for="name">Festnetznummer</label></center>
    159. <center><input type="text" name="phone" size="50"></input></center></td>
    160. </tr>
    162. <tr>
    163. <td><center><label for="name">Faxnummer</label></center>
    164. <center><input type="text" name="fax" size="50"></input></center></td>
    166. <td><center><label for="name">Handynummer</label></center>
    167. <center><input type="text" name="mobile" size="50"></input></center></td>
    168. </tr>
    170. <tr>
    171. <td><center><label for="name">Mailadresse</label></center>
    172. <center><input type="text" name="mail" size="50"></input></center><br></td>
    174. <td></td>
    175. </tr>
    176. </table>
    178. <tr>
    179. <center>
    180. <form><input id=runbutton type="Button" value="Alle Daten übermitteln" name="run_button" onClick="Buttoncreate_onclick">
    181. <input id=runbutton type="Button" value="Alle Felder zurücksetzen" name="run_button" onClick="Buttonreset_onclick">
    182. <input id=runbutton type="Button" value="Formular schließen" name="run_button" onClick="Buttonclose_onclick"></form>
    183. </center>
    184. </tr>
    186. </body>
    187. </html>



    Bis dann dann..

    Viele Grüße

    p41n

Facebook
Telefonspende