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

Question

首先，我是Excel宏的新手。 这些天我读过一些文章并做了一些工作。 但是现在我犹豫不决。可以将.txt或.xml文件放入VBAProject中吗？如果是的话，如何获取文件的路径或者如何读取文件？如果不是，有没有过境方式来完成这项工作？试想Macro，而不是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了解更多详情。