ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

EXCEL ¦p¦ó §å¦¸¤U¸ü «á §ó·s¸ê®Æ

EXCEL ¦p¦ó §å¦¸¤U¸ü «á §ó·s¸ê®Æ

½Ð°Ý³o­Ó­n«ç»ò°µ

¶R¤F¤@°ï®Ñ
§ÚÁÙ¬O°µ¤£¥X¨Ó
½Ð°Ý§Ú­n«Ø¥ß

web¬d¸ß¡]¦b¤u§@ªí2¡^

µM«á§â¥L¨Ì§Ç¶K¨ì¦CªºÄæ¦ì

³o­Ó­n«ç»ò°µ©O

ÀÉ®×½d¨Ò¦b³o
https://www.dropbox.com/s/yfzark63r7jnjmp/demo2.xlsx



½Ð¦n·s¤H¨¹§Ú¥´¤@¤U µù¸Ñ
¹ê¦b¬Ý¤£À´ªü:'(

Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'

'
    Range("B1").Select
    ActiveCell.FormulaR1C1 = _
        "http://demand.polaris.com.tw/z/zc/zcr/zcr_1101.ASP.HTM"
    Sheets("¤u§@ªí2").Select
    Range("A1").Select
    With Selection.QueryTable
        .Connection = "URL;http://demand.polaris.com.tw/z/zc/zcr/zcr_1101.ASP.HTM"
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("B3:B15").Select
    Selection.Copy
    Sheets("¤u§@ªí1").Select
    Range("C1").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True



  Range("B2").Select
    ActiveCell.FormulaR1C1 = _
        "http://demand.polaris.com.tw/z/zc/zcr/zcr_1102.ASP.HTM"
    Sheets("¤u§@ªí2").Select
    Range("A1").Select
    With Selection.QueryTable
        .Connection = "URL;http://demand.polaris.com.tw/z/zc/zcr/zcr_1102.ASP.HTM"
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "3"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("B3:B15").Select
    Selection.Copy
    Sheets("¤u§@ªí1").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
End Sub



½Ð°Ý¦p¦ó°µ °j°é
¦³ªºªF¦è³£¤@¼Ë

TOP

ÁÂÁÂ~~~~

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD