EXCEL VBA中報1004錯誤

VBA中定义单元格：

1.选中单元格

2.选资料/汇入外部资料/新增web查询

    Sheets("Sheet1").Select
    Range("A2").Select
    With Selection.QueryTable
        .Connection = _
        "URL;http://10.100.10.181:8082/pis2report/html/output.jsp?operation=FINAL-DISPLAY&fromDate=20070201&toDate=20070306"
        .Refresh BackgroundQuery:=False
        .RefreshOnFileOpen = False
        .RefreshPeriod = 0
    End With