动态地将文件夹位置设置为公共常量

Question

我目前使用以下代码在excel vba模块中设置公共常量：

Public Const QuoteDB = "N:\Data Warehouses\Databases\Quote DB.accdb"

文件夹位置很可能是偶然的，我希望能够将该位置输入定义为范围的单元格

类似......

Public Const QuoteDB = Range("folderlocation") & "Quote DB.accdb"

我在使用此代码时收到错误消息 - 任何想法如何解决此问题？

Answer 1

Dynamic - 关键字和Const相互矛盾。您无法为Const变量分配动态值，因为这必须在运行时发生，并且Public QuoteDB = ...无法更改。

不幸的是，Public QuoteDB as String也无法工作。

我建议您将变量声明为Sub，并为自己写一个Function或init() Sub main() call setDirectory() ' Variables should be set now ' Other stuff: call restOfYourCode() end Sub ，在其中分配所有值，例如：

read: {
        url: base_url+"index.php/welcome/findAll",
}