ArbeitsblΣtter im Windows-Explorer anzeigen
Aus einer Anzahl mehrseitiger Excel-Tabellen brauchen Sie ein bestimmtes Arbeitsblatt. Statt jede Datei einzeln zu ÷ffnen, wollen Sie schon im Windows-Explorer die Namen der in den Excel-Dateien enthaltenen ArbeitsblΣtter sehen
Bei Windows 98 k÷nnen Sie die gewⁿnschten Informationen im Windows-Explorer abfragen. Klicken Sie dazu mit der rechten Maustaste auf eine XLS-Datei und rufen Sie den Kontextbefehl ╗Eigenschaften½ auf. Der folgende Dialog prΣsentiert auf mehreren Registerkarten die Eigenschaften der Datei. Die Liste aller enthaltenen ArbeitsblΣtter finden Sie auf der Registerkarte ╗Dokumentinhalt½.
Der Explorer von Windows Me zeigt leider als Eigenschaften einer XLS-Datei nur einen Bruchteil der Informationen, die Windows 98 anbietet. Nach dem ╗Dokumentinhalt½, also einer Auflistung der enthaltenen ArbeitsblΣtter, suchen Sie vergebens. Diesen Mangel k÷nnen Sie mit folgendem Skript fⁿr den Windows Scripting Host (WSH) beheben. Kopieren Sie das Skript von der Heft-CD (CHIP-Code lookex) in einen Texteditor (zum Beispiel Windows-Notepad) und speichern Sie es unter dem Namen LOOKEXCEL.VBS.
Dim objExcel Dim objFileSystem Dim objFile Dim objWorksheet
Set listArgs = WScript.Arguments
If listArgs.Count = 0 Then MsgBox äKeine Datei ⁿbergeben!ô Else Set objFileSystem = CreateObject(äScripting.FileSystemObjectô) Set objFile = objFileSystem.GetFilet (listArgs(0)) Set objExcel = Wscript.CreateObject(äExcel.Applicationô) objExcel.Workbooks.Open(objFile.path) For Each objWorksheet In objExcel.Workbooks(objFile.name).Worksheets szMessage = szMessage & ä ä & objWorksheet.Name & Chr(10) Next objExcel.Quit Set objExcel = nothing MsgBox szMessage,,ôEnthaltene ArbeitsblΣtterô End If
Als Parameter braucht dieses Skript den Namen der zu untersuchenden XLS-Datei, wobei das Objekt ╗listArgs½ vom Typ ╗WScript.Arguments½ die ⁿbergebenen Parameter enthΣlt. Die Anzahl der ⁿbergebenen Parameter wird ⁿber ╗Count½ ermittelt.
Wurde dem Skript ein Parameter ⁿbergeben, so erzeugt es das Objekt ╗objExcel½ vom Typ ╗Excel.Application½. Dieses Objekt reprΣsentiert Excel selbst, und mit ╗objExcel.Workbooks.Open½ ÷ffnet sich die ⁿbergebene Datei. Nun werden in einer ╗For Each½-Schleife alle ArbeitsblΣtter in der Liste ╗Worksheets½ der ge÷ffneten Datei durchlaufen. Die Namen der ArbeitsblΣtter werden in einer Ausgabe zusammengefasst und mit Hilfe des Befehls ╗MsgBox½ an den Anwender weitergegeben.
Verknⁿpfen Sie zuletzt das Skript LOOKEXCEL.VBS im Windows-Explorer mit dem Dateityp XLS (siehe Tipp "Dem Kontextmenⁿ neue Befehle hinzufⁿgen"). Jetzt k÷nnen Sie es im Windows-Explorer aus dem Kontextmenⁿ einer XLS-Datei aufrufen und die Namen der ArbeitsblΣtter ablesen.