Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält

.Beschreibung
Diese Codebeispiele finden heraus, ob sich in einer Arbeitsmappe externe Verknüpfungen befinden. Dazu wird die LinkSources-Methode aufgerufen und überprüft, ob ein Datenfeld zurückgegeben wurde. Wenn nichts zurückgegeben wurde (Überprüfung mittels IsEmpty), gibt es keine externen Verknüpfungen.

» Codebeispiel #1: Dieses Beispiel prüft die Existenz von externen Verknüpfungen des Typs 'Excel-Verknüpfung'.

» Codebeispiel #2: Dieses Beispiel prüft die Existenz von externen Verknüpfungen des Typs 'OLE-/DDE-Verknüpfung'.

.VBA-Code #1
Public Sub CheckIfExternalLinksExist1()
  Dim avarLinks As Variant
  avarLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
  If Not IsEmpty(avarLinks) Then
    MsgBox "Es sind Excel-Verknüpfungen vorhanden."
  Else
    MsgBox "Es sind keine Excel-Verknüpfungen vorhanden."
  End If
End Sub

.VBA-Code #2
Public Sub CheckIfExternalLinksExist2()
  Dim avarLinks As Variant
  avarLinks = ActiveWorkbook.LinkSources(xlOLELinks)
  If Not IsEmpty(avarLinks) Then
    MsgBox "Es sind OLE-/DDE-Verknüpfungen vorhanden."
  Else
    MsgBox "Es sind keine OLE-/DDE-Verknüpfungen vorhanden."
  End If
End Sub

Verwandte Codebeispiele

Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe auflisten Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten Externe Verknüpfungen in einer Arbeitsmappe ändern Externe Verknüpfungen in einer Arbeitsmappe löschen Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen

Externe Verknüpfungen in einer Arbeitsmappe auflisten

.Beschreibung
Hier wird gezeigt, wie man eine Liste der externen Verknüpfungen in einer Arbeitsmappe erstellen kann. Zugriff auf die externen Verknüpfungen erhält man via LinkSources-Methode, die ein eindimensionales Datenfeld mit den benötigten Informationen liefert. Es gibt zwei verschiedene Typen von externen Verknüpfungen: Excel-Verknüpfungen (siehe Codebeispiel #1) und OLE-/DDE-Verknüpfungen (siehe Codebeispiel #2).

» Codebeispiel #1: Dieses Codebeispiel listet alle externen Verknüpfungen des Typs 'Excel-Verknüpfung' auf einem neuen Arbeitsblatt der aktiven Arbeitsmappe auf.

» Codebeispiel #2: Hier werden die externen Verknüpfungen des Typs 'OLE-/DDE-Verknüpfung' auf einem neuen Arbeitsblatt der aktiven Arbeitsmappe aufgelistet. Bei OLE-/DDE-Verknüpfungen besteht die Verknüpfungsinformation immer aus den drei Bestandteilen "Anwendung", "Datei/Thema" und "Element". Im VBA-Code wird eine Verknüpfungsinformation entsprechend aufgeteilt und in separaten Spalten ausgegeben.

.VBA-Code #1
Public Sub ListExternalLinks1()
  Dim avarLinks As Variant
  Dim intCounter As Integer
  Dim wksSheet As Worksheet
  avarLinks = ActiveWorkbook.LinkSources(xlExcelLinks)
  If Not IsEmpty(avarLinks) Then
    Set wksSheet = ActiveWorkbook.Worksheets.Add
    With wksSheet
      .Range("A1").Value = "Externe Verknüpfungen (Excel-Verknüpfungen)"
      .Range("A1").Font.Bold = True
      .Range("A3:B3").Value = Array("Nr.", "Quelle")
      .Range("A3:B3").Font.Bold = True
      For intCounter = 1 To UBound(avarLinks)
        .Cells(intCounter + 3, 1).Value = intCounter
        .Cells(intCounter + 3, 2).Value = avarLinks(intCounter)
      Next intCounter
    End With
  Else
    MsgBox "Es sind keine Excel-Verknüpfungen vorhanden.", vbInformation
  End If
  wksSheet.Columns("B").AutoFit
  Set wksSheet = Nothing
End Sub

.VBA-Code #2
Public Sub ListExternalLinks2()
  Dim avarLinks As Variant
  Dim intCounter As Integer
  Dim wksSheet As Worksheet
  Dim intPos1 As Integer
  Dim intPos2 As Integer
  avarLinks = ActiveWorkbook.LinkSources(xlOLELinks)
  If Not IsEmpty(avarLinks) Then
    Set wksSheet = ActiveWorkbook.Worksheets.Add
    With wksSheet
      .Range("A1").Value = "Externe Verknüpfungen (OLE-/DDE-Verknüpfungen)"
      .Range("A1").Font.Bold = True
      .Range("A3:E3").Value = Array("Nr.", "Quelle", "Anwendung", "Datei/Thema", "Element")
      .Range("A3:E3").Font.Bold = True
      For intCounter = 1 To UBound(avarLinks)
        intPos1 = InStr(avarLinks(intCounter), "|")
        intPos2 = InStr(intPos1 + 1, avarLinks(intCounter), "!")
        .Cells(intCounter + 3, 1).Value = intCounter
        .Cells(intCounter + 3, 2).Value = avarLinks(intCounter)
        .Cells(intCounter + 3, 3).Value = Left$(avarLinks(intCounter), intPos1 - 1)   'Anwendung
        .Cells(intCounter + 3, 4).Value = Mid$(avarLinks(intCounter), intPos1 + 1, intPos2 - intPos1 - 1)   'Datei/Thema
        .Cells(intCounter + 3, 5).Value = Mid$(avarLinks(intCounter), intPos2 + 1)   'Element
      Next intCounter
    End With
  Else
    MsgBox "Es sind keine OLE-/DDE-Verknüpfungen vorhanden.", vbInformation
  End If
  wksSheet.Columns("B:E").AutoFit
  Set wksSheet = Nothing
End Sub

Verwandte Codebeispiele

Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe ändern Externe Verknüpfungen in einer Arbeitsmappe löschen Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen

Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten

.Beschreibung
Dieses Codebeispiel erstellt eine Liste der Anwendungen, die in den externen Verknüpfungen des Typs 'DDE-Verknüpfung' enthalten sind.

Bei OLE-/DDE-Verknüpfungen besteht die Verknüpfungsinformation immer aus den drei Bestandteilen "Anwendung", "Datei/Thema" und "Element".

.VBA-Code
Public Sub ListProgramsOfDDELinks()

End Sub

Verwandte Codebeispiele

Externe Verknüpfungen in einer Arbeitsmappe auflisten Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe ändern Externe Verknüpfungen in einer Arbeitsmappe löschen Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen

Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen

.Beschreibung
Dieses Beispiel öffnet die Datei einer externen Verknüpfung.

.VBA-Code
Public Sub OpenExternalLinks()

End Sub

Verwandte Codebeispiele

Externe Verknüpfungen in einer Arbeitsmappe auflisten Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe ändern Externe Verknüpfungen in einer Arbeitsmappe löschen Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind Externe Verknüpfungen in einer Arbeitsmappe aktualisieren

Externe Verknüpfungen in einer Arbeitsmappe ändern

.Beschreibung
Eine externe Verknüpfung kann insofern geändert werden, indem man sie auf eine andere Quelle umleitet. Auf der Benutzeroberfläche von Microsoft Excel steht für diesen Zweck die Schaltfläche "Quelle ändern" zur Verfügung. In einem VBA-Programm wird dazu die Methode ChangeLink des Workbook-Objektes benutzt.

.VBA-Code
Public Sub ModifyExternalLinks()

End Sub

Verwandte Codebeispiele

Externe Verknüpfungen in einer Arbeitsmappe auflisten Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe löschen Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen Externe Verknüpfungen in einer Arbeitsmappe aktualisieren

Externe Verknüpfungen in einer Arbeitsmappe aktualisieren

.Beschreibung
Eine externe Verknüpfung kann jederzeit aktualisiert werden, indem man die UpdateLinks-Methode von Workbook aufruft.

.VBA-Code
Public Sub RefreshExternalLinks()

End Sub

Verwandte Codebeispiele

Externe Verknüpfungen in einer Arbeitsmappe auflisten Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe ändern Externe Verknüpfungen in einer Arbeitsmappe löschen Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen

Externe Verknüpfungen in einer Arbeitsmappe löschen

.Beschreibung
Dieses Codebeispiel löscht die externen Verknüpfungen aus einer Arbeitsmappe. Da eine externe Verknüpfung nicht direkt gelöscht werden kann, kann man sie nur löschen, indem man die Verknüpfungsquelle auf die aktuelle Arbeitsmappe (d.h. die Verknüpfung enthaltende Mappe) setzt. Wenn die Quelle der Verknüpfungen die gleiche und nicht mehr eine andere Mappe ist, gibt es automatisch keine externen Verknüpfungen mehr.

.VBA-Code
Public Sub RemoveExternalLinks()

End Sub

Verwandte Codebeispiele

Externe Verknüpfungen in einer Arbeitsmappe auflisten Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe ändern Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen Externe Verknüpfungen in einer Arbeitsmappe aktualisieren

Prüfen, ob die externen Verknüpfungen in einer Arbeitsmappe gültig sind

.Beschreibung
Dieses Beispiel dient zum Überprüfen der externen Verknüpfungen in einer Arbeitsmappe. Kontrollieirt wird die Quelle beziehungsweise derer Existenz, wobei je nach Verknüpfungstyp unterschiedlich vorgegangen wird.

.VBA-Code
Public Sub CheckExternalLinks()

End Sub

Verwandte Codebeispiele

Externe Verknüpfungen in einer Arbeitsmappe auflisten Anwendungsnamen von DDE-Verknüpfungen in einer Arbeitsmappe auflisten Anzahl externe Verknüpfungen in einer Arbeitsmappe abfragen Externe Verknüpfungen in einer Arbeitsmappe ändern Externe Verknüpfungen in einer Arbeitsmappe löschen Prüfen, ob eine Arbeitsmappe externe Verknüpfungen enthält Dateien von externen Verknüpfungen in einer Arbeitsmappe öffnen Externe Verknüpfungen in einer Arbeitsmappe aktualisieren

Prüfen, ob die Rückfrage "Verknüpfungen aktualisieren?" beim Öffnen einer Arbeitsmappe erscheint

.Beschreibung
Hier wird abgefragt, ob beim Öffnen einer Arbeitsmappe die Rückfrage "Diese Datei enthält automatische Verknüpfungen zu Informationen in einer anderen Arbeitsmappe. Soll diese Arbeitsmappe mit Änderungen, die in der anderen Arbeitsmappe eingegeben wurden, aktualisiert werden?" eingeblendet wird.

.VBA-Code
Public Sub CheckExternalLinks()

End Sub

Benutzerformular drucken

.Beschreibung
Ein Benutzerformular lässt sich komfortabel auf dem Drucker ausgeben, indem man die PrintForm-Methode des Benutzerformulares aufruft.

.VBA-Code #1
Public Sub PrintUserForm()
  UserForm1.PrintForm
End Sub

.VBA-Code #2
Private Sub UserForm_Click()
  Me.PrintForm
End Sub

	Verwandte Codebeispiele
	Benutzerformular in Datei drucken (Ausdruck in Datei umleiten) Screenshot eines Benutzerformulares in die Zwischenablage kopieren Screenshot eines Fensters in die Zwischenablage kopieren Benutzerformular im VBA-Editor anzeigen

Benutzerformular im VBA-Editor anzeigen

.Beschreibung
Standardmässig wird ein Benutzerformular im Vordergrund des Anwendungsfensters der Host-Anwendung angezeigt. In ganz bestimmten - allerdings seltenen - Situationen kann es notwendig sein, wenn ein Benutzerformular stattdessen im VBA-Editor angezeigt wird. Eine solche Situation kann beispielsweise die Anzeige eines Benutzerformular eines Add-Ins sein, welches Funktionen enthält, die sich nicht auf die Host-Anwendung sondern auf den VBA-Editor beziehen (z.B. die Erstellung eines Projektreports, das Löschen/Ersetzen von bestimmten Codezeilen, Exportieren/Importieren von Codemodulen oder dergleichen).

Fügen Sie den nachstehenden Code in ein Benutzerformular ein.

.VBA-Code
'Deklarationsbereich des Benutzerformulares
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, _
   ByVal hWndNewParent As Long) As Long

