EXCEL ¦p¦ó §å¦¸¤U¸ü «á §ó·s¸ê®Æ
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
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¬Ý¤£À´ªü:'( |
|
|
|
|
|
|
- ©«¤l
- 78
- ¥DÃD
- 30
- ºëµØ
- 0
- ¿n¤À
- 109
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2014-5-15
- ³Ì«áµn¿ý
- 2018-9-16
|
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¦è³£¤@¼Ë |
|
|
|
|
|
|
- ©«¤l
- 4
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office
- ¾\ŪÅv
- 10
- µù¥U®É¶¡
- 2014-9-2
- ³Ì«áµn¿ý
- 2016-8-19
|
ÁÂÁÂ~~~~ |
|
|
|
|
|
|