Ini Datei auslesen

Hallo,
ich habe ein AddIn mit mehreren Modulen. In den Modulen lese ich al erstes eine Excel-Konfigurationsdatei ein.
Wo diese liegt und wie diese heißt, kann je nach Installation verschieden sein.
Daher dachte ich mir, dass ich diese Information passend zum AddIn in eine ini Datei ablege.
Dann könnte ich mir den Pfad und den Dateinamen in eine public Variable lesen und die Module würde dann die Excel Konfigurationsdatei verarbeiten können.
Benötige ich eine eigene ini Datei oder hinterlege ich diese 2 Werte in eine bereits existierende ini Datei für Excel und wie lese ich diese per VBA denn dann aus, um die public Variablen zu setzen?
Zusammengefasst: Ich möchte den Pfad und den Namen einer Datei hinterlegen können und diese in allen Modulen verwenden.
Danke und Gruß
Kay

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Code: [Cc] Option Explicit Private Declare PtrSafe Function GetPrivateProfileStringA Lib "kernel32" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpDefault As String, _ ByVal lpReturnedString As String, _ ByVal nSize As Long, _ ByVal lpFileName As String) As Long Private Declare PtrSafe Function WritePrivateProfileStringA Lib "kernel32" ( _ ByVal lpApplicationName As String, _ ByVal lpKeyName As Any, _ ByVal lpString As Any, _ ByVal lpFileName As String) As Long Sub IndateiLesen() Dim Txt As String * 500, sInidatei As String, sText As String sInidatei = "C:\MeineDatei.ini" GetPrivateProfileStringA "Bereich", "Item", "Vorgabe", Txt, 500, sInidatei sText = Left(Txt, InStr(Txt, vbNullChar) - 1) End Sub

Hallo Kay,
ein Beispiel zum schreiben und lesen einer .ini

Option Explicit

Private Declare PtrSafe Function WritePrivateProfileStringA Lib "kernel32.dll" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpString As Any, _
    ByVal lpFileName As String) As Long
Private Declare PtrSafe Function GetPrivateProfileStringA Lib "kernel32.dll" ( _
    ByVal lpApplicationName As String, _
    ByVal lpKeyName As Any, _
    ByVal lpDefault As String, _
    ByVal lpReturnedString As String, _
    ByVal nSize As Long, _
    ByVal lpFileName As String) As Long

Public Sub Test()

    Const FILE_PATH As String = "G:\Test.ini"
    Const STRING_LENGTH As Long = 255

    Dim strReturn As String * STRING_LENGTH
    Dim lngResult As Long

    lngResult = WritePrivateProfileStringA("Suche", "Enter", "1", FILE_PATH)

    lngResult = WritePrivateProfileStringA("Suche", "Strg", "0", FILE_PATH)

    lngResult = GetPrivateProfileStringA("Suche", "Enter", "-1", strReturn, STRING_LENGTH, FILE_PATH)
    Debug.Print Left$(strReturn, lngResult)

    lngResult = GetPrivateProfileStringA("Suche", "Strg", "0", strReturn, STRING_LENGTH, FILE_PATH)
    Debug.Print Left$(strReturn, lngResult)

End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread