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

[µo°Ý] ¥Î¿ý»s¥¨¶°ªº¤è¦¡¤U¸üºô­¶¸ê®Æ,¦³¿ìªkÂର°}¦C,¤£ª½±µ¿é¥X¶Ü?

[µ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³Ì¯Ó®Éªº
  1. With ActiveSheet.QueryTables.Add(Connection:= _
  2.         "URL;http://jsjustweb.jihsun.com.tw/z/zc/zcw/zcw1_2330.djhtm", Destination:= _
  3.         Range("$A$1"))
  4.         .CommandType = 0
  5.         .Name = "zcw1_2330.djhtm"
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = True
  10.         .RefreshOnFileOpen = False
  11.         .BackgroundQuery = True
  12.         .RefreshStyle = xlInsertDeleteCells
  13.         .SavePassword = False
  14.         .SaveData = True
  15.         .AdjustColumnWidth = True
  16.         .RefreshPeriod = 0
  17.         .WebSelectionType = xlEntirePage
  18.         .WebFormatting = xlWebFormattingNone
  19.         .WebPreFormattedTextToColumns = True
  20.         .WebConsecutiveDelimitersAsOne = True
  21.         .WebSingleBlockTextImport = False
  22.         .WebDisableDateRecognition = False
  23.         .WebDisableRedirections = False
  24.         .Refresh BackgroundQuery:=False
  25.     End With
½Æ»s¥N½X
PKKO

        ÀR«ä¦Û¦b : §g¤l¦p¤ô¡AÀH¤è´N¶ê¡AµL³B¤£¦Û¦b¡C
ªð¦^¦Cªí ¤W¤@¥DÃD