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

[µo°Ý] ·Q§ì¹d¦ëºô¸ê®Æ¨ìexcel

[µo°Ý] ·Q§ì¹d¦ëºô¸ê®Æ¨ìexcel

·Q§ì¹d¦ëºô¸ê®Æ¨ìexcel

http://www.cnyes.com/twfutures/futTst.aspx?code=TXFD6
¤£¯à¥Î¶×¤Jªº¤è¦¡
­n¦¨¥æ¤À»ù¨ìexcel¬ã¨s
½Ð°Ý¦³¤H¥i¥H±Ð¶Ü

¦^´_ 2# GBKEE


   ÁÂÁÂk¤j
«Ü¦n¥Î
¥i¥H¨Ï¥Î
·P®¦

TOP

·P®¦k¤j
§Ú¥h¸Õ¸Õ

TOP

¦^´_ 1# xu123
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub ¥x«ü´Á¦¨_¥æ¤À»ù_¥x«ü´Á_¹d¦ëºô() 'TXFD6
  3.     Dim oXmlhttp As Object, oHtmldoc As Object, Url As String
  4.     Dim xTable As Object, xRow As Object, R As Integer, I As Integer
  5.     Set oXmlhttp = CreateObject("msxml2.xmlhttp")
  6.     Set oHtmldoc = CreateObject("htmlfile")
  7.     Url = "http://www.cnyes.com/twfutures/futTst.aspx?code=TXFD6 "
  8.     With oXmlhttp
  9.         .Open "POST", Url, False
  10.         .Send
  11.         oHtmldoc.write .responseText
  12.     End With
  13.     Set xTable = oHtmldoc.all.tags("table")(1)
  14.     With ActiveSheet
  15.         .UsedRange.Clear
  16.         For Each xRow In xTable.Rows
  17.             R = R + 1
  18.             For I = 0 To xRow.Cells.Length - 1
  19.                 .Cells(R, I + 1) = xRow.Cells(I).INNERTEXT
  20.             Next
  21.         Next
  22.     End With
  23. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD