在EXCEL中使用VBA创建和使用INI配置文件

楼主
omnw

在EXCEL中使用VBA创建和使用INI配置文件
EXCEL中并没有相应的方法直接创建和使用INI配置文件，可以使用API来实现创建和使用INI配置文件。我以WORD中system对象的PrivateProfileString属性介绍创建或读取INI配置文件的方法。使用代码前请引用Word object Library。

1、创建配置文件。
以下代码，在当前工作簿所在目录下创建一个配置文件（如果配置文件不存在），或者向配置文件中写一条配置信息（如果配置文件已经存在），或者修改某一个项目的值。

Sub crea_readSetingFile()
Dim wd As Word.Application
Set wd = New Word.Application '创建一个WORD对象
wd.System.PrivateProfileString(ThisWorkbook.Path & "\FileName.ini", "我的配置", "次数1") = 100 '创建或向配置文件中添加项目，甚至是修改项目的值
Set wd = Nothing
End Sub

2、读取配置文件的值。
以下代码，从当前工作簿所在目录下的配置文件中记取相应的设置值。

Sub readSetingFile()
Dim str As String
Dim wd As Word.Application
Set wd = New Word.Application '创建一个WORD对象
str = wd.System.PrivateProfileString(ThisWorkbook.Path & "\FileNam1e.ini", "我的配置", "次数1") '读取配置信息
Set wd = Nothing
If str = "" Then
MsgBox "没有获取正确的配置信息"
Else
Debug.Print str
End If
End Sub

3、PrivateProfileString属性的参数说明
.PrivateProfileString(, , )

名称	必选/可选	数据类型	说明
FileName	必选	String	设置文件的文件名。如果未指定路径，则假设为 Windows 文件夹。
Section	必选	String	设置文件中包含 Key 的节的名称。在 Windows 设置文件中，节名显示在相关项之前的方括号中（Section 中无方括号）。如果从 Windows 注册表返回项的值，则 Section 应当是指向子项的完整路径，包括子树（例如，“HKEY_CURRENT_USER\Software\Microsoft\Office\version\Word\Options”）。
Key	必选	String	要检索的项设置或注册表项的值。在 Windows 设置文件中，项名称后跟等号 (=) 和设置。如果从 Windows 注册表返回项的值，则 Key 应当是 Section 所指定的子项中项的名称（例如，“STARTUP-PATH”）。

上一篇：在EXCEL中打印工作表背景的方法（VBA）
下一篇：关于清空Office的剪切板

免责声明

有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，经与ExcelTip.Net站长Apolloh商议并征得其同意，现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，供有需要的人士查询使用，也慰缅曾经的论坛时代。所示各个帖子的原作者如对版权有异议，可与本人沟通提出，或于本站点留言，我们会尽快处理。在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一

猜您喜欢

评论列表

sitemap