Question

我有一个工作簿，可以从内部网站提取当天每小时的数据。 VBA脚本用于将数据提取24次（每小时）。

我想要做的是设置一个参数，该参数将引用某个单元格（Master！K5），该单元格将包含我需要拉出的日期。我希望能够自动引用该单元格，并在VBA脚本中输入每个URL的日期。

这可能吗？

With Sheets("C 0000-0100").Activate
        Cells.Select
        Selection.ClearContents
   End With
   With CaseHour01.QueryTables.Add(Connection:= _
        "URL;https://xxxx-xxxxx.xxxxxx.com/reports/functionRollup?reportFormat=HTML&warehouseId=xxxx&processId=1002967&startDateDay=2014/04/01&maxIntradayDays=1&spanType=Intraday&startDateIntraday=2014/04/01&startHourIntraday=0&startMinuteIntraday=0&endDateIntraday=2014/04/01&endHourIntraday=1&endMinuteIntraday=0 " _
        , Destination:=Range("'C 0000-0100'!$A$1"))
        .Name = "00.000&reportFormat=HTML&processId=01002967"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = """function-4300006644"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
   End With

Answer 1

我在广泛的谷歌搜索后找到了解决方案。这是我发现的：

当网址中出现日期时，请输入

" & Format(Range("'Sheet1'!E2"), "yyyy/mm/dd") & "

日期应该是。这将允许您选择某个Cell并在URL中输入该值。（您可以根据日期在原始网址中的显示方式更改日期格式。

用于引用某个单元格以将日期输入URL的参数

1 个答案: