| Microsoft Excel是Microsoft為使用Windows和Apple Macintosh操作系統的電腦編寫的一款電子表格軟件。直觀的界面、出色的計算功能和圖表工具，再加上成功的市場營銷，使Excel成為最流行的個人計算機數據處理軟件。 我們寫一些小代碼時，有時需要將部分配置信息保存在用戶的電腦上，一般可以采取保存在注冊表，XML 文件和 INI 文件等方法。這幾種方法各有優缺點，我覺得當配置信息簡單時，保存在 INI 文件還是很高效的。這里提供一段小代碼，用于讀取和寫入 INI 文件 
excel VBA 如何讀取和寫入 INI 文件
具體代碼： Option Explicit
#If Win64 Then
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
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
#Else
Public Declare 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
Public Declare Function WritePrivateProfileString _
Lib "kernel32" Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, ByVal lpKeyName As Any, _
ByVal lpString As Any, ByVal lpFilename As String) As Long
#End If
Public Const MAXCOUNT As Long = 256
'********************************************************************
'用途： 讀取指定的鍵值
'返回值： 指定的鍵值
'參數名 說明
'FileName Ini 文件全名(含路徑)
'Section 節點的名稱
'Key 鍵名
'********************************************************************
Public Function ReadStringFromIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String) As String
Dim x As Long
Dim xBuff As String * MAXCOUNT
GetPrivateProfileString Section, Key, "", xBuff, MAXCOUNT, FileName
x = InStr(xBuff, Chr(0))
ReadStringFromIni = Trim(Left(xBuff, x - 1))
End Function
'********************************************************************
'用途： 寫入指定的鍵值
'參數名 說明
'FileName Ini 文件全名(含路徑)
'Section 節點的名稱
'Key 鍵名
'Value 需要寫入的鍵值
'********************************************************************
Public Sub WriteStringToIni(ByVal FileName As String, ByVal Section As String, ByVal Key As String, ByVal Value As String)
Dim xBuff As String * MAXCOUNT
xBuff = Value + Chr(0)
WritePrivateProfileString Section, Key, xBuff, FileName
End Sub 注意：代碼可用于 32 位和 64 位 Office； 請將下載后的文件解壓到同一文件夾 | 1文件名稱 | 1下載鏈接 | | INIFileReadWrite.zip | http://pan.baidu.com/s/1hqCCVdi |
Excel整體界面趨于平面化，顯得清新簡潔。流暢的動畫和平滑的過渡，帶來不同以往的使用體驗。
|
