excel - Excel 2007 宏，VBA项目可以放一个配置文件吗？

Question

首先，我是 Excel 宏的新手。这些天我读了一些文章并做了一些工作。但是现在我很犹豫。可以将.txt或.xml文件放入VBAProject吗？如果可以，如何放置以及如何获取文件路径或只是读取文件？如果没有，是否有过境方式来完成这项工作？想想宏，而不是插件项目。非常感谢！

Answer 1

您可以保存带有 ini 扩展名的 txt，并将其中的设置保存为键值对。使用下面的代码，您可以检索提供密钥并获取值的那些设置。

Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Public Function GetINIString(ByVal sApp As String, ByVal sKey As String, ByVal filepath As String) As String
    Dim sBuf As String * 256
    Dim lBuf As Long

    lBuf = GetPrivateProfileString(sApp, sKey, "", sBuf, Len(sBuf), filepath)
    GetINIString = Left$(sBuf, lBuf)
End Function

Sub sample()
    Dim Path As String
    Path = ThisWorkbook.Path & "\" & "Path.ini"
    Link = GetINIString("Path", "Link", Path)
End Sub

请将 .ini 文件保存在工作簿所在的同一文件夹中，或者您可以Path相应地更改变量。

您也可以参考此链接了解更多详情。