Excel 2007宏，VBAProject可以放置一个配置文件？

Question

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

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变量。

您也可以参考这个link了解更多详情。