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

[µo°Ý] (EXCEL VBA°ÝÃD)½Ð°Ý«ç¼Ë¥ÎQueryTable§ì¨úºô­¶¸ê®Æ?

¥»©«³Ì«á¥Ñ GBKEE ©ó 2018-1-1 07:25 ½s¿è

¦^´_ 1# paul3063
  1. =html& date =
½Æ»s¥N½X
ºô§}¿ù»~¶Ç¦^³Ìªñ¤@¤Ñªº¸ê®Æ,,»Ý¨S¦³ªÅ®æ
  1. =html&date=
½Æ»s¥N½X
  1. http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=" & Range("A1") & Range("B1") & Range("C1") & "&type=ALLBUT0999"
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 3# paul3063
  1. Option Explicit
  2. Sub EX()
  3.     Dim xDay As String
  4.     xDay = InputBox("¿é¤J¤é´Á", "¤j½L²Î­p¸ê°T¤é´Á", Date)
  5.     If IsDate(xDay) Then
  6.         If Weekday(xDay, vbMonday) < 6 Then
  7.             xDay = Format(xDay, "yyyymmdd")
  8.             With ActiveSheet.QueryTables.Add(Connection:= _
  9.                 "URL;http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html& date =" & xDay & "&type=ALLBUT0999" _
  10.                 , Destination:=Range("A1"))
  11.                 '
  12.                 '
  13.             End With
  14.         Else
  15.             MsgBox xDay & "  °²¤é¨SÀç·~"
  16.         End If
  17.     Else
  18.         MsgBox "¤é´Á¿é¤J¿ù»~"
  19.     End If
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 10# paul3063

ªþÀɤ¤ªºµ{¦¡½X§¹¥þ»P#4ªºµ{¦¡½X¤@¼Ë·íµM¤£¦æªº.
#4µ¹ªºµ{¦¡½X¬O­n¾É¤Þ§A®M¶i§A#1©Ò¿ý»sªºsub test()¤¤
  1. 'µù¸Ñ²Å¸¹
  2. ''''µù¸Ñ²Å¸¹
  3. '******
½Æ»s¥N½X


¦h¤F¸Ñµ{¦¡½X¤~·|¿ÄºD³qªº
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : µêªÅ¦³ºÉ¡D§ÚÄ@µL½a¡AµoÄ@®e©ö¦æÄ@Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD