VBA: 创建Web查询获取基金历史净值

Option Explicit

Sub QueryStarter()

    'This is an adaptation from some code found at:
    'https://stackoverflow.com/questions/19306832/web-query-vba-refresh
    
    Dim time_ini As Date, ws As Worksheet, url As String
    
    '计时
    time_ini = Timer
    
    Set ws = Worksheets.Add
    
    url = "URL;" & Worksheets("Web查询").Range("B1")
    
    With ws.QueryTables.Add(Connection:=url, Destination:=ws.Range("A1"))
    
        .Name = "My Query"
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = False
        .RefreshStyle = xlOverwriteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlEntirePage
        .WebFormatting = xlWebFormattingNone
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
        
    End With
    
    MsgBox "Done!  " & vbCrLf & "用时：" & Format(Timer - time_ini, "0.0s")

End Sub