§Ú­n¦p¦ó¼W¶i®Ä¯à©O?

amg8885

¤§«e§Ú§ì¨úªººô­¶¬O§e²{¤@¯ë"¥Õ©³¶Â¦r"µe­±®Éµ{¦¡¶]°_¨Ó«Ü§Ö,1¬í¬ù2µ§,¦ý²{¦bªººô­¶Åܦ¨"¶Â©³¥Õ¦r"«á,³t«×Åܱo¦nºC,§ì¤@µ§­n15~20¬í,½Ð°Ýª©¤W¤j¤j­n¦p¦ó½Õ¾ã­×¥¿©O?
¥H¤U¬O¤§«eªºµ{¦¡~~~

Sub Ex()
¡@¡@Dim i As Long, Ur$, Rng As Range, R As Long
¡@¡@For i = 1 To 123457¡@
¡@¡@¡@¡@Ur = "007CD" & Format(i, "000000") '
¡@¡@¡@¡@R = ActiveSheet.UsedRange.Rows.Count
¡@¡@¡@¡@Set Rng = ActiveSheet.Range("A" & IIf(R = 1, 0, R) + 1)
¡@¡@¡@¡@With ActiveSheet.QueryTables.Add(Connection:= _
¡@¡@¡@¡@¡@¡@"URL;http://OOXXOOXX./prn_evi_detail.asp?APPLYCODE=" & Ur _
¡@¡@¡@¡@¡@¡@¡@¡@, Destination:=Rng)
¡@¡@¡@¡@¡@¡@.Name = "prn_evi_detail.asp?APPLYCODE=" & Ur
¡@¡@¡@¡@¡@¡@.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 = "2"
¡@¡@¡@¡@¡@¡@.WebPreFormattedTextToColumns = True
¡@¡@¡@¡@¡@¡@.WebConsecutiveDelimitersAsOne = True
¡@¡@¡@¡@¡@¡@.WebSingleBlockTextImport = False
¡@¡@¡@¡@¡@¡@.WebDisableDateRecognition = False
¡@¡@¡@¡@¡@¡@.WebDisableRedirections = False
¡@¡@¡@¡@¡@¡@.Refresh BackgroundQuery:=False
¡@¡@¡@¡@End With
¡@¡@Next
End Sub



--------------------------------------------------------------------------------