- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
[µo°Ý] ¥Î¿ý»s¥¨¶°ªº¤è¦¡¤U¸üºô¶¸ê®Æ,¦³¿ìªkÂର°}¦C,¤£ª½±µ¿é¥X¶Ü?
¤p§Ì¦³ÓºÃ°Ý,³Â·Ð¦U¦ì¤j¤j
¨Ò¦p¤U¤èµ{¦¡½X,³q±`³£·|¿é¥X¨ìEXCEL¤À¶¤W
¦ý¹ê»Ú¤W©Î³\¥u¥Îªº¨ì¨ä¤¤¤@Ó¶µ¥Ø¦Ó¤w,¬O§_¥i¥H±N¸ê®ÆÂର°}¦C
¥Ñµ{¦¡½X¦Û¦æ§PÂ_n¿é¥Xªº¸ê®Æ
´N¤£¥Î±N©Ò¦³¸ê®Æ³£¿é¥X¨ìEXCEL¤W±,²¦³º¿é¥Xªº°Ê§@¬O³Ì¯Ó®Éªº- With ActiveSheet.QueryTables.Add(Connection:= _
- "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcw/zcw1_2330.djhtm", Destination:= _
- Range("$A$1"))
- .CommandType = 0
- .Name = "zcw1_2330.djhtm"
- .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
½Æ»s¥N½X |
|