Umgang mit INI Dateien
Die Dateien aus denen Daten ausgelesen oder geschrieben werden, müssen nicht zwingend die Endung .ini haben.
Sie müssen nur wie eine INI Datei aufgebaut sein:
[Sektion]
Schlüssel=Eintrag
Es können mit dieser Methode auch das Schreiben und Auslesen von Einträgen in die Registry vorgenommen werden.
Makro zum Auslesen aus einer INI Datei:
Sub Lesen()
Dim x As String
x =
System.PrivateProfileString("Name und Pfad.ini", "Sektion",
"Schlüssel")
MsgBox(x)
End Sub
Bei diesem Makro werden die ausgelesenen Daten in einer Message Box ausgegeben.
Makro zum Schreiben in eine INI Datei:
Sub Schreiben()
Dim p As String
p = "Testeintrag"
System.PrivateProfileString("Name und Pfad.ini", "Name Sektion",
"Schlüssel") = p
End Sub
Der Eintrag in der INI Datei würde wie folgt aussehen:
[Name Sektion]
Schlüssel=Testeintrag
Eine weitere, wesentlich umfassender Methode ist die Verwendung der Windows
API. Hier werden kommen die Funktionen WritePrivateProfileString
und
GetPrivateProfileString
zur Anwendung. Die Funktionen sind auf folgender Seite
in einem Workshop beschrieben. Die Beschreibungen sind für die Verwendung in VB
verfasst, das Ganze funktioniert aber auch einwandfrei in VBA.
http://www.vbarchiv.net/workshop/workshop17.php