ªð¦^¦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®É¶¡µLªk¾B¾×¡j©È®É¶¡®ø³u¡Aªá¤F³\¦h¤ß¦å¡A·QºÉ¦U¦¡¤èªk­n¾B¾×®É¶¡¡Aµ²ªG¬O¡G®ö¶O¤F§ó¦h®É¶¡¡A¥B¤@µL©Ò¦¨¡I
ªð¦^¦Cªí ¤W¤@¥DÃD