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

[µo°Ý] ¶×¤J¥~³¡³sµ²®æ¦¡³B²z

[µo°Ý] ¶×¤J¥~³¡³sµ²®æ¦¡³B²z

½Ð°Ý¦U¦ì¤j¤j

¤p§Ì¨Ï¥ÎEXCEL¶×¤J¥~³¡³sµ²

¤U¤è¬O¤j­P¤W¶×¤Jªº»yªk  ¥D­n¬O¿ý»s¥¨¶°«á¶i¦æ­×§ï
  1. '¶×¤J¥~³¡³sµ²
  2.         With Sheets(3).QueryTables.Add(Connection:=Key_URL, Destination:=Sheets(3).Range("A" & Report_Site))
  3.             .WebSelectionType = xlSpecifiedTables
  4.             .WebFormatting = xlWebFormattingNone
  5.             .WebTables = """gridtable"""
  6.             .WebPreFormattedTextToColumns = True
  7.             .WebConsecutiveDelimitersAsOne = True
  8.             .WebSingleBlockTextImport = False
  9.             .WebDisableDateRecognition = False
  10.             .WebDisableRedirections = False
  11.             .Refresh BackgroundQuery:=False
  12.         End With
½Æ»s¥N½X
¶×¤Jªº­È¯à§_«O«ùºô¯¸ªº­ì®æ¦¡

¦]¬°ºô¯¸ªº­È¬O001

¦ý¶×¤J«á·|Âର1

¤£ª¾¯à§_¤@¼Ë¥Î001¨ÓÅã¥Ü


½Ð¤j¤j­ÌÀ°¦£¸Ñ´b  

ÁÂÁÂ
¥Î¥\¨ì¥@¬É¥½¤é¨º¤@¤Ñ¡ã¡ã¡ã

        ÀR«ä¦Û¦b : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD