Hallo zusammen,
ich habe hier ein VBA Script mit dem ich in eine INI Datei schreiben möchte und daten auch wieder auslesen,
leider hat sich hier ein Fehler eingeschlichen, nur kann ich ihn nicht finden.
ob da vlt mal jemand drüber schauen kann und mir weiter helfen könnte.
ich habe hier ein VBA Script mit dem ich in eine INI Datei schreiben möchte und daten auch wieder auslesen,
leider hat sich hier ein Fehler eingeschlichen, nur kann ich ihn nicht finden.
ob da vlt mal jemand drüber schauen kann und mir weiter helfen könnte.
Visual Basic-Quellcode
- Option Explicit
- Public Declare PtrSafe Function WritePrivateProfileString Lib "kernel32" _
- Alias "WritePrivateProfileStringA" ( _
- ByVal lpApplicationName As String, _
- ByVal lpKeyName As Any, _
- ByVal lpString As Any, _
- ByVal lpFileName As String) As Long
- Public Declare PtrSafe Function GetPrivateProfileString Lib "kernel32" _
- Alias "GetPrivateProfileStringA" ( _
- 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 Dim myinifile As String
- Dim PrintIP As String
- Dim CValue, RValue, IPValue, PrinterValue As String
- Dim lResult As Long
- Public ColINI, RowINI, LocRang, ColBox, RowBox As String
- Public Printer, IP_INI As String
- Public Sub ColBoxCh_onChange(control As IRibbonControl, Text As String)
- ColBox = Text
- Debug.Print Text
- Call writeColBox
- End Sub
- Public Sub writeColBox()
- myinifile = "C:\Users\" & Environ("Username") & "\AppData\Roaming\Microsoft\AddIns\config_Z-Tools.ini"
- WritePrivateProfileString "PWegLP", "ColBox", ColBox, myinifile
- End Sub
- Public Sub lesen()
- myinifile = "C:\Users\" & Environ("Username") & "\AppData\Roaming\Microsoft\AddIns\config_Z-Tools.ini"
- ColINI = ""
- RowINI = ""
- PrintIP = ""
- Printer = ""
- CValue = Space$(4)
- RValue = Space$(4)
- IPValue = Space$(16)
- PrinterValue = Space$(1)
- lResult = GetPrivateProfileString("PWegLP", "ColBox", ColINI, CValue, Len(CValue), myinifile)
- ColINI = Left$(CValue, lResult)
- lResult = GetPrivateProfileString("PWegLP", "RowBox", RowINI, RValue, Len(RValue), myinifile)
- RowINI = Left$(RValue, lResult)
- LocRang = ColINI + RowINI
- lResult = GetPrivateProfileString("DruckerIP_Label", "IP", PrintIP, IPValue, Len(IPValue), myinifile)
- IP_INI = Left$(IPValue, lResult)
- lResult = GetPrivateProfileString("DruckerIP_Label", "Printer", Printer, PrinterValue, Len(PrinterValue), myinifile)
- Printer = Left$(PrinterValue, lResult)
- End Sub
Gruß Matze
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „matze.tele“ ()