VBS-Script - Kommentarfeld
13.09.2003 12:54:50
kai yorck
Hintergrund:
Ich möchte EXCEL für das Monitoring einer grösseren Serverlandschaft einsetzen. Dazu frage ich in regelmässigen Abständen mittels WMI verschiedene Eigenschaften der Server ab. Jeder Server hat eine Zelle in einem Excelsheet zugeordnet und in das zugehörige Kommentarfeld möchte das Ergebnis der WMI-Abfrage einstellen.
Problem: Beim ersten Durchlauf klappt alles so, wie ich mir das vorstelle. Beim zweiten Durchlauf fall ich auf die Nase, da mir entweder eine Methode fehlt, Kommentarfelder komplett zu löschen oder XL abzufragen, ob bereits ein Kommentarfeld in der Zelle existiert.
Ich habe versucht meinen Code soweit einzudampfen, dass das Problem erkennbar ist:
-----
Set objXL = WScript.CreateObject("EXCEL.application")
objXL.workbooks.open "d:\vbs\book1.xls"
objXL.range("A1").value="test"
objXL.sheets(1).Activate
For i=1 to 2
strcomment=i
sub_excel StrComment
Next
sub_excel StrComment
Sub sub_excel(strcomment)
objXL.Visible = True
'if ...then
objXL.Range("A1").AddComment
'end if...Diese Methode fehlt mir
objXL.Range("A1").Comment.Visible = false
objXL.Range("A1").Comment.Text "Durchlauf" & strComment & Chr(10) & ""
wscript.sleep 6000
End Sub
----
aufruf mit cscript xltest.vbs. Ich würde das Anlegen des Kommentars gerne in der
Sub lassen.
Vielen Dank
Kai