Частные Струны профиля с помощью реестра с помощью VBA в Microsoft Excel
Строки частного профиля часто используются для хранения информации о пользователе вне приложения / документа для последующего использования.
Например, вы можете хранить информацию о последнем содержимом в диалоговом окне / UserForm, о том, сколько раз открывалась книга или последний использованный номер счета для шаблона счета.
Строки приватного профиля для каждого пользователя могут храниться в реестре. Вы также можете использовать INI-файл либо на локальном жестком диске, либо в общей сетевой папке.
Вот примеры макросов для записи и чтения из строк частного профиля в реестре.
' the examples below assumes that the range B3:B5 in the active sheet contains
' information about Lastname, Firstname and Birthdate
Sub WriteUserInfoToRegistry()
' saves information in the Registry to
' HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TESTAPPLICATION
On Error Resume Next
SaveSetting "TESTAPPLICATION", "Personal", "Lastname", Range("B3").Value
SaveSetting "TESTAPPLICATION", "Personal", "Firstname", Range("B4").Value
SaveSetting "TESTAPPLICATION", "Personal", "Birthdate", Range("B5").Value
On Error GoTo 0
End Sub
Sub ReadUserInfoFromRegistry()
' reads information in the Registry from
' HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TESTAPPLICATION
Range("B3").Formula = GetSetting("TESTAPPLICATION", "Personal", "Lastname", "")
Range("B4").Formula = GetSetting("TESTAPPLICATION", "Personal", "Firstname", "")
Range("B5").Formula = GetSetting("TESTAPPLICATION", "Personal", "Birthdate", "")
End Sub
' the example below assumes that the range D4 in the active sheet contains
' information about the unique number
Sub GetNewUniqueNumberFromRegistry()
Dim UniqueNumber As Long
UniqueNumber = 0
On Error Resume Next
UniqueNumber = CLng(GetSetting("TESTAPPLICATION", "Personal", "UniqueNumber", ""))
On Error GoTo 0
Range("D4").Formula = UniqueNumber + 1
SaveSetting "TESTAPPLICATION", "Personal", "UniqueNumber", Range("D4").Value
End Sub
Sub DeleteUserInfoFromRegistry()
' deletes information in the Registry from
' HKEY_CURRENT_USER\Software\VB and VBA Program Settings\TESTAPPLICATION
On Error Resume Next
DeleteSetting "TESTAPPLICATION" ' delete all information
'DeleteSetting "TESTAPPLICATION", "Personal" ' delete one section
'DeleteSetting "TESTAPPLICATION", "Personal", "Birthdate" ' delete one key
On Error GoTo 0
End Sub