Function GetWindowsDirectory Lib _
"KERNEL32" Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public
Function WinDir() As String
Dim sDirBuf As String * 255
StrLen = GetWindowsDirectory(sDirBuf, 255)
WinDir = Left$(sDirBuf, StrLen)
End Function
Sie können diese Funktion sowohl in Ihren Makros verwenden,
als auch als eine Tabellenfunktion.
Geben Sie hierzu in die entsprechende Zelle die Formel =WinDir() ein
Eine schnellere und einfachere Möglichkeit das
Windows-Verzeichnis zu ermitteln, besteht darin die
Umgebungsvariable WinDir auszuwerten:
Public
Function WinDir() As String
WinDir = Environ("windir")
End Function
Das Windows-Systemverzeichnis ermitteln (VBA)
Ähnlich wie das Windows-Verzeichnis können Sie auch
das Windows-System-Verzeichnis ermitteln:
Private Declare
Function GetSystemDirectory Lib _
"KERNEL32" Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public
Function WinSysDir() As String
Dim sDirBuf As String * 255
StringLength = GetSystemDirectory(sDirBuf, 255)
WinSysDir = Left$(sDirBuf, StringLength)
End Function
Sie können diese Funktion sowohl in Ihren Makros verwenden,
als auch als eine Tabellenfunktion.
Geben Sie hierzu in die entsprechende Zelle
die Formel =WinSysDir() ein.
Sub Info_Windows_Excel()
'Ermittlung der installierten Windows- und der Excelversion
antw = MsgBox("Betriebssystem: " & Application.OperatingSystem & Chr(10) & _
"Excel-Version: " & Application.Version, vbInformation, "Info")
End Sub
Um die Seriennummer von Excel oder Windows auszulesen, kannst du VBA (Visual Basic for Applications) verwenden. Folge diesen Schritten:
Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.
Füge den folgenden Code in das Modul ein:
Private Declare Function GetWindowsDirectory Lib "KERNEL32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Function WinDir() As String
Dim sDirBuf As String * 255
StrLen = GetWindowsDirectory(sDirBuf, 255)
WinDir = Left$(sDirBuf, StrLen)
End FunctionDu kannst diese Funktion jetzt in einer Excel-Zelle verwenden, indem du =WinDir() eingibst, um das Windows-Verzeichnis zu erhalten.
Um die installierte Windows- und Excel-Version zu ermitteln, füge diesen Code in dasselbe Modul ein:
Sub Info_Windows_Excel()
antw = MsgBox("Betriebssystem: " & Application.OperatingSystem & Chr(10) & _
"Excel-Version: " & Application.Version, vbInformation, "Info")
End SubFühre die Subroutine Info_Windows_Excel aus, um die Informationen in einer MsgBox anzuzeigen.
Fehler: "Komponente nicht gefunden"
Fehler: "Funktion nicht definiert"
Eine einfachere Methode, um die Windows-Umgebungsvariable auszulesen, ist die Verwendung des folgenden VBA-Codes:
Public Function WinDir() As String
WinDir = Environ("windir")
End FunctionDiese Funktion gibt direkt den Pfad des Windows-Verzeichnisses zurück und kann ebenfalls in einer Excel-Zelle verwendet werden.
Hier sind einige Beispiele, wie die Seriennummern in Excel generiert oder ausgelesen werden können:
=WinDir() in einer Zelle, um das Windows-Verzeichnis anzuzeigen.Info_Windows_Excel aus, um eine MsgBox mit der Betriebssystem- und Excel-Version zu erhalten.Beachte, dass die Seriennummern nicht direkt aus Excel ausgelesen werden können, da sie nicht als solche gespeichert sind. Stattdessen kannst du die oben genannten Methoden verwenden, um relevante Informationen zu erhalten.
1. Wie kann ich die Seriennummer von Excel direkt auslesen?
Es gibt keine direkte Funktion in Excel, um die Seriennummer auszulesen. Du kannst jedoch die Excel-Version und das Betriebssystem mit VBA abfragen.
2. Welche Excel-Versionen unterstützen diese Methoden?
Die beschriebenen Methoden sind in den meisten modernen Excel-Versionen verfügbar, die VBA unterstützen, z.B. Excel 2010 und später.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen