Excel VBA宏打开文件，其中包含特定日期

Question

我想创建一个能够打开具有正确名称的htm文件的宏。所有htm文件仅在日期之后命名。所以我希望宏只打开并导入具有正确日期的htm文件的数据。所以例如我希望宏只导入今天的数据。我的想法是，我在一个单元格中指定了我想要导入的日期。

Dim文件As Variant     file = ThisWorkbook.Sheets（5）.Range（“B17”）。Value

所以在这里我想我指的是我指定日期的单元格。

With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;file:///C:/Users.....
    Destination:=Range("$A$1"))

但是我不知道如何将日期值导入到文件的链接中？

最后我希望链接看起来像

“URL;文件：/// C：/Users.../11.04.2017”

Answer 1

您所要做的就是连接某个对象的值，例如表单上的单元格。在这里，我将Cell E1中的值传递给URL字符串。

"URL;https://finance.yahoo.com/quote/IBM/financials?p=" & Range("E1").Value, Destination:= _
        Range("$A$1"))

您可以从InputBox，TextBox，ComboBox ....传递值。几乎任何类型的对象。