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瞭解更多詳情。