[已解决]求助 :如何用VBA导入外管局网站某一天的汇率

jsszdl6

求助 :

如何用VBA导入外管局网站 :http://www.safe.gov.cn/model_safe/index.html  某一天的汇率

最佳答案

月排行榜 / 总排行榜

amulee

2010-5-6 11:00

Sub 查询()
    Dim sDate As Date
    sDate = Application.InputBox("请输入日期", "输入", Date)
    Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.safe.gov.cn/model_safe/search/rmb.jsp?sdate=" & sDate, _
        Destination:=Range("A1"))
        .Name = "我的查询"
        .PreserveFormatting = True
        .WebTables = "2"
        .Refresh
    End With
End Sub

跳转到最佳答案楼层

EPP

录个宏呗！：

Sub aa()
With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.safe.gov.cn/model_safe/index.html", Destination:=Range("A1"))
        .Name = "index"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "21"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub

amulee

Sub 查询()
    Dim sDate As Date
    sDate = Application.InputBox("请输入日期", "输入", Date)
    Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.safe.gov.cn/model_safe/search/rmb.jsp?sdate=" & sDate, _
        Destination:=Range("A1"))
        .Name = "我的查询"
        .PreserveFormatting = True
        .WebTables = "2"
        .Refresh
    End With
End Sub

上清宫主

[em05][em05][em05][em05]