Sub 웹데이터가져오기()
'
' 웹데이터가져오기 매크로
'

'

    Rows("8:50").Delete Shift:=xlUp
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.kamis.co.kr/kamis/price/wholesale/day.jsp?menuseq=menu01_01&section=6&punit=d&pagemode=&iscabbage=true&year=" & Range("D4").Value & "&month=" & Range("E4").Value & "&day=" & Range("F4").Value & "&kind=06&itemcode=0611&descnrank=061101" _
        , Destination:=Range("$B$8"))
        .Name = _
        "day.jsp?menuseq=menu01_01&section=6&punit=d&pagemode=&iscabbage=true&year=2012&month=07&day=20&kind=06&itemcode=0611&descnrank=061101"
        .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 = "58"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Rows("8:9").Select
    Selection.ClearContents
    Selection.Delete Shift:=xlUp
    Rows("10:10").Select
    Selection.Delete Shift:=xlUp
    Rows("14:14").Select
    Selection.Delete Shift:=xlUp
End Sub
