Hallo liebe Forummitglieder,
Ich möchte mein Problem kurz erläutern:
Ich habe ein Excelsheet mit zwei Spalten "Name" und "Telefon"
Darunter stehen mehrere Zeilen mit Namen von verschiedenen Personen und ihren Telefonnummern.
Per VBS möchte ich nun eine bereits erstellte Automatisierung einer Outlookkonfiguration abrunden.
In dem Schritt muss der Name und die Telefonnummer eines Users angegeben werden.
Per VBS soll also nun der erste Name in das Textfeld 1 und die dazugehörige Telefonnummer in das Textfeld 2 des aktiven Konfigfensters geschrieben werden.
Als Java-Only- Programmierer habe ich es bisher nur hinbekommen, dass der Inhalt der Zellen gelesen und in einem Fenster wieder ausgespuckt wird:
Bringt aber so leider nichts...
Ich hoffe ihr könnt mir da etwas weiterhelfen (Ich weiß, laut Code hat das Excelsheet mehrere Spalten, aber tatsächlich sind nur 2 relevant)
Ich möchte mein Problem kurz erläutern:
Ich habe ein Excelsheet mit zwei Spalten "Name" und "Telefon"
Darunter stehen mehrere Zeilen mit Namen von verschiedenen Personen und ihren Telefonnummern.
Per VBS möchte ich nun eine bereits erstellte Automatisierung einer Outlookkonfiguration abrunden.
In dem Schritt muss der Name und die Telefonnummer eines Users angegeben werden.
Per VBS soll also nun der erste Name in das Textfeld 1 und die dazugehörige Telefonnummer in das Textfeld 2 des aktiven Konfigfensters geschrieben werden.
Als Java-Only- Programmierer habe ich es bisher nur hinbekommen, dass der Inhalt der Zellen gelesen und in einem Fenster wieder ausgespuckt wird:
Visual Basic-Quellcode
- Set objExcel = CreateObject("Excel.Application")
- Set objWorkbook = objExcel.Workbooks.Open ("C:\Users\p-mba\Desktop\erik.xls")
- intRow = 2
- Do Until objExcel.Cells(intRow,1).Value = ""
- Wscript.Echo "CN: " & objExcel.Cells(intRow, 1).Value
- Wscript.Echo "sAMAccountName: " & objExcel.Cells(intRow, 2).Value
- Wscript.Echo "GivenName: " & objExcel.Cells(intRow, 3).Value
- Wscript.Echo "LastName: " & objExcel.Cells(intRow, 4).Value
- Wscript.Echo "SN Laptop:" & objExcel.Cells(intRow, 5).Value
- intRow = intRow + 1
- Loop
- objExcel.Quit
Bringt aber so leider nichts...
Ich hoffe ihr könnt mir da etwas weiterhelfen (Ich weiß, laut Code hat das Excelsheet mehrere Spalten, aber tatsächlich sind nur 2 relevant)