'Codemodul des Benutzerformulares
Private Sub UserForm_Initialize()
  Dim lngHWnd As Long
  Dim lngRC As Long
  If Val(Application.Version) > 8 Then
    lngHWnd = FindWindow("ThunderDFrame", vbNullString)
  Else
    lngHWnd = FindWindow("ThunderXFrame", vbNullString)
  End If
  lngRC = SetParent(lngHWnd, Application.VBE.MainWindow.hWnd)
  Application.VBE.MainWindow.SetFocus
End Sub

	Verwandte Codebeispiele
	Benutzerformular in Datei drucken (Ausdruck in Datei umleiten) Benutzerformular drucken

Benutzerformular eines anderen laufenden VBA-Programmes schliessen

.Beschreibung
Dieses Codebeispiel schliesst das Benutzerformular eines anderen VBA-Programmes.

.VBA-Code
Public Sub CloseUserForm()

End Sub

Benutzerformular eines VBA-Projektes als Datei exportieren

.Beschreibung
Ein Benutzerformular kann jederzeit als Datei exportiert werden.

.VBA-Code
Public Sub ExportUserForm()

End Sub

	Verwandte Codebeispiele
	Datei eines Benutzerformulares (frm-Datei) importieren

Datei eines Benutzerformulares (frm-Datei) importieren

.Beschreibung
...

.VBA-Code
Public Sub ImportUserForm()

End Sub

	Verwandte Codebeispiele
	Benutzerformular eines VBA-Projektes als Datei exportieren

Benutzerformular in Datei drucken (Ausdruck in Datei umleiten)

.Beschreibung
...

.VBA-Code
Public Sub PrintUserFormToFile()

End Sub

Fenstertitelleiste eines Benutzerformulares ausblenden

.Beschreibung
...

» Das Codebeispiel #1 wird die Titelleiste des gerade geöffneten Benutzerformular-Fensters ausgeblendet. Der Programmcode muss sich im Codemodul des Benutzerformulares befinden, weil im Code die Referenz "Me.Caption" verwendet wird.

» Das Codebeispiel #2 dient zum Einblenden der ausgeblendeten Titelleiste des geöffneten Benutzerformular-Fensters.

.VBA-Code #1
'Deklarationsbereich des Benutzerformulares
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

'Codemodul des Benutzerformulares
Public Sub HideUserFormWindowCaption()
  Dim lngHWnd As Long
  Dim lngStyle As Long
  Const GWL_STYLE = -16
  Const WS_CAPTION = &HC00000
  lngHWnd = FindWindow(IIf(Val(Application.Version) > 8, "ThunderDFrame", "ThunderXFrame"), Me.Caption)
  lngStyle = GetWindowLong(lngHWnd, GWL_STYLE)
  lngStyle = lngStyle And Not WS_CAPTION
  Call SetWindowLong(lngHWnd, GWL_STYLE, lngStyle)
  Call DrawMenuBar(lngHWnd)
End Sub

