The eXpLorer

Beitrag folgt...

Dokument-Eigenschaft "Sprache" bzw. "Locale Info"

Sprache bei Verweis auf xls-Datei

Wieso Englisch/USA?

Arbeitsstation-Merkmale ganz ohne API-Funktionen auslesen

Möchten Sie wissen, wie der Pfad zum Windowsverzeichnis lautet? Oder interessiert Sie der Name der Arbeitsstation? Haben Sie Bedarf an den in der PATH-Systemvariable spezifizierten Ordnern? Brauchen Sie den Pfad zum Benutzerprofil-Verzeichnis? Wie lautet der Temp-Pfad?

Beim Lesen dieser Fragen kommt mir nur eines in den Sinn: An diese Informationen gelangt man nur mittels entsprechenden API-Funktionen! Das Temp-Verzeichnis beispielsweise würde ich mit der API-Funktion GetTempPath (kernel32.exe) ermitteln.

Doch warum so kompliziert? Es geht tatsächlich viel einfacher! Mit der Environ-Funktion von VBA kann man auf alle Umgebungs-Einstellungen der Arbeitsstation zugreifen.

Systemeigenschaften - Umgebung

Umgebungsmerkmale der Arbeitsstation

Die in der obigen Abbildung gezeigte Liste erhalten Sie mit diesem kleinen Makro:

Sub GetEnvironment()
Dim intCounter As Integer
Range("A3").Font.Bold = True
Range("A3").Value = "No."
Range("B3").Font.Bold = True
Range("B3").Value = "Setting"
For intCounter = 1 To 255
    If Environ(intCounter) = "" Then
      Exit For
    Else
      Range("A" & intCounter + 3).Value = intCounter
      Range("B" & intCounter + 3).Value = Environ(intCounter)
    End If
Next intCounter
Columns("A:B").AutoFit
Range("A1").Font.Size = 12
Range("A1").Font.Bold = True
Range("A1").Value = "Environment-Settings"
End Sub

Laufzeitfehler innerhalb der Fehlerbehandlungsroutine abfangen

Beitrag folgt...

Manipulieren von laufenden Windows Tasks

Sub ShowTasks()
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Tasks(4).WindowState = wdWindowStateMinimize
WordApp.Quit
Set WordApp = Nothing
End Sub

?WordApp.Tasks.Count
33

?WordApp.Tasks(8).Name
Speichern von Word-Steuerung.xls (Strg+S)

tasks-minimize-word_1.gif (6088 Byte)

tasks-minimize-word_2.gif (1539 Byte)

tasks-minimize-word_3.gif (6391 Byte)

Blinkender Cursor im Codefenster-Rahmen

The eXpLorer