Hsieh

¦^´_ 3# color790

ÀɮקڬO®Ú¥»¶}¤£°_¨Ó
¤£¹L¥ú¬O§A³o­Óµ{¦¡½X
§A­n¤U¸ü©Ò¦³¥N½Xªº¸ê®Æ´N¥²¶·ªá¶O¬Û·íªøªº®É¶¡
¦Ü©ó­Y¦³¨ä¥L­pºâªº¸Ü
¨º§ó¤£¥Î»¡ªÖ©w·|ºCªº

color790

­ì¨Ó¦³­°ªº¤èªk.....¤ÓÁÂÁÂluhproªºÀ°¦£ ^^
¥u¬O«Ü©_©Ç, «ç³o¨â­Ó¤u§@­¶·|­°
¨ä¤¤¤@­Ó¤u§@­¶µ{¦¡½X¦p¤U...¬O­þ­Ó³¡¥÷¥X¿ù¤F¶Ü?

For i = 3 To Worksheets("¥N½X").[a65536].End(xlUp).Row
num = Worksheets("¥N½X").Cells(i, 1)
Worksheets("tmp").Range("A:Z").ClearContents


With Worksheets("tmp").QueryTables.Add(Connection:="URL;http://jsjustweb.jihsun.com.tw/z/zc/zcl/zcl_" & num & ".asp.htm" _
    , Destination:=Worksheets("tmp").Range("A1"))

    .Name = ""
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
End With

luhpro

¦^´_ 1# color790
ÀÉ®×Ū°_¨Ó½T¹ê«ÜºC,
¤@¯ë¨Ó»¡­YÀÉ®×¥»¨­¨Ã¤£¤j©Ò¥H¤£À³¸Ó¥X²{¦¹±¡§Î®É,
¥i¥H¦Ò¼{±N¤º®e¥þ³¡³£·h²¾¨ì¥t¤@­Ó·s«Ø¥ßªºExcelÀÉ®×,
·íµM¤£·|¬O¾ã­ÓÀÉ®×¥þ³¡·Ó·h,
¨º¼Ë°ÝÃDÁÙ¬O·|¦s¦b¦Ó¨S¦³¸Ñ¨M.

§Ú¸û±`¨Ï¥Îªº¤èªk¬O :
1. ¤À§O°w¹ï¦U­Ó Sheet °õ¦æ -> ²¾°Ê©Î½Æ»s -> ±N«Ø¥ß°Æ¥»¥´¤Ä -> ¥Ø¼Ð¿ï·s¬¡­¶Ã¯ ½T»{¦¹°Ê§@ªº®É¶¡¬O§_¸ûªø,
¥H§PÂ_¤ò¯fÀ³¸Ó¬O¦b­þ´X­Ó Sheet ¤W,
½T»{«á½Ð°O±oÃö³¬(¨Ã¿ï¤£­nÀx¦s)·s¶}ªº Excel ¬¡­¶Ã¯ÀÉ®×. (¥»¨Ò¤¤§Úµo²{ tmp »P tmp2 ¨â­Ó Sheet ©úÅãŪ¨ú®É¶¡¹Lªø)

2. ¨S°ÝÃDªº Sheet ª½±µ½Æ»s¨ì·sªº Excel Àɤº.

3. ¦Ó¹ï©ó¦³°ÝÃDªº Sheet «hµ½¥Î "½Æ»s -> ¿ï¾Ü©Ê¶K¤W",
¥u½Æ»s¹L¨Ó¦³¸ê®ÆªºÀx¦s®æ¤Î¨ä®æ¦¡´N¦n(¸ê®Æ»P®æ¦¡¦@¨â¦¸¤À§O¶K¤W, ¥BÀ³ÁקK¿ï¾ã¦C©Î¾ãÄæ),
¨S¸ê®Æªºª½±µ±Ë±ó.

4. ±Nµ{¦¡¤º®e¤å¦r¤À§O Copy ¨ì»P¨ä¬Û¹ïÀ³ªºµ{¦¡°Ï¶ô¤º.

³Ì«á¥t¦s·sÀɧY¥i.

©³¤U¬O§Ú¨Ì¤W­z¤è¦¡­«°µ¹LªºÀÉ®×,
§A¬Ý¬Ý¬O§_²Å¦X§Aªº»Ý¨D.
123-Rebuild.zip (113.91 KB)

¤U¸ü¦¸¼Æ: 7

2011-10-26 20:55