.VBA-Code #2
'Deklarationsbereich des Benutzerformulares
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
   (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
   (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long

'Codemodul des Benutzerformulares
Public Sub ShowUserFormWindowCaption()
  Dim lngHWnd As Long
  Dim lngStyle As Long
  Const GWL_STYLE = -16
  Const WS_CAPTION = &HC00000
  lngHWnd = FindWindow(IIf(Val(Application.Version) > 8, "ThunderDFrame", "ThunderXFrame"), Me.Caption)
  lngStyle = GetWindowLong(lngHWnd, GWL_STYLE)
  lngStyle = lngStyle Or WS_CAPTION
  Call SetWindowLong(lngHWnd, GWL_STYLE, lngStyle)
  Call DrawMenuBar(lngHWnd)
End Sub

	Verwandte Codebeispiele
	Rundes Benutzerformularfenster anzeigen

Rundes Benutzerformularfenster anzeigen

.Beschreibung
Ein Benutzerformular muss nicht immer rechteckig sein. Mit diesem Programmcode können Sie jedes beliebige Fenster rund bzw. oval machen.

.VBA-Code
'Deklarationsbereich des Benutzerformulares
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal _
   lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal _
   Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal _
   hRgn As Long, ByVal bRedraw As Boolean) As Long

'Codemodul des Benutzerformulares
Public Sub UserForm_Initialize()
  Dim lngRet As Long
  Dim hWnd As Long
  hWnd = FindWindow(vbNullString, Me.Caption)
  lngRet = SetWindowRgn(hWnd, CreateEllipticRgn(0, 0, Me.Width + 60, Me.Height + 60), True)
End Sub

	Verwandte Codebeispiele
	Fenstertitelleiste eines Benutzerformulares ausblenden

Diagramm auf einem Benutzerformular anzeigen

.Beschreibung
Dieses Codebeispiel zeigt ein Diagramm als Bild auf einem Benutzerformular an.

.VBA-Code
Public Sub ShowChartOnUserForm()

End Sub

	Verwandte Codebeispiele
	Diagramm als Bilddatei speichern

Diagramm als Bilddatei speichern

.Beschreibung
Das Speichern eines Excel-Diagrammes als Grafik ist alles andere als schwierig. Man braucht lediglich die Export-Methode des Chart-Objektes aufzurufen.

bmp, gif, jpg, jpeg, png

Dieses Beispiel speichert das erste Diagramm in der aktiven Arbeitsmappe als Bilddatei "Diagramm.gif".

.VBA-Code
Public Sub SaveChartAsPictureFile()
  ActiveWorkbook.Charts(1).Export "C:\Daten\Diagramm.gif"
End Sub

	Verwandte Codebeispiele
	Jedes Diagramm einer Arbeitsmappe als separate Bilddatei speichern Diagramm auf einem Benutzerformular anzeigen

Jedes Diagramm einer Arbeitsmappe als separate Bilddatei speichern

.Beschreibung
...

.VBA-Code
Public Sub SaveChartsAsPictureFiles()

End Sub

	Verwandte Codebeispiele
	Diagramm als Bilddatei speichern

Pfad der Werkzeugsammlungdatei des VBA-Editors von Microsoft Excel ermitteln

.Beschreibung
Sämtliche Merkmale und sonstigen Informationen des VBA-Editor-Fensters "Werkzeugsammlung" sind in einer Datei namens "Excel.box" gespeichert. Zu den Merkmalen gehören unter anderen
- die Höhe und Breite des Fensters (die Position des Fensters jedoch nicht),
- die Titel und Steuerelement-Info der einzelnen Werkzeugsammlung-Seiten,
- die Namen der enthaltenen Steuerelemente und
- die Bilder von bearbeiteten Steuerelement-Bildern.

Windows besitzt ein so genanntes Standardverzeichnis für Benutzer. Der Pfad dieses Verzeichnisses kann anhand von zwei Umgebungsvariablen ermittelt werden. Im Beispiel erfolgt dies anhand der Environ-Funktion von VBA. Das Standardverzeichnis wird im vorliegenden Fall benötigt, weil die Werkzeugsammlungdatei gewöhnlich in diesem Verzeichnis zu finden ist. Dieses Codebeispiel überprüft, ob die erwähnte Datei in diesem Verzeichnis vorhanden ist.

.VBA-Code
Public Sub GetExcelToolboxFilePath()
  Dim strToolboxFile As String
  strToolboxFile = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Excel.box"
  If Dir(strToolboxFile) <> "" Then
    MsgBox "Werkzeugsammlungdatei des VBA-Editors von Excel: " & strToolboxFile, vbInformation
  Else
    MsgBox "Die Werkzeugsammlungdatei des VBA-Editors von Excel befindet " & _
        "sich nicht im erwarteten Verzeichnis!", vbExclamation
  End If
End Sub

	Verwandte Codebeispiele
	Pfad der Werkzeugsammlungdatei des VBA-Editors eines Microsoft Office-Programmes ermitteln

Pfad der Werkzeugsammlungdatei des VBA-Editors eines Microsoft Office-Programmes ermitteln

.Beschreibung
Dieses Codebeispiel ermittelt den Pfad der Werkzeugsammlungsdatei des VBA-Editors eines beliebigen Microsoft Office-Programmes. Genauer gesagt wird überprüft, ob sich eine spezifische Werkzeugsammlungdatei im erwarteten Verzeichnis befindet.

Die Konstante OfficeAppFileName des unten vorgestellten Programmcodes enthält den Namen der Programmdatei einer Microsoft Office-Anwendung. Es können folgende Dateinamen verwendet werden:
- Excel.exe
- Winword.exe
- Powerpnt.exe
- Outlook.exe
- Vb5.exe

.VBA-Code
Public Sub GetToolboxFilePath()
  Const OfficeAppFileName As String = "Winword.exe"
  Dim strToolboxFile As String
  strToolboxFile = Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\" & _
      Left$(OfficeAppFileName, Len(OfficeAppFileName) - 4) & ".box"
  If Dir(strToolboxFile) <> "" Then
    MsgBox "Werkzeugsammlungdatei des VBA-Editors von '" & OfficeAppFileName & _
        "': " & strToolboxFile, vbInformation
  Else
    MsgBox "Die Werkzeugsammlungdatei des VBA-Editors von '" & OfficeAppFileName & _
        "' befindet sich nicht im erwarteten Verzeichnis!", vbExclamation
  End If
End Sub

	Verwandte Codebeispiele
	Pfad der Werkzeugsammlungdatei des VBA-Editors von Microsoft Excel ermitteln

Datei mit Registrierungsdatenbank-Informationen (reg-Datei) mit der Windows Registry zusammenführen

.Beschreibung
...

Shell "RegEdit.exe -s C:\Daten\Registry-Datei.reg"

Es kann vbMinimizedNoFocus verwendet werden, damit das Programm als Symbol verkleinert ausgeführt wird.

» Codebeispiel #1: Dieses Codebeispiel importiert die Informationen aus der Datei "Registrierungsdatei.reg" in die Windows Registry.

» Codebeispiel #2: Mit dem Schalter "-s" (es kann auch "/s" verwendet werden) wird die Bestätigungsmeldung "Die Informationen von <Datei> wurden in der Registrierung eingetragen." unterdrückt.

Fehlermeldung "<Datei> kann nicht importiert werden: Fehler beim Öffnen der Datei. Mögliche Ursache ist ein Datenträger- oder Dateisystemfehler."

.VBA-Code #1
Public Sub ImportIntoRegistry1()
  Shell "RegEdit.exe C:\Daten\Registierungsdatei.reg", vbMinimizedNoFocus
End Sub

.VBA-Code #2
Public Sub ImportIntoRegistry2()
  Shell "RegEdit.exe -s C:\Daten\Registierungsdatei.reg", vbMinimizedNoFocus
End Sub

Mehrere Arbeitsblätter verschiedener Arbeitsmappen in einer Arbeitsmappe zusammenführen

.Beschreibung
Das Zusammenführen von Arbeitsblättern aus verschiedenen Arbeitsmappen in eine neue oder bestehende Arbeitsmappe ist verhältnismässig einfach.

.VBA-Code
Public Sub ConsolidateWorksheets()

End Sub

Office-Dokument öffnen-Dialog anzeigen

.Beschreibung
Wenn man die Programmdatei "osa.exe" mit dem Schalter "/f" ausführt, erscheint das Dialogfenster zum Öffnen eines Microsoft Office-Dokumentes.

.VBA-Code #1
Public Sub ShowOpenOfficeDocumentDialog1()
  Shell """C:\Programme\Microsoft Office\Office\osa.exe"" /f", vbNormalFocus
End Sub

.VBA-Code #2
Public Sub ShowOpenOfficeDocumentDialog2()
  CreateObject("WScript.Shell").Run "osa.exe /f"
End Sub

Neues Office-Dokument-Dialog anzeigen

.Beschreibung
Wenn man die Programmdatei "osa.exe" mit dem Schalter "/n" ausführt, erscheint das Dialogfenster zum Anlegen eines neuen Microsoft Office-Dokumentes.

.VBA-Code #1
Public Sub ShowNewOfficeDocumentDialog1()
  Shell """C:\Programme\Microsoft Office\Office\osa.exe"" /n", vbNormalFocus
End Sub

.VBA-Code #2
Public Sub ShowNewOfficeDocumentDialog2()
  CreateObject("WScript.Shell").Run "osa.exe /n"
End Sub

Ordner der Diagrammgalerie-Dateien von Microsoft Excel abfragen/ändern

.Beschreibung
Mit diesem VBA-Code erhalten Sie den Ordnerpfad der Diagrammgalerie-Dateien von Microsoft Excel beziehungsweise ändern ihn. Im Gegensatz zu vielen anderen Excel-Verzeichnissen existiert für das Verzeichnis der Diagrammgalerie-Dateien keine spezifische Eigenschaft im Objektmodell. Der Verzeichnispfad ist jedoch in der Windows Registry abgelegt und kann somit sehr einfach herausgefunden werden.

Der Registry-Zweig lautet "HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel" und der benötigte Eintrag "GalleryPath".

TODO: Excel-Version berücksichtigen; Backslash am Pfadende berücksichtigen

.VBA-Code #1
Public Sub GetGalleryFolder()
  MsgBox "Verzeichnis für Diagrammgalerie-Dateien: " & _
      CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel\GalleryPath")
End Sub

.VBA-Code #2
Public Sub SetGalleryFolder()

End Sub

Prüfen, ob die Diagrammgalerie-Dateien von Microsoft Excel im eingestellten Ordner existieren

.Beschreibung
...

Xl8galry.xls und Xlusrgal.xls

HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel\GalleryPath

Eintrag enthält den Verzeichnispfad, z.B. "C:\Programme\Microsoft Office\Office\". Achtung: Am Ende des Pfadnamens kann ein Backslash stehen.

.VBA-Code
Public Sub CheckGalleryFilesInFolder()

End Sub

Ordner für Abfragen von Microsoft Excel abfragen/ändern

.Beschreibung
Mit diesem VBA-Code erhalten Sie den Abfragen-Ordnerpfad von Microsoft Excel beziehungsweise ändern ihn. Im Gegensatz zu vielen anderen Excel-Verzeichnissen existiert für das Abfragen-Verzeichnis keine Eigenschaft im Objektmodell. Der Verzeichnispfad ist jedoch in der Windows Registry abgelegt und kann somit sehr einfach herausgefunden werden.

Der Registry-Zweig lautet "HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel" und der benötigte Eintrag "SavedQueriesFolder".

TODO: Excel-Version berücksichtigen

.VBA-Code #1
Public Sub GetQueriesFolder()
  MsgBox "Verzeichnis für Abfragen: " & _
      CreateObject("WScript.Shell").RegRead("HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Excel\Microsoft Excel\SavedQueriesFolder")
End Sub

.VBA-Code #2
Public Sub SetQueriesFolder()

End Sub

	Weitere Informationen
	VBA-Spezialthema: Windows Script Host (WSH)

Pfad der Microsoft Excel-Programmdatei (Excel.exe) der aktuellen Excel-Sitzung ermitteln

.Beschreibung
Den Programmpfad der aktuellen Excel-Sitzung erhalten Sie durch Abfragen der Path-Eigenschaft des Application-Objektes. Es handelt sich um das Verzeichnis, welches unter anderem die Programmdatei Excel.exe enthält.

Gibt z.B. "C:\Programme\Microsoft Office\Office" zurück.

.VBA-Code
Public Sub GetExcelProgramPath()
  MsgBox "Programmverzeichnis von Microsoft Excel: " & Application.Path
End Sub

	Weitere Informationen
	Excel-Objektmodell: Eigenschaften des Application-Objektes

Anzahl verfügbare Add-Ins abfragen

.Beschreibung
Alle Add-Ins, die im Add-In-Manager von Microsoft Excel aufgelistet sind, gelten als verfügbare Add-Ins. Dieses Codebeispiel findet die Anzahl verfügbare Add-Ins heraus.

.VBA-Code
Public Sub GetNumberOfAvailableAddIns()
  MsgBox "Anzahl verfügbare Add-Ins: " & Application.AddIns.Count
End Sub

	Verwandte Codebeispiele
	Add-Ins auflisten Add-In-Manager anzeigen Themengebiet-Codebeispiele: Add-In

Verweis einem VBA-Projekt hinzufügen

.Beschreibung
Beschreibung folgt.

Hinzufügen entweder mittels Dateiname oder GUID der Objektbibliothek.

Laufzeitfehler 32813 "Name steht in Konflikt mit existierendem Modul, Projekt oder existierender Objektbibliothek"

Laufzeitfehler -2147319779 (8002801d) "Objektbibliothek nicht registriert"

.VBA-Code #1
Public Sub AddReference1()
  ActiveWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\ScrRun.dll"
End Sub

.VBA-Code #2
Public Sub AddReference2()
  Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\ScrRun.dll"
End Sub

.VBA-Code #3
Public Sub AddReference3()
  ActiveWorkbook.VBProject.References.AddFromGuid "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
End Sub

.VBA-Code #4
Public Sub AddReference4()
  Application.VBE.ActiveVBProject.References.AddFromGuid "{420B2830-E718-11CF-893D-00A0C9054228}", 1, 0
End Sub

Verweis eines VBA-Projektes entfernen

.Beschreibung
Beschreibung folgt.

Hinzufügen entweder mittels Dateiname oder GUID der Objektbibliothek.

Laufzeitfehler 32813 "Name steht in Konflikt mit existierendem Modul, Projekt oder existierender Objektbibliothek"

Laufzeitfehler -2147319779 (8002801d) "Objektbibliothek nicht registriert"

.VBA-Code #1
Public Sub AddReference1()
  ActiveWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\ScrRun.dll"
End Sub

.VBA-Code #2
Public Sub AddReference2()
  Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\ScrRun.dll"
End Sub

Nicht benötigte Verweise eines VBA-Projektes entfernen

.Beschreibung
Beschreibung folgt.

.VBA-Code #1
Public Sub RemoveUnusedReferences1()
  ActiveWorkbook.VBProject.References.AddFromFile "C:\Windows\System32\ScrRun.dll"
End Sub

.VBA-Code #2
Public Sub RemoveUnusedReferences2()
  Application.VBE.ActiveVBProject.References.AddFromFile "C:\Windows\System32\ScrRun.dll"
End Sub

Prüfen, ob die Verweise eines VBA-Projektes gültig sind

.Beschreibung
Beschreibung folgt.

.VBA-Code
Public Sub CheckReferences()

End Sub

Namen der VBA-Projekte auflisten

.Beschreibung
Dieser Programmcode erstellt eine Liste mit den Namen aller VBA-Projekte der aktuellen Excel-Sitzung.

.VBA-Code
Public Sub ListProjectNames()

End Sub

Namen der VBA-Projekte der geöffneten Arbeitsmappen auflisten

.Beschreibung
Dieses Codebeispiel erstellt eine Liste mit den Namen derjenigen VBA-Projekte der aktuellen Excel-Sitzung, welche zu einer Arbeitsmappe gehören.

.VBA-Code
Public Sub ListProjectNamesOfWorkbooks()

End Sub

Prüfen, ob ein bestimmter Name bereits von einem anderen VBA-Projekt verwendet wird

.Beschreibung
Beschreibung folgt.

.VBA-Code
Public Sub CheckProjectName()

End Sub

Merkmale eines VBA-Projektes auflisten

.Beschreibung
Beschreibung folgt.

.VBA-Code
Public Sub ListProjectSettings()

End Sub

Microsoft Windows-Diagnose starten

.Beschreibung
Beschreibung folgt.

WinMSD.exe ist die Programmdatei der Microsoft Windows-Diagnose (bzw. Windows NT-Diagnose).

.VBA-Code
Public Sub RunWindowsDiagnostics()
  Shell "WinMSD.exe", vbNormalFocus
End Sub

Windows Task-Manager ausführen

.Beschreibung
Beschreibung folgt.

TaskMgr.exe liegt im Systemverzeichnis von Windows.

.VBA-Code
Sub RunTaskManager()
  Shell "TaskMgr.exe", vbNormalFocus
End Sub

Microsoft Systeminfo starten

.Beschreibung
Beschreibung folgt.

Es muss der vollständige Dateipfad angegeben werden. Zusätzliche Anführungszeichen sind nicht nötig, auch wenn der Pfad Leerzeichen enthält.

.VBA-Code
Sub RunMSInfo()
  Shell "C:\Programme\Gemeinsame Dateien\Microsoft Shared\MSInfo\MSInfo32.exe", vbNormalFocus
End Sub

Outlook Express starten

.Beschreibung
Beschreibung folgt.

Kein vollständiger Pfad notwendig, weil Msimn.exe registriert ist.

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\msimn.exe

.VBA-Code
Sub RunOutlookExpress()
  Shell "msimn.exe", vbNormalFocus
End Sub

Adressbuch starten

.Beschreibung
Beschreibung folgt.

Kein vollständiger Pfad notwendig, weil Wab.exe registriert ist.

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\wab.exe

.VBA-Code
Sub RunAddressBook()
  Shell "wab.exe", vbNormalFocus
End Sub

Microsoft Management Console starten

.Beschreibung
Beschreibung folgt.

MMC.exe liegt im Systemverzeichnis von Windows.

.VBA-Code
Sub RunMSManagementConsole()
  Shell "mmc.exe", vbNormalFocus
End Sub

Default-Sprache von Windows ermitteln

.Beschreibung
Beschreibung folgt.

Gibt z.B. 1031 zurück.

.VBA-Code
'Deklarationsbereich
Declare Function GetSystemDefaultLangID Lib "kernel32" () As Integer

'Codemodul
Public Sub GetSystemDefaultLanguage()
  MsgBox "Default-Sprachcode von Windows: " & GetDefaultLangID()
End Sub

Arbeitsmappe über eine Datei-Verknüpfung (lnk-Datei) öffnen

.Beschreibung
...

.VBA-Code
Public Sub OpenWorkbookWithLinkFile()

End Sub

	Verwandte Codebeispiele
	En

Programm über eine Datei-Verknüpfung (lnk-Datei) starten

.Beschreibung
...

Mit Shell funktionierts nicht, weil nur ausführbare Dateien ausgeführt werden können.

Mit Run funktionierts dagegen.

Die Verknüpfungsdatei kann mit oder ohne Dateinamenerweiterung ".lnk" angegeben werden.

.VBA-Code #1
Public Sub RunProgramWithLinkFile1()
  CreateObject("WScript.Shell").Run """C:\Programme\Microsoft Office\Microsoft Excel.lnk""", vbNormalFocus
End Sub

.VBA-Code #2
Public Sub RunProgramWithLinkFile2()
  CreateObject("WScript.Shell").Run """C:\Programme\Microsoft Office\Microsoft Excel""", vbNormalFocus
End Sub

	Verwandte Codebeispiele
	En

Arbeitsmappe unter einem anderen Dateinamen speichern und in die Liste der zuletzt verwendeten Dateien eintragen

.Beschreibung
...

.VBA-Code
Public Sub SaveWorkbookAddToMRUList()
  ActiveWorkbook.SaveAs Filename:="C:\Daten\EineMappe.xls", AddToMru:=True
End Sub

	Verwandte Codebeispiele
	En

Arbeitsmappe unter einem anderen Dateinamen speichern mit Schreibschutzkennwort zuweisen

.Beschreibung
...

Gross-/Kleinschreibung berücksichtigen.

.VBA-Code
Public Sub SaveWorkbookWriteResPassword()
  ActiveWorkbook.SaveAs Filename:="C:\Daten\EineMappe.xls", WriteResPassword:="Sommer"
End Sub

	Verwandte Codebeispiele
	Arbeitsmappe unter einem anderen Dateinamen speichern mit Schreibschutzempfehlung aktivieren

Arbeitsmappe unter einem anderen Dateinamen speichern mit Schreibschutzempfehlung aktivieren

.Beschreibung
...

.VBA-Code
Public Sub SaveWorkbookReadOnlyRecommended()
  ActiveWorkbook.SaveAs Filename:="C:\Daten\EineMappe.xls", ReadOnlyRecommended:=True
End Sub

	Verwandte Codebeispiele
	Arbeitsmappe unter einem anderen Dateinamen speichern mit Schreibschutzkennwort zuweisen

Arbeitsmappe als Vorlage speichern

.Beschreibung
...

.VBA-Code
Public Sub SaveWorkbookAsTemplate()

End Sub

	Verwandte Codebeispiele
	An

Arbeitsmappe als Vorlage ohne externe Datenbezüge speichern

.Beschreibung
...

.VBA-Code
Public Sub SaveAsTemplateWithoutExternalData()

End Sub

	Verwandte Codebeispiele
	An

Verbindung zu einer Arbeitsmappendatei abbrechen

.Beschreibung
Bekanntlich ist die xls-Datei einer Arbeitsmappe so lange gesperrt, wie die Arbeitsmappe in Microsoft Excel geöffnet ist. Während dieser Zeit kann man nur noch mit Read Shared auf die Datei zugreifen. Das exklusive Lesen sowie das Schreiben der Datei, und somit jegliches Verändern der Datei, ist nicht möglich. Man kann beispielsweise im Windows Explorer die Datei nicht umbenennen oder ihre Dokument-Eigenschaften ansehen. Der Grund für die Dateisperrung ist eine Verbindung zwischen Microsoft Excel und der xls-Datei. Ausnahmen sind allerdings freigegebene Arbeitsmappen und Arbeitsmappen, die schreibgeschützt geöffnet wurden. Deren xls-Dateien werden generell nicht gesperrt.

Gewöhnlich bleibt eine solche Verbindung während der Bearbeitung der Arbeitsmappe bestehen. Sie wird nur abgebrochen, wenn beispielsweise der Server, auf dem die Datei liegt, abstürzt oder die Netzwerk-Verbindung unterbrochen ist. Nebenbei erwähnt: Wenn sich die Datei auf einer Diskette befindet und Sie nehmen die Diskette vorübergehend aus dem Laufwerk, so bleibt die Verbindung trotzdem aufrecht.

Es gibt einen Trick, wie man die Verbindung zwischen Microsoft Excel und der Arbeitsmappendatei gewollt abbrechen kann. Man erreicht dies, indem man der Mappe ein Schreibschutzkennwort vergibt, jedoch ein Dateiformat benutzt, welches keine Schreibschutzkennwörter unterstützt. Das Format "Windows-Text" ist ein solches Dateiformat (im Speichern unter-Dialog mit "Text (Tabs getrennt) (*.txt)" bezeichnet). Damit das Dateiformat geändert und ein Schreibschutzkennwort zugewiesen werden kann, muss die Arbeitsmappe mit der SaveAs-Methode gespeichert werden. Wohlgemerkt wird die Mappe dabei nicht gespeichert, weil ein Fehler auftritt, da wie erwähnt das gewählte Dateiformat nicht mit Angabe eines Schreibschutzkennwortes verwendet werden kann.

.VBA-Code
Public Sub AbortConnectionToWorkbookFile()
  Application.DisplayAlerts = False
  On Error Resume Next
  ActiveWorkbook.SaveAs Filename:="C:\Daten\EineMappe.txt", FileFormat:=xlTextWindows, WriteResPassword:="Sommer"
  Application.DisplayAlerts = True
End Sub

	Verwandte Codebeispiele
	Arbeitsmappe unter einem anderen Dateinamen speichern mit Schreibschutzkennwort zuweisen

Fenster einer anderen Anwendung ausblenden

.Beschreibung
Dieses Codebeispiel zeigt, wie man das Anwendungsfenster einer anderen laufenden Anwendung ausblenden kann.

.VBA-Code
Public Sub HideWindow()

End Sub

	Verwandte Codebeispiele
	Fenster einer anderen Anwendung sperren Grösse eines anderen Anwendungsfensters ändern Fenster einer anderen Anwendung minimieren/maximieren/wiederherstellen

Fenster einer anderen Anwendung sperren

.Beschreibung
Mit diesem Beispiel wird das Fenster einer anderen Anwendung gesperrt.

.VBA-Code
Public Sub LockWindow()

End Sub

	Verwandte Codebeispiele
	An

Grösse eines anderen Anwendungsfensters ändern

.Beschreibung
Dieses Codebeispiel dient zum Ändern der Fenstergrösse eines anderen Anwendungsfensters.

.VBA-Code
Public Sub ResizeWindow()

End Sub

	Verwandte Codebeispiele
	An

Fenster einer anderen Anwendung minimieren/maximieren/wiederherstellen

.Beschreibung
Mit diesem Programmcode können Sie das Anwendungsfenster einer anderen Anwendung minimieren, maximieren oder wiederherstellen.

.VBA-Code
Public Sub ChangeWindowState()

End Sub

	Verwandte Codebeispiele
	An

Fenster einer anderen Anwendung immer im Vordergrund anzeigen

.Beschreibung
Mit diesem Code wird das Fenster einer anderen laufenden Anwendung immer im Vordergrund angezeigt.

.VBA-Code
Public Sub BringWindowToFront()

End Sub

	Verwandte Codebeispiele
	An

Anwendungsfenster der aktuellen Excel-Sitzung immer im Vordergrund anzeigen

.Beschreibung
Diese VBA-Codebeispiel setzt das Anwendungsfenster der aktuellen Excel-Sitzung in den Vordergrund. Wenn der Code in Microsoft Excel ausgeführt wird, wird das Anwendungsfenster dieser Excel-Sitzung im Vordergrund angezeigt.

.VBA-Code
'Deklarationsbereich
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_TOPMOST = -1
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
   ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long

'Codemodul
Sub ShowWindowOnTop()
  SetWindowPos FindWindow("xlmain", Application.Caption), HWND_TOPMOST, 0, 0, 0, 0, SWP_FLAGS
End Sub

	Verwandte Codebeispiele
	An

Verschieben eines anderen Anwendungsfensters sperren

.Beschreibung
...

.VBA-Code
Public Sub LockMoveWindow()

End Sub

	Verwandte Codebeispiele
	An

Ändern der Grösse eines anderen Anwendungsfensters sperren

.Beschreibung
...

.VBA-Code
Public Sub LockResizeWindow()

End Sub

	Verwandte Codebeispiele
	An

Minimieren/Maximieren/Wiederherstellen eines anderen Anwendungsfensters sperren

.Beschreibung
...

.VBA-Code
Public Sub LockChangeWindowState()

End Sub

	Verwandte Codebeispiele
	An

Verschieben des Anwendungsfensters der aktuellen Excel-Sitzung sperren

.Beschreibung
Mit diesem Programmcode wird verhindert, dass das Anwendungsfenster der aktuellen Excel-Sitzung durch den Benutzer verschoben werden kann.

.VBA-Code
Public Sub LockMoveWindow()

End Sub

	Verwandte Codebeispiele
	An

Ändern der Grösse des Anwendungsfensters der aktuellen Excel-Sitzung sperren

.Beschreibung
Mit diesem Programmcode wird verhindert, dass das Anwendungsfenster der aktuellen Excel-Sitzung durch den Benutzer vergrössert oder verkleinert werden kann.

.VBA-Code
Public Sub LockResizeWindow()

End Sub

	Verwandte Codebeispiele
	An

Minimieren/Maximieren/Wiederherstellen des Anwendungsfensters der aktuellen Excel-Sitzung sperren

.Beschreibung
Mit diesem Programmcode wird verhindert, dass das Anwendungsfenster der aktuellen Excel-Sitzung durch den Benutzer zum Symbol verkleinert, zum Vollbild vergrössert oder Wiederhergestellt werden kann.

.VBA-Code
Public Sub LockChangeWindowState()

End Sub

	Verwandte Codebeispiele
	An

Fenster einer anderen Anwendung in den Vordergrund bringen

.Beschreibung
...

Im Beispiel wird das Fenster des Windows Taschenrechners ("Rechner") verwendet.

.VBA-Code
'Deklarationsbereich
Const SWP_NOMOVE = 2
Const SWP_NOSIZE = 1
Const SWP_FLAGS = SWP_NOMOVE Or SWP_NOSIZE
Const HWND_NOTOPMOST = -2
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _
   ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long

'Codemodul
Sub BringWindowToFront()
  SetWindowPos FindWindow(vbNullString, "Rechner"), HWND_NOTOPMOST, 0, 0, 0, 0, SWP_FLAGS
End Sub

	Verwandte Codebeispiele
	An

Systemmenü des Anwendungsfensters der aktuellen Excel-Sitzung entfernen/wiederherstellen

.Beschreibung
...

.VBA-Code #1
Public Sub RemoveSystemMenu()

End Sub

.VBA-Code #2
Public Sub RestoreSystemMenu()

End Sub

	Verwandte Codebeispiele
	An

Systemmenü eines anderen Anwendungsfensters entfernen/wiederherstellen

.Beschreibung
...

.VBA-Code #1
Public Sub RemoveSystemMenu()

End Sub

.VBA-Code #2
Public Sub RestoreSystemMenu()

End Sub

	Verwandte Codebeispiele
	An

Datei öffnen-Dialog anzeigen und einen Dateityp-Filter voreinstellen

.Beschreibung
...

.VBA-Code
Public Sub ShowOpenDialogAndSetFilter()

End Sub

	Verwandte Codebeispiele
	An

Datei öffnen-Dialog anzeigen und die den Suchkriterien entsprechenden Dateien auflisten

.Beschreibung
...

.VBA-Code
Public Sub ShowOpenDialogWithFoundFiles()

End Sub

	Verwandte Codebeispiele
	An

Datei öffnen-Dialog anzeigen und die den Suchkriterien entsprechenden Dateien mehrerer Ordner auflisten

.Beschreibung
...

.VBA-Code
Public Sub ShowOpenDialogWithFoundFiles()

End Sub

	Verwandte Codebeispiele
	An

Arbeitsmappe öffnen ohne Durchführung einer Neuberechnung der Arbeitsmappe

.Beschreibung
...

.VBA-Code
Public Sub OpenWorkbookWithoutCalculation()

End Sub

	Verwandte Codebeispiele
	Arbeitsmappe öffnen mit Durchführung einer Neuberechnung der Arbeitsmappe

Arbeitsmappe öffnen mit Durchführung einer Neuberechnung der Arbeitsmappe

.Beschreibung
...

.VBA-Code
Public Sub OpenWorkbookWithCalculation()

End Sub

	Verwandte Codebeispiele
	Arbeitsmappe öffnen ohne Durchführung einer Neuberechnung der Arbeitsmappe

Arbeitsmappe öffnen und ein bestimmtes Arbeitsblatt anzeigen

.Beschreibung
...

Wenn man eine Arbeitsmappe öffnet, wird immer das Arbeitsblatt angezeigt, welches beim letzten Speichern der Mappe gerade aktiv war.

.VBA-Code
Public Sub OpenWorkbookAndActivateSheet()

End Sub

	Verwandte Codebeispiele
	An

Arbeitsmappe aktualisieren und speichern (Mappe öffnen, speichern und schliessen)

.Beschreibung
Die automatisierte Aktualisierung einer Arbeitsmappe mittels VBA-Programm ist sehr einfach, da man die Mappe lediglich öffnen, speichern und dann schliessen muss. Gewöhnlich benötigt man dazu ein paar wenige Codezeilen. Dieses Beispiel soll lediglich demonstrieren, wie man den gesamten Vorgang auch mit nur einer einzigen Programmzeile erledigen kann.

.VBA-Code
Public Sub RefreshWorkbook()
  Workbooks.Open("C:\Daten\EineMappe.xls").Close True
End Sub

	Verwandte Codebeispiele
	Arbeitsmappe aktualisieren und unter einem anderen Dateinamen speichern (Mappe öffnen, speichern und schliessen)

Arbeitsmappe aktualisieren und unter einem anderen Dateinamen speichern (Mappe öffnen, speichern und schliessen)

.Beschreibung
Dieses Codebeispiel demonstriert, wie man eine Arbeitsmappe aktualisieren und unter einem anderen Dateinamen speichern kann. Dazu wird die Mappe geöffnet, unter einem anderen Namen gespeichert und dann geschlossen. Das Interessante an diesem Beispiel ist, dass sich dieser Vorgang mit einer einzigen Programmzeile durchführen lässt.

.VBA-Code
Public Sub RefreshWorkbook()
  Workbooks.Open("C:\Daten\EineMappe.xls").Close True, "C:\Daten\AktualisierteMappe.xls"
End Sub

	Verwandte Codebeispiele
	Arbeitsmappe aktualisieren und speichern (Mappe öffnen, speichern und schliessen)

Symbolleiste anbinden-Dialog anzeigen

.Beschreibung
In Microsoft Excel gibt es die Möglichkeit, benutzerdefinierte Symbolleisten an eine Arbeitsmappe anzubinden. Dadurch werden die Symbolleisten direkt in der Arbeitsmappendatei (xls-Datei) gespeichert und beim Öffnen der Mappe automatisch angelegt. Zum Bestimmen, welche Symbolleisten an eine Arbeitsmappe angebunden werden sollen, wird der "Symbolleiste anbinden"-Dialog verwendet. Dieser wird mit der "Anbinden"-Schaltfläche auf dem "Anpassen"-Dialog geöffnet. In einem VBA-Programm wird die Dialogs-Auflistung mit der Konstante xlDialogAttachToolbars verwendet.

Bei der Show-Methode können in diesem Fall keine Argumente angegeben werden.

.VBA-Code
Public Sub ShowAttachToolbarsDialog()
  Application.Dialogs(xlDialogAttachToolbars).Show
End Sub

	Verwandte Codebeispiele
	An

File URL eines Dateipfades ermitteln

.Beschreibung
Die Internet-Adresse einer Datei wird im Allgemeinen in Form einer so genannten File URL geschrieben. Eine File URL besitzt immer das Präfix "file:///", gefolgt vom Dateipfad, wobei als Pfadtrennzeichen das Slash-Zeichen (/) anstelle des Backslash-Zeichens (\) benutzt wird. Wenn man die File URL-Schreibweise eines Dateipfades erhalten möchte, muss somit das oben genannte Präfix vorangestellt und jeder Backslash durch einen Slash ersetzt werden. Das folgende Codebeispiel zeigt, wie dies anhand der Substitute-Funktion von Microsoft Excel durchgeführt werden kann.

.VBA-Code #1
Public Sub GetFileURLOfPath1()
  Const strFilePath As String = "C:\Daten\EineDatei.htm"
  Dim strFileURL As String
  strFileURL = "file:///" & Application.Substitute(strFilePath, "\", "/")
  MsgBox "Dateipfad: " & vbTab & strFilePath & vbCrLf & "File URL: " & vbTab & strFileURL, vbInformation
End Sub

.VBA-Code #2
Public Sub GetFileURLOfPath2()

End Sub

	Verwandte Codebeispiele
	Dateipfad einer File URL ermitteln

Dateipfad einer File URL ermitteln

.Beschreibung
Wenn man einen Dateipfad in der File URL-Schreibweise besitzt und die 'normale' Pfad-Schreibweise erhalten möchte, muss man das bei File URLs benutzte Präfix "file:///" entfernen und die als Pfadtrennzeichen verwendeten Slash-Zeichen (/) in Backslash-Zeichen (\) ändern.

» Das Codebeispiel #1 zeigt die oben erwähnte Technik: Präfix entfernen und Pfadtrennzeichen ersetzen.

» Codebeispiel #2 zeigt die oben erwähnte Technik (sprich Präfix entfernen und Pfadtrennzeichen ersetzen).

» Das Codebeispiel #2 verwendet eine komplett anderen Ansatz. Weil Microsoft Excel den Dateipfad eines mittels File URL erstellten Hyperlinks sofort automatisch in einen gewöhnlichen Pfad umwandelt, kann man einen temporären Hyperlink in eine Zelle einfügen, dann den (konvertierten) Dateipfad abfragen und anschliessend den Hyperlink löschen. Der Vorteil dieser Lösung ist, dass man - weil Excel die Konvertierung erledigt - einen garantiert korrekten Dateipfad erhält. Allerdings gibt es mehrere Nachteile:
- Es muss eine Arbeitsmappe aktiv sein.
- Es muss ein Tabellenblatt dieser Mappe aktiv sein.
- Das aktive Tabellenblatt darf nicht geschützt sein.
- Das aktive Tabellenblatt muss mindestens eine benutzte Zelle enthalten.

.VBA-Code #1
Public Sub GetPathOfFileURL1()
  Const strFileURL As String = "file:///C:/Daten/EineDatei.htm"
  Dim strFilePath As String
  strFilePath = Application.Substitute(Mid$(strFileURL, 9), "/", "\")
  MsgBox "File URL: " & vbTab & strFileURL & vbCrLf & "Dateipfad: " & vbTab & strFilePath, vbInformation
End Sub

.VBA-Code #2
Public Function GetPathOfURL(ByVal strFileURL As String) As String
  GetPathOfURL = Application.Substitute(Mid$(strFileURL, 9), "/", "\")
End Sub

Sub TestCall()
  Const strFileURL As String = "file:///C:/Daten/EineDatei.htm"
  MsgBox "File URL: " & vbTab & strFileURL & vbCrLf & "Dateipfad: " & vbTab & GetPathOfURL(strFileURL), vbInformation
End Sub

.VBA-Code #3
Public Sub GetPathOfFileURL2()
  Const strFileURL As String = "file:///C:/Daten/EineDatei.htm"
  Dim strFilePath As String
  Cells.Find("").Select
  With ActiveCell
    .Hyperlinks.Add ActiveCell, strFileURL
    strFilePath = .Hyperlinks(1).Address
    .Hyperlinks(1).Delete
    .Clear
  End With
  MsgBox "File URL: " & vbTab & strFileURL & vbCrLf & "Dateipfad: " & vbTab & strFilePath, vbInformation
End Sub

.Hinweis
Es ist den wenigsten Programmierern bekannt, dass Microsoft Excel-VBA gewöhnlich ohne Probleme auch URL-Adressen akzeptiert. So ist es zum Beispiel möglich, bei der Open-Methode von Workbooks eine File URL zu verwenden:

  Workbooks.Open "file:///C:/Daten/EineMappe.xls"

Die vorgängige explizite Umwandlung der File URL in einen gewöhnlichen Dateipfad ist somit hier nicht notwendig. Beachten Sie aber, dass VBA (gemeint ist die Programmiersprache VBA als solche) keine File URLs verarbeitet. Beispielsweise führt die Dir-Funktion mit einer File URL zum Laufzeitfehler 76 "Pfad nicht gefunden", und die Open-Anweisung (zum Beispiel "Open "file:///C:/Daten/Textdatei.txt" For Input As #1") erzeugt den Laufzeitfehler 52 "Dateiname oder -nummer falsch".

	Verwandte Codebeispiele
	File URL eines Dateipfades ermitteln

UNC-Dateipfad eines Dateipfades ermitteln

.Beschreibung
Dieser Programmcode gibt die UNC-Schreibweise eines Dateipfades aus.

.VBA-Code
Public Sub GetUNCPathOfPath()

End Sub

	Verwandte Codebeispiele
	Dateipfad eines UNC-Dateipfades ermitteln

Dateipfad eines UNC-Dateipfades ermitteln

.Beschreibung
Dieser Programmcode gibt die gewohnte Schreibweise eines UNC-Dateipfades aus.

.VBA-Code
Public Sub GetPathOfUNCPath()

End Sub

	Verwandte Codebeispiele
	UNC-Dateipfad eines Dateipfades ermitteln

Original Gross-/Kleinschreibweise eines Dateipfades ermitteln

.Beschreibung
Windows unterstützt bekanntlich Gross-/Kleinschrift in Dateinamen und -Pfaden. Wenn Sie einen Pfad nicht in der vorliegenden sondern in seiner tatsächlichen Schreibweise, also so wie er auf der Festplatte lautet, anzeigen möchten, muss die effektive Schreibweise ermittelt werden. Dazu verwendet man am besten die Möglichkeiten der File System Object-Objektbibliothek. Die Path-Eigenschaft des File-Objektes enthält den Pfad in seiner tatsächlichen Gross-/Kleinschreibweise.

Wenn beispielsweise der Pfad auf der Festplatte "C:\Daten\EineMappe.xls" lautet, wird der mit "c:\DATEN\eineMappe.XLS" angegebene Dateipfad als "C:\Daten\EineMappe.xls" ausgegeben.

.VBA-Code
Public Sub GetOriginalFilePath()
  MsgBox CreateObject("Scripting.FileSystemObject").GetFile("c:\DATEN\eineMappe.XLS").Path
End Sub

	Verwandte Codebeispiele
	Un

Anzahl Revisionen einer freigegebenen Arbeitsmappe abfragen

.Beschreibung
...

.VBA-Code
Public Sub GetNumberOfRevisions()

End Sub

	Verwandte Codebeispiele
	Fn

Anzahl Tage der Änderungsprotokollierung einer freigegebenen Arbeitsmappe abfragen/ändern

.Beschreibung
...

.VBA-Code #1
Public Sub GetNumberOfChangeHistoryDays()

End Sub

.VBA-Code #2
Public Sub SetNumberOfChangeHistoryDays()

End Sub

	Verwandte Codebeispiele
	Fn

Absoluter Dateipfad eines Hyperlinks in einen relativen Pfad ändern

.Beschreibung
...

.VBA-Code
Public Sub ConvertHyperlinkToRelativPath()

End Sub

	Verwandte Codebeispiele
	Relativer Dateipfad eines Hyperlinks in einen absoluten Pfad ändern

Relativer Dateipfad eines Hyperlinks in einen absoluten Pfad ändern

.Beschreibung
...

.VBA-Code
Public Sub ConvertHyperlinkToAbsolutePath()

End Sub

	Verwandte Codebeispiele
	Absoluter Dateipfad eines Hyperlinks in einen relativen Pfad ändern

Verfügbare Excel-Vorlagen (xlt-Dateien) auflisten

.Beschreibung
...

.VBA-Code
Public Sub ListAvailableTemplates()

End Sub

	Verwandte Codebeispiele
	Fn

Verfügbare Office-Assistenten (act-Dateien) auflisten

.Beschreibung
...

Dieses Codebeispiel erstellt eine Liste der Office-Assistenten auf einem neuen Arbeitsblatt der aktiven Arbeitsmappe.

Die Codeausführung dauert zielmlich lange, weil das Einlesen eines Assistent-Dateiinhalts viel Zeit benötigt.

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\Common\Assistant"

.VBA-Code
Public Sub ListAvailableAssistants()
  Dim objFSO As Object
  Dim objFolder As Object
  Dim objFile As Object
  Dim wksSheet As Worksheet
  Dim strFileContents As String
  Dim strAssistantFolder As String
  Dim strAssistantName As String
  Dim intCounter As Integer
  strAssistantFolder = Application.Path & "\Actors"
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objFolder = objFSO.GetFolder(strAssistantFolder)
  If objFolder.Files.Count = 0 Then
    MsgBox "Der Ordner enthält keine Dateien!", vbExclamation
    Set objFolder = Nothing
    Set objFSO = Nothing
    Exit Sub
  End If
  Set wksSheet = ActiveWorkbook.Worksheets.Add
  With wksSheet
    .Range("A1").Value = "Office-Assistenten"
    .Range("A1").Font.Bold = True
    .Range("A3:E3").Value = Array("Datei", "Pfad", "Name", "Grösse", "Datum")
    .Range("A3:E3").Font.Bold = True
  End With
  intCounter = 4
  For Each objFile In objFolder.Files
    strFileContents = ""
    strAssistantName = ""
    If LCase$(objFSO.GetExtensionName(objFile.Path)) = "act" Then
      Open objFile.Path For Binary Access Read As #1
        strFileContents = Input(LOF(1), #1)
      Close #1
      strAssistantName = Mid$(strFileContents, 19, InStr(19, strFileContents, vbNullChar) - 19)
      With wksSheet
        .Cells(intCounter, 1).Value = objFile.Name
        .Cells(intCounter, 2).Value = objFile.Path
        .Cells(intCounter, 3).Value = strAssistantName
        .Cells(intCounter, 4).Value = Format$(objFile.Size, "#,##0")
        .Cells(intCounter, 5).Value = Format$(objFile.DateLastModified, "General Date")
      End With
      intCounter = intCounter + 1
    End If
  Next
  wksSheet.Columns("A:E").AutoFit
  Set wksSheet = Nothing
  Set objFolder = Nothing
  Set objFSO = Nothing
End Sub

	Verwandte Codebeispiele
	Dateiname des aktuellen Office-Assistenten ermitteln Dateiname des aktuellen Office-Assistenten ohne ein Microsoft Office-Programm ermitteln

Prüfen, ob die Datei eines Office-Assistenten (act-Datei) existiert

.Beschreibung
Dieses Codebeispiel erstellt eine Liste der Office-Assistenten auf einem neuen Arbeitsblatt der aktiven Arbeitsmappe.

Die Codeausführung dauert zielmlich lange, weil das Einlesen eines Assistent-Dateiinhalts viel Zeit benötigt.

"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\Common\Assistant"

.VBA-Code
Public Sub CheckIfAssistantExists()

End Sub

	Verwandte Codebeispiele
	Verfügbare Office-Assistenten (act-Dateien) auflisten Dateiname des aktuellen Office-Assistenten ermitteln Dateiname des aktuellen Office-Assistenten ohne ein Microsoft Office-Programm ermitteln

Dateiname des aktuellen Office-Assistenten ermitteln

.Beschreibung
...

.VBA-Code
Public Sub GetAssistantFileName()

End Sub

	Verwandte Codebeispiele
	Name des aktuellen Office-Assistenten ermitteln Dateiname des aktuellen Office-Assistenten ohne ein Microsoft Office-Programm ermitteln

Dateiname des aktuellen Office-Assistenten ohne ein Microsoft Office-Programm ermitteln

.Beschreibung
...

.VBA-Code
Public Sub GetAssistantFileName()

End Sub

	Verwandte Codebeispiele
	Dateiname des aktuellen Office-Assistenten ermitteln

Name des aktuellen Office-Assistenten ermitteln

.Beschreibung
Die Name-Eigenschaft des Assistant-Objektes enthält den Namen des aktuellen Assistenten.

.VBA-Code
Public Sub GetAssistantName()
  MsgBox "Name des aktuellen Office-Assistenten: " & Application.Assistant.Name, vbInformation
End Sub

	Verwandte Codebeispiele
	Fn

Name des Office-Assistenten direkt aus einer Assistent-Datei (act-Datei) auslesen

.Beschreibung
Die Assistenten von Microsoft Office sind in Form von Dateien mit der Dateinamenerweiterung "act" in einem Unterordner des Microsoft Office-Programmordners gespeichert. Sie besitzen Dateinamen wie "clippit.act" oder "logo.act". Der tatsächliche Name eines Assistenten ist in 'seiner' Datei abgelegt (z.B. "Karl Klammer"; Datei "clippit.act"). Das hier vorgestellte Codebeispiel zeigt, wie man den Namen eines Assistenten direkt aus der act-Datei holt.

Der Name des Assistenten beginnt in der act-Datei immer bei Byte Nr. 19 und endet beim nächstfolgenden Byte, welches den Wert 0 besitzt (vbNullChar). Anstelle von vbNullChar kann man im Programmcode auch Chr(0) schreiben.

» Codebeispiel #1: Der Name wird aus der act-Datei ausgelesen, wobei der Verzeichnispfad des Assistenten-Ordners aus Application.Path und "\Actors" zusammengesetzt wird. Es wird der gesamte Dateiinhalt in eine Variable eingelesen (LOF(1)).

» Codebeispiel #2: Hier wird der Pfad des Assistenten-Ordners aus der Windows Registry geholt. Zudem werden nur die ersten 274 Bytes des Dateiinhaltes eingelesen, da der Assistent-Name bei Byte 19 beginnt und höchstens 255 Zeichen lang ist (19 + 255 = 274).

In den Beispielen wird der Assistent-Name der Datei "clippit.act" ermittelt (abgelegt als Konstante strAssistantFileName).

.VBA-Code #1
Public Sub GetAssistantName1()
  Const strAssistantFileName As String = "clippit.act"
  Dim strAssistantFolder As String
  Dim strAssistantName As String
  Dim strFileContents As String
  strAssistantFolder = Application.Path & "\Actors"
  Open strAssistantFolder & "\" & strAssistantFileName For Binary Access Read As #1
    strFileContents = Input(LOF(1), #1)
  Close #1
  strAssistantName = Mid$(strFileContents, 19, InStr(19, strFileContents, vbNullChar) - 19)
  MsgBox "Name des Office-Assistenten aus Datei '" & strAssistantFileName & "': " & strAssistantName, vbInformation
End Sub

.VBA-Code #2
Public Sub GetAssistantName2()
  Const strAssistantFileName As String = "Clippit.act"
  Dim strAssistantFolder As String
  Dim strAssistantName As String
  Dim strFileContents As String
  strAssistantFolder = CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\Common\Assistant\AsstPath")
  strAssistantFolder = IIf(Right$(strAssistantFolder, 1) <> "\", strAssistantFolder & "\", strAssistantFolder)
  Open strAssistantFolder & strAssistantFileName For Binary Access Read As #1
    strFileContents = Input(19 + 255, #1)
  Close #1
  strAssistantName = Mid$(strFileContents, 19, InStr(19, strFileContents, vbNullChar) - 19)
  MsgBox "Name des Office-Assistenten aus Datei '" & strAssistantFileName & "': " & strAssistantName, vbInformation
End Sub

	Verwandte Codebeispiele
	Name des aktuellen Office-Assistenten ermitteln

Datei des Office-Assistenten (act-Datei) festlegen

.Beschreibung
...

.VBA-Code
Public Sub SetOfficeAssistant()

End Sub

	Verwandte Codebeispiele
	Datei des Office-Assistenten (act-Datei) ohne ein Microsoft Office-Programm festlegen

Datei des Office-Assistenten (act-Datei) ohne ein Microsoft Office-Programm festlegen

.Beschreibung
...

HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\Assistant\AsstFile

enthält z.B. "CLIPPIT.ACT"

.VBA-Code
Public Sub SetOfficeAssistant()

End Sub

	Verwandte Codebeispiele
	Datei des Office-Assistenten (act-Datei) festlegen

Dateipfad der aktuellen AutoKorrektur-Datei (acl-Datei) abfragen/ändern

.Beschreibung
...

HKEY_CURRENT_USER\Software\Microsoft\Office\8.0\Common\AutoCorrect\Path

enthält z.B. "D:\WinNT\Administrator.acl"

.VBA-Code #1
Public Sub GetAutoCorrect()

End Sub

.VBA-Code #2
Public Sub SetAutoCorrect()

End Sub

	Verwandte Codebeispiele
	Datei des Office-Assistenten (act-Datei) festlegen

Profil-Verzeichnis des aktuellen Windows-Benutzers abfragen

.Beschreibung
Mit der Environ-Funktion von VBA kann man das Profil-Verzeichnis des angemeldeten Windows-Benutzers herausfinden. Die dazu benötigte Umgebungsvariable heisst "USERPROFILE".

Wenn beispielsweise der Administrator in Windows NT 4 angemeldet ist, gibt das folgende Codebeispiel den Pfad "C:\WinNT\Profiles\Administrator" aus.

.VBA-Code
Public Sub GetUserProfilDirectory()
  MsgBox "Profil-Verzeichnis: " & Environ("USERPROFILE")
End Sub

	Verwandte Codebeispiele
	Fn

Profil-Verzeichnisse der Windows-Benutzer abfragen

.Beschreibung
...

.VBA-Code
Public Sub GetUserProfilDirectories()

End Sub

	Verwandte Codebeispiele
	Fn

Typ der CPU abfragen

.Beschreibung
...

.VBA-Code
Public Sub GetCPUType()

End Sub

	Verwandte Codebeispiele
	Fn

Merkmale der CPU auflisten

.Beschreibung
...

.VBA-Code
Public Sub ListCPUProperties()

End Sub

	Verwandte Codebeispiele
	Fn

Anzahl CPUs des Computers abfragen

.Beschreibung
...

.VBA-Code
Public Sub GetNumberOfCPUs()

End Sub

	Verwandte Codebeispiele
	Fn

Anzahl Farben der Farbpalette von Windows ermitteln

.Beschreibung
...

.VBA-Code
'Deklarationsbereich
Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Declare Function GetDeviceCaps Lib "GDI32" (ByVal hDC As Long, ByVal nIndex As Long) As Long

'Codemodul
Public Sub GetNumberOfColors()
  Const PLANES = 14
  Const BITSPIXEL = 12
  Dim hDC As Long
  hDC = GetDC(0&)
  MsgBox "Anzahl Farben: " & 2 ^ (GetDeviceCaps(hDC, PLANES) * GetDeviceCaps(hDC, BITSPIXEL))
End Sub

CLSID einer Dokument-Datei abfragen

.Beschreibung
...

CLSID = ClassID

.VBA-Code
Public Sub GetDocumentCLSID()

End Sub

	Verwandte Codebeispiele
	Fn

CLSID eines Dateityps/ProgID abfragen

.Beschreibung
...

CLSID = ClassID

HKEY_CLASSES_ROOT\Excel.Sheet.8\CLSID

Eintrag "(Standard)" enthält die CLSID, z.B. {00020820-0000-0000-C000-000000000046}

.VBA-Code
Public Sub GetFileTypeCLSID()

End Sub

	Verwandte Codebeispiele
	Fn

Nummer des Standardsymbols (DefaultIcon) eines Dateityps/ProgID abfragen

.Beschreibung
...

CLSID = ClassID

HKEY_CLASSES_ROOT\Excel.Sheet.8\DefaultIcon

Eintrag "(Standard)" enthält den Pfad der ausführbaren Datei und die Nummer des Symbols, z.B. D:\Programme\Microsoft Office\Office\excel.exe,1

.VBA-Code
Public Sub GetFileTypeDefaultIconNumber()

End Sub

	Verwandte Codebeispiele
	Fn

Dateisymbol einer Datei anzeigen

.Beschreibung
...

(siehe FileInfo.vbp)

.VBA-Code
Public Sub ShowFileIcon()

End Sub

	Verwandte Codebeispiele
	Dateisymbol einer Dokument-Datei anzeigen

Dateisymbol einer Datei als Bilddatei speichern

.Beschreibung
...

(siehe FileInfo.vbp)

Erstellt eine Grafikdatei, Windows Bitmap, True Color (24 bit), 32 x 32 Pixel, 3'072 Bytes.

Zur Zeit nur mit Visual Basic möglich.

Picture-Control, Height=480, Width=480, BorderStyle=0-None, BackColor=&H00FFFFFF&

.VBA-Code
Public Sub SaveFileIconToFile()

End Sub

	Verwandte Codebeispiele
	Dateisymbol einer Dokument-Datei anzeigen

Dateisymbol einer Dokument-Datei anzeigen

.Beschreibung
...

(siehe DSOFile-Codebeispiele.xls)

.VBA-Code
Public Sub ShowDocumentFileIcon()

End Sub

	Verwandte Codebeispiele
	Dateisymbol einer Datei anzeigen Dateisymbol einer Dokument-Datei als Bilddatei speichern

Dateisymbol einer Dokument-Datei als Bilddatei speichern

.Beschreibung
...

(siehe ODPR - PropDemovbp)

Erstellt eine Grafikdatei, Windows Bitmap, True Color (24 bit), 32 x 32 Pixel, 3'072 Bytes.

Zur Zeit nur mit Visual Basic möglich.

Picture-Control, Height=480, Width=480, BorderStyle=0-None, BackColor=&H00FFFFFF&

.VBA-Code
Public Sub SaveDocumentFileIconToFile()

End Sub

	Verwandte Codebeispiele
	Dateisymbol einer Dokument-Datei anzeigen

Dateisymbol(e) einer ausführbaren Datei anzeigen

.Beschreibung
...

(Für Standardsymbol siehe FileInfo.vbp, für alle Symbole noch keine Lösung gefunden)

.VBA-Code
Public Sub ShowProgramFileIcon()

End Sub

	Verwandte Codebeispiele
	Fn

Standardsymbol (DefaultIcon) eines Dateityps/ProgID anzeigen

.Beschreibung
...

.VBA-Code
Public Sub ShowFileTypeDefaultIcon()

End Sub

	Verwandte Codebeispiele
	Fn

Vorschaugrafik einer Dokument-Datei anzeigen

.Beschreibung
Dokument-Dateien von Microsoft Office und von ein paar weiteren Anwendungen anderer Hersteller können eine so genannte Vorschaugrafik enthalten.

Im Dialogfenster "Eigenschaften" (Menü Datei/Eigenschaften) kann man durch Aktivieren der Option "Vorschaugrafik speichern" (Registerseite "Datei-Info") eine so genannte Vorschaugrafik in der Exceldatei ablegen.

Die beiden Eigenschaften Thumbnail (enthält die Vorschaugrafik) und Icon (enthält das Dateisymbol) geben ein Objekt vom Typ StdPicture zurück. StdPicture ist ein Objekt von VBA/VB, das zum Erstellen einer Grafik benötigt wird.

Die Vorschaugrafik wird auf einem Benutzerformular angezeigt. Fügen Sie daher ein Anzeige-Steuerelement einem Benutzerformular hinzu. Ändern Sie den Namen des Anzeige-Steuerelementes in imgPreview. Stellen Sie die Steuerelement-Eigenschaften wie folgt ein:

- AutoSize: False
- BackColor: &H00FFFFFF&
- BackStyle: 1-fmBackStyleOpaque
- Height: 93
- PictureSizeMode: 1-fmPictureSizeModeStretch
- Width: 198

Wenn die Datei keine Vorschaugrafik enthält, wird das Anzeige-Steuerelement ausgeblendet.

.VBA-Code
Public Sub ShowDocumentPreviewPicture()
  Dim objDSOReader As Object
  Dim objDSODocument As Object
  Dim objPicture As StdPicture
  Set objDSOReader = CreateObject("DSOleFile.PropertyReader")
  Set objDSODocument = objDSOReader.GetDocumentProperties("C:\Daten\EineMappe.xls")
  If IsEmpty(objDSODocument.Thumbnail) = True Then
    'Keine Vorschaugrafik vorhanden
    imgPreview.Visible = False
  Else
    Set objPicture = objDSODocument.Thumbnail
    If objPicture Is Nothing Then
      'Vorschaugrafik fehlerhaft
      imgPreview.Visible = False
    Else
      'Vorschaugrafik vorhanden
      Set imgPreview.Picture = objPicture
      imgPreview.Visible = True
    End If
    Set objPicture = Nothing
  End If
  Set objDSODocument = Nothing
  Set objDSOReader = Nothing
End Sub

	Verwandte Codebeispiele
	Vorschaugrafik einer geöffneten Arbeitsmappe anzeigen Prüfen, ob eine Dokument-Datei eine Vorschaugrafik enthält Vorschaugrafik einer Arbeitsmappe generieren/entfernen

Vorschaugrafik einer geöffneten Arbeitsmappe anzeigen

.Beschreibung
...

.VBA-Code
Public Sub ShowWorkbookPreviewPicture()

End Sub

	Verwandte Codebeispiele
	Vorschaugrafik einer Dokument-Datei anzeigen Prüfen, ob eine Dokument-Datei eine Vorschaugrafik enthält Vorschaugrafik einer Arbeitsmappe generieren/entfernen

Vorschaugrafiken von mehreren Arbeitsmappendateien generieren/entfernen

.Beschreibung
...

Ablauf:
1. Arbeitsmappe in Microsoft Excel öffnen
2. Eigenschaften-Dialog öffnen und "Vorschaugrafik speichern"-Option aktivieren
3. Arbeitsmappe speichern
4. Arbeitsmappe schliessen

.VBA-Code #1
Public Sub CreatePreviewPictures()
  SendKeys "%r{+}{enter}"
  'SendKeys "%v{+}{enter}"   'Englische Excel-Version
  Application.Dialogs(xlDialogProperties).Show
End Sub

.VBA-Code #2
Public Sub RemovePreviewPictures()
  SendKeys "%r-{enter}"
  'SendKeys "%v-{enter}"   'Englische Excel-Version
  Application.Dialogs(xlDialogProperties).Show
End Sub

	Verwandte Codebeispiele
	Vorschaugrafik einer Dokument-Datei anzeigen Prüfen, ob eine Dokument-Datei eine Vorschaugrafik enthält Vorschaugrafik einer Arbeitsmappe generieren/entfernen

Vorschaugrafik einer Dokument-Datei als Bilddatei speichern

.Beschreibung
Mit diesem Programmcode können die in einer Dokument-Datei enthaltene Vorschaugrafik extrahieren und als Bilddatei speichern.

Funktioniert zur Zeit nur in Visual Basic.

.VBA-Code
Public Sub SavePreviewPictureToFile()

End Sub

	Verwandte Codebeispiele
	Vorschaugrafik einer Dokument-Datei anzeigen Prüfen, ob eine Dokument-Datei eine Vorschaugrafik enthält Vorschaugrafik einer Arbeitsmappe generieren/entfernen

Name der zugeordneten Anwendung einer Dokument-Datei abfragen

.Beschreibung
...

Dokumente beispielsweise des Dateityps "Excel.Sheet" sind Microsoft Excel zugeordnet. Der Name der Anwendung lautet in diesem Fall "Microsoft Excel".

Der Anwendungsname ist in der Datei abgelegt. Er wird nicht via Dateinamenerweiterung/Dateityp/ProgID/CLSID aus der Windows Registry geholt. Es kann sein, dass in der Datei kein Anwendungsname gespeichert ist. Das kann sogar bei ganz 'gewöhnlichen' Dateien wie beispielsweise einer Microsoft Excel-Arbeitsmappe der Fall sein.

.VBA-Code #1
Public Sub GetDocumentAppName1()
  Dim objDSOReader As Object
  Dim objDSODocument As Object
  Set objDSOReader = CreateObject("DSOleFile.PropertyReader")
  Set objDSODocument = objDSOReader.GetDocumentProperties("C:\Daten\EineMappe.xls")
  MsgBox "Anwendungsname: " & objDSODocument.AppName
  Set objDSODocument = Nothing
  Set objDSOReader = Nothing
End Sub

.VBA-Code #2
Public Sub GetDocumentAppName2()
  MsgBox CreateObject("DSOleFile.PropertyReader").GetDocumentProperties("C:\Daten\EineMappe.xls").AppName
End Sub

	Verwandte Codebeispiele
	Fn

Prüfen, ob ein Programm bereits ausgeführt wird

.Beschreibung
...

- Mit AppActivate probieren, ob ein LFZ-Fehler auftritt.

- Mit FindWindow Fenstertitel suchen.

- Mit FindWindow ClassName suchen.

- Word.Tasks durchlaufen und prüfen.

.VBA-Code
Public Sub CheckProgramIsRunning()

End Sub

	Verwandte Codebeispiele
	Fn

Prüfen, ob ein zuvor mit VBA gestartetes Programm beendet wurde

.Beschreibung
...

- Programm mit WSH.Run Wait starten und Rückgabewert überprüfen.

.VBA-Code
Public Sub CheckProgramExit()

End Sub

	Verwandte Codebeispiele
	Fn

Prüfen, ob ein zuvor mit VBA gestartetes Programm abgeschossen wurde

.Beschreibung
...

- Programm mit WSH.Run Wait starten und Rückgabewert überprüfen.

.VBA-Code
Public Sub CheckProgramKill()

End Sub

	Verwandte Codebeispiele
	Fn

Prüfen, ob ein ausgeführtes Programm hängt/nicht mehr reagiert

.Beschreibung
...

- Programm-Instanz mittels GetObject ansprechen.

.VBA-Code
Public Sub CheckProgramIsResponging()

End Sub

	Verwandte Codebeispiele
	Fn

Prüfen, ob ein abgeschossener Prozess tatsächlich nicht mehr läuft

.Beschreibung
...

- Rückmeldung von Kill.exe in eine Textdatei schreiben und dann auswerten.

- Oder mit OpenProcess und ProcessID kontrollieren.

.VBA-Code
Public Sub CheckIfKilledProcessHasEnded()

End Sub

	Verwandte Codebeispiele
	Fn

Prüfen, ob ein Prozess ausgeführt wird (anhand ProcessID)

.Beschreibung
...

- OpenProcess mit ProcessID kontrollieren (siehe basMisc7, Original von Herber).

.VBA-Code
Public Sub CheckIfProcessIsRunning()

End Sub

	Verwandte Codebeispiele
	Fn

Prüfen, ob ein Fenstertitel mehrfach vorhanden ist

.Beschreibung
...

.VBA-Code
Public Sub CheckWindowTitle()

End Sub

	Verwandte Codebeispiele
	Fn

Beenden von Microsoft Excel sperren

.Beschreibung
...

.VBA-Code
Public Sub DisableExcelQuit()

End Sub

	Verwandte Codebeispiele
	Fn

Beenden des VBA-Editors sperren

.Beschreibung
...

.VBA-Code
Public Sub DisableVBEQuit()

End Sub

	Verwandte Codebeispiele
	Fn

Beenden einer anderen Anwendung sperren

.Beschreibung
...

.VBA-Code
Public Sub DisableAppQuit()

End Sub

	Verwandte Codebeispiele
	Fn

Programm anhand TaskID beenden

.Beschreibung
...

1. Anwendungsfenster aktivieren mit AppActivate

2. Fenster-Handle ermitteln mit GetActiveWindow

3. Schliessen-Nachricht senden mit SendMessage Close

.VBA-Code
Public Sub QuitProgramWithTaskID()

End Sub

	Verwandte Codebeispiele
	Fn

ProcessID eines laufenden Windows-Prozesses ermitteln

.Beschreibung
...

(noch keine Lösung)

.VBA-Code
Public Sub GetProcessID()

End Sub

	Verwandte Codebeispiele
	Fn

ProcessID/TaskID eines zuvor mit VBA gestarteten Programmes ermitteln

.Beschreibung
...

Programm muss mit Shell gestartet werden -> zurückgegebene TaskID merken.

.VBA-Code
Public Sub GetProcessID()

End Sub

	Verwandte Codebeispiele
	Fn

Fenstertitel zu einem Fenster-Handle (hwnd) ermitteln

.Beschreibung
...

.VBA-Code
Public Sub GetWindowTitle()

End Sub

	Verwandte Codebeispiele
	Fn

ProcessID zu einem Fenster-Handle (hwnd) ermitteln

.Beschreibung
...

.VBA-Code
Public Sub GetProcessID()

End Sub

	Verwandte Codebeispiele
	Fn

ThreadID zu einem Fenster-Handle (hwnd) ermitteln

.Beschreibung
...

.VBA-Code
Public Sub GetThreadID()

End Sub

	Verwandte Codebeispiele
	Fn

ProcessID zu einem Fenstertitel ermitteln

.Beschreibung
...

.VBA-Code
Public Sub GetProcessID()

End Sub

	Verwandte Codebeispiele
	Fn

Fenster-Handle (hwnd) eines Fensters anhand ClassName ermitteln

.Beschreibung
...

Der Handle eines Fensters (Window Handle; hwnd) wird am einfachsten mit der API-Funktion FindWindow (alias FindWindowA) herausgefunden. Man kann der Funktion den Fenstertitel, den ClassName oder sogar auch beides übergeben. Als Resultat wird der gesuchte Fenster-Handle zurückgegeben.

Das nachstehende Codebeispiel zeigt, wie man den Handle anhand eines ClassName ermitteln kann.

.VBA-Code
'Deklarationsbereich
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long

'Codemodul
Public Sub GetWindowHandle()
  Dim lngHwnd As Long
  lngHwnd = FindWindow("scicalc", vbNullString)
  If lngHwnd <> 0 Then
    MsgBox "Fenster-Handle von Rechner: " & lngHwnd
  End If
End Sub

	Verwandte Codebeispiele
	Fn

Benutzerformular beim Beenden einer anderen Anwendung schliessen

.Beschreibung
...

.VBA-Code
'Deklarationsbereich des Benutzerformulares
Private Declare Function FindWindowA Lib "user32.dll" (ByVal lpClassName As String, _
   ByVal lpWindowName As String) As Long
Private Declare Function SetParent Lib "user32.dll" (ByVal hWndChild As Long, _
   ByVal hWndNewParent As Long) As Long

'Codebereich des Benutzerformulares
Private Sub UserForm_Initialize()
  Dim lRetCode As Long
  Dim hWndForm As Long
  Dim hWndApp As Long
  hWndForm = FindWindowA("ThunderXFrame", vbNullString)
  hWndApp = FindWindowA("Notepad", vbNullString)
  lRetCode = SetParent(hWndForm, hWndApp)
End Sub

	Verwandte Codebeispiele
	Fn

Zellbearbeitungsmodus aktivieren

.Beschreibung
...

Bekanntlich kann man in Microsoft Excel in den Zellbearbeitungsmodus (Edit Mode) wechseln, indem man eine Zelle markiert und dann die Funktionstaste F2 drückt oder einen Doppelklick auf die Zelle ausführt. Mit VBA lässt sich der Edit Mode am einfachsten durch (simuliertes) Drücken der F2-Taste aktivieren. Dies erreicht man mithilfe von SendKeys.

Das Codebeispiel zeigt, wie der Zellbearbeitungsmodus aktiviert wird.

.VBA-Code
Public Sub ActivateCellEditMode()
  AppActivate "Microsoft Excel"
  SendKeys "{F2}", True
End Sub

	Verwandte Codebeispiele
	Zellbearbeitungsmodus aktivieren und Zellinhalt markieren

Zellbearbeitungsmodus aktivieren und Zellinhalt markieren

.Beschreibung
Bekanntlich kann man in Microsoft Excel in den Zellbearbeitungsmodus (Edit Mode) wechseln, indem man eine Zelle markiert und dann die Funktionstaste F2 drückt oder einen Doppelklick auf die Zelle ausführt. Mit VBA lässt sich der Edit Mode am einfachsten durch (simuliertes) Drücken der F2-Taste aktivieren. Dies erreicht man mithilfe von SendKeys.

» Das Codebeispiel #1 markiert den Inhalt der aktiven Zelle. Wenn der Zelltext mehrzeilig ist, dann wird nur die letzte Zeile markiert. Die Textmarke befindet sich am Schluss des Zelltextes.

» Das Codebeispiel #2 markiert den gesamten Inhalt der aktiven Zelle, d.h. auch wenn der Zelltext mehrzeilig ist. Die Textmarke befindet sich am Schluss des Zelltextes.

» Bei Codebeispiel #3 wird ebenfalls der gesamte Zellinhalt markiert, wobei die Textmarke vor das erste Zeichen des Zelltextes gesetzt wird.

.VBA-Code #1
Public Sub SelectCellContents1()
  AppActivate "Microsoft Excel"
  SendKeys "{F2}{Home}+{End}", True
End Sub

.VBA-Code #2
Public Sub SelectCellContents2()
  AppActivate "Microsoft Excel"
  SendKeys "{F2}^{Home}^+{End}", True
End Sub

.VBA-Code #3
Public Sub SelectCellContents3()
  AppActivate "Microsoft Excel"
  SendKeys "{F2}^+{Home}", True
End Sub

	Verwandte Codebeispiele
	Zellbearbeitungsmodus aktivieren

Zellbearbeitungsmodus aktivieren und Texteinfügemarke positionieren

.Beschreibung
Bekanntlich kann man in Microsoft Excel in den Zellbearbeitungsmodus (Edit Mode) wechseln, indem man eine Zelle markiert und dann die Funktionstaste F2 drückt oder einen Doppelklick auf die Zelle ausführt. Mit VBA lässt sich der Edit Mode am einfachsten durch (simuliertes) Drücken der F2-Taste aktivieren. Dies erreicht man mithilfe von SendKeys.

» Das Codebeispiel #1 zeigt, wie der Zellbearbeitungsmodus aktiviert wird.

» Das Codebeispiel #2 aktiviert ebenfalls den Zellbearbeitungsmodus. Zusätzlich wird der gesamte Inhalt der Zelle markiert.

.VBA-Code #1
Public Sub ActivateCellEditMode()
  AppActivate "Microsoft Excel"
  SendKeys "{F2}", True
End Sub

.VBA-Code #2
Public Sub SelectCellContents()
  AppActivate "Microsoft Excel"
  SendKeys "{F2}{Home}+{End}", True
End Sub

	Verwandte Codebeispiele
	Zellbearbeitungsmodus aktivieren Zellbearbeitungsmodus aktivieren und Zellinhalt markieren

Mauszeiger von Microsoft Excel ändern

.Beschreibung
...