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

[µo°Ý] §PÂ_¥\¯àªí«ö¶s¦Ó°õ¦æµ{¦¡½X°ÝÃD

ºô­¶§ì¨ú¸ê®ÆºÃ°Ý

¥»©«³Ì«á¥Ñ reangame ©ó 2014-5-14 23:23 ½s¿è

½Ð±Ð¦U¦ì¤j¤j¡A¤U¤èµ{¦¡½X¬O¥H¿ý»s¤è¦¡¥X¨Óªº¡A¥i¬O¸Óºô­¶¦³¥i¥H¤é´Á¬d¸ß¡A§Ú¸ÕµÛ¥Î¿ý»s¤è¦¡¥h§ìµ{¦¡½X¡A¥i¬O«o§ì¤£¨ì¿ï§¹¤é´Á«á¬d¸ßªºµ{¦¡½X¡A«ç»ò¶×¤J³£¬O·í¤é¸ê®Æ¡A½Ð°Ý¦p¦ó«ü©w¤é´Á¬d¸ß«á¶×¤JExcel?
  1.     [a1].Select
  2.     With ActiveSheet.QueryTables.Add(Connection:= _
  3.         "URL;http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU_d.php#", _
  4.         Destination:=Range("A1"))
  5.         .name = "BWIBBU_d"
  6.         .FieldNames = True
  7.         .RowNumbers = False
  8.         .FillAdjacentFormulas = False
  9.         .PreserveFormatting = False
  10.         .RefreshOnFileOpen = False
  11.         .BackgroundQuery = True
  12.         .RefreshStyle = xlInsertDeleteCells
  13.         .SavePassword = False
  14.         .SaveData = True
  15.         .AdjustColumnWidth = True
  16.         .RefreshPeriod = 0
  17.         .WebSelectionType = xlSpecifiedTables
  18.         .WebFormatting = xlWebFormattingAll
  19.         .WebTables = "8"
  20.         .WebPreFormattedTextToColumns = True
  21.         .WebConsecutiveDelimitersAsOne = True
  22.         .WebSingleBlockTextImport = False
  23.         .WebDisableDateRecognition = False
  24.         .WebDisableRedirections = False
  25.         .Refresh BackgroundQuery:=False
  26.     End With
½Æ»s¥N½X
¶¶«Kªþ¤W§Úªº¥b¦¨«~ÀÉ®×

¤W¥«ªÑ²¼.rar (439.9 KB)

§Ú¬O´µ¦h

TOP

¥t¥~ªþ±a¤@°Ý¡A½Ð¬Ý§Úªº¥b¦¨«~¡A¸Ì­±¦³­Ó¡i¶}±Ò¤ë¥÷ªÑ²¼ºô­¶¡j¡A­ì·N¬O·Q¦Û°Ê¤U¸ü¤ë¥÷¸ê®Æ¨Ã¶×¤JExcel¡A¦]¤p§Ì¥\¤OÁÙ¤£°÷¡A¥u¯à¥H´À¥N¤è¦¡¶}±Òºô­¶«á¤â°Ê¤U¸ü¡A¦A¥H¡i¶×¤J¤ë¥÷ªÑ²¼¸ê®Æ¡j¤è¦¡¶×¤J¡A¥i§_«ü¾É¦p¦ó¦Û°Ê¤U¸ü«á¶×¤JExcel¤§¤è¦¡?
§Ú¬O´µ¦h

TOP

Sub tt()


        [a1].Select
        With ActiveSheet.QueryTables.Add(Connection:= _
            "URL;http://www.twse.com.tw/ch/trading/exchange/BWIBBU/BWIBBU_d.php#", Destination:=Range("A1"))
            .PostText = "input_date=103%2F05%2F13&select2=ALL&order=STKNO&login_btn=%ACd%B8%DF"
            .WebTables = "8"
            .Refresh BackgroundQuery:=False
            .Delete
        End With

End Sub

TOP

¥»©«³Ì«á¥Ñ reangame ©ó 2014-5-16 21:48 ½s¿è

joey0415 ¤j¤j¡A´ú¸Õ¹L¤F¡A¥i¥H°õ¦æ¡A¦ý«ô°U«ü¾É¤@¤U           
            .PostText = "input_date=103%2F05%2F13&select2=ALL&order=STKNO&login_btn=%ACd%B8%DF"   ==>³o¬O¬Æ»ò·N«ä?
            .WebTables = "8"  ==>³o¬O¬Æ»ò·N«ä?
            .Refresh BackgroundQuery:=False  ==>³o¬O¬Æ»ò·N«ä?
            .Delete  ==>¬°¤°»ò­n?
§Ú¬O´µ¦h

TOP

¥t¥~½Ð¬Ý§Úªº¥b¦¨«~¡A¸Ì­±¦³­Ó¥\¯à¡i¶}±Ò¤ë¥÷ªÑ²¼ºô­¶¡j¡A­ì·N¬O·Q¦Û°Ê¤U¸ü¤ë¥÷¸ê®Æ¨Ã¶×¤JExcel¡A¥Ø«e¥u¯à¥H´À¥N¤è¦¡¶}±Òºô­¶«á¤â°Ê¤U¸ü¡A¦A¥H¡i¶×¤J¤ë¥÷ªÑ²¼¸ê®Æ¡j¤è¦¡¶×¤J¡A¥i§_«ü¾É¦p¦ó¦b¤£¥´¶}IE±¡ªp¤U¡A¦Û°Ê¤U¸ü«á¶×¤JExcel¤§¤è¦¡?
§Ú¬O´µ¦h

TOP

[µo°Ý] §PÂ_¥\¯àªí«ö¶s¦Ó°õ¦æµ{¦¡½X°ÝÃD


»¡©ú¡G¤W¹Ï¬°¡i¨t²Î¥\¯àªí¡jÂI¿ï¡i¿ï¾ÜªÑ²¼¦¬½L¦æ±¡¡jshow¡i¿ï¾Ü¦¬½L¤é´Á_ªÑ²¼¦¬½L¡j¡G1¡AÂI¿ï½T©w°õ¦æ§ì¨úªÑ²¼¦¬½L¦æ±¡¡C
                                                        ÂI¿ï¡i¿ï¾ÜªÑ²¼¤ñ¨Ò¸ê®Æ¡jshow¡i¿ï¾Ü¦¬½L¤é´Á_¤ñ¨Ò¸ê®Æ¡j¡G2¡AÂI¿ï½T©w°õ¦æ§ì¨úªÑ²¼¤ñ¨Ò¸ê®Æ¡C
                                                        ÂI¿ï¡i¿ï¾Ü¤T¤jªk¤H¸ê®Æ¡jshow¡i¿ï¾Ü¦¬½L¤é´Á_¤T¤jªk¤H¡j¡G3¡AÂI¿ï½T©w°õ¦æ§ì¨ú¤T¤jªk¤H¸ê®Æ¡C

½Ð°Ý¦³¿ìªk°µ¥X¦p¤U¹Ïªº·§©À¶Ü? ¥u»Ý­n¤@­Óªí³æ´N¦n¤F¡A
§PÂ_¡i¨t²Î¥\¯àªí¡jÂI¤F­þ­Ó«ö¶s¡Ashow¡i¿ï¾Ü¦¬½L¤é´Á¡j¡G1¡AÂI¿ï½T©w°õ¦æ¹ïÀ³ªºµ{¦¡½X?
¦]¬°¦pªG³o¼Ë¤U¥h¥u­n·s¼W¥\¯à´N¥²¶·¦A°µ¤@­Óªí³æ(4.5.6.....)¡A¤Ó¤£¦Û°Ê¤Æ¤F¡A§Æ±æ¦³°ª¤â¥i¥H«ü¾É¤@¤U¡C

§Ú¦b¡iºô­¶§ì¨ú¸ê®ÆºÃ°Ý¡j³o¤å³¹¤¤¦³©ñÀɮסA³sµ²¦p«á¡Gºô­¶§ì¨ú¸ê®ÆºÃ°Ý
¦pªG¥i¥H¤]½Ð«ü¾É¤@¤U¡A«D±`·PÁ±z¡I
§Ú¬O´µ¦h

¦^´_ 1# reangame

¤@¡B­n§ì¸ê®Æ«e¥ý¬d¸ß¦Û¤vªº¸ê®Æ®w¡A¨C­Ó¸ê®Æ®w³Ì«á§ó·s¤é´Á
¤G¡B§ì¨ú³Ì«á§ó·s¤é»P¤µ¤é¶¡ªº®t¶ZÂ÷
¤T¡B§ì¨ú¥¼§ó·s¤é´Á¶i¸ê®Æ®w
¥|¡B¦pªG§ì¨úºô­¶¦³°ÝÃD´N¸õ¹L¡A¦pªG¸ê®Æ¤£²Å¦p¨S¸ê®Æ´N¸õ¹L¡K

³o¼Ë´N¦Û°Ê¤Æ¤F¡A¤£¥Î³o¼Ë³]­p

TOP

¦^´_ 2# joey0415

joey0415¤j¤j¡G
±zªº·N«ä¬OÂI¿ï1.2.3¥\¯à«á¡Aª½±µ¤ñ¹ï¸ê®Æ®w¸òºô­¶ªº¸ê®Æ¬O§_¦P¤@¤Ñ¡A¦pªG¤£¬O´N§ì¨ú§ó·s¡A¬O³o¼Ë¶Ü?

¦pªG¬O³o¼Ëªº¸Ü¡A´N¤£¤Ó²Å¦X§Ú·Q­nªº¥\¯à¡A§Ú¥D­n¬O·Q§ì¨ú¿ï©wªº¤é´ÁµM«á¤À§O¥h¬d¸ßºô­¶¸ê®Æ¡A
ÂI¿ï1.2.3¥\¯à©Ò¿ï©wªº¤é´Á¦³¥i¯à¤£¬O¦P¤@¤Ñªº¸ê®Æ¡A©Ò¥H¤~·|³o¼Ë³]­p¡AÁٽЦA«ü¾É¡A·P®¦¡I
§Ú¬O´µ¦h

TOP

¦^´_ 1# reangame

¿ï¾Ü¦¬½L¤é´Áªí³æªºµ{¦¡½X¥i·s¼W¥[¤@­Ó¥þ°ìÅܼơAÀx¦s¬O¨Ó¦Û­þ­Ó«ö¶s¡C

¦p¡i¿ï¾Ü¦¬½L¤é´Á¡jµ{¦¡½X¤W¤è¥[¤W:
  1. Public Enum enumClickOption
  2.   optDefault
  3.   opt¿ï¾ÜªÑ²¼¦¬½L¦æ±¡
  4.   opt¿ï¾ÜªÑ²¼¤ñ¨Ò¸ê®Æ
  5.   opt¿ï¾Ü¤T¤jªk¤H¸ê®Æ
  6. End Enum
  7. Public fromOption As enumClickOption
½Æ»s¥N½X
ÂI¿ï¡i¿ï¾ÜªÑ²¼¦¬½L¦æ±¡¡j, show¤§«e¥[¤W¤@¦æ
  1. Private Sub CommandButton1_Click()
  2.     Unload Me
  3.     ¿ï¾Ü¦¬½L¤é´Á.fromOption =opt¿ï¾ÜªÑ²¼¦¬½L¦æ±¡
  4.     ¿ï¾Ü¦¬½L¤é´Á.Show
  5. End Sub
½Æ»s¥N½X
¨ä¥L«ö¶s¨Ì¦¹Ãþ±À

³Ì«á¡i¿ï¾Ü¦¬½L¤é´Á¡j½T©w®É¡A¦A§PÂ_¸ÓÅܼƨM©w°õ¦æ­þ­Ó¦æ¬°

TOP

¦^´_ 9# stillfish00

stillfish00 ¤j¤j¡G
«D±`©êºp¡A³o¨â¤Ñ¤ñ¸û¦£¨SªÅ¤W¨Ó¡A¨S·Q¨ì¤@¤W¨Ó´N¬Ý¨ì±zªº¦^ÂСA¹ï§ÚÀ°§U«D±`¤j¡A
¤@¶}©l´ú¸Õ¤@­Ó¦h¤p®É¡A´N¬O¦³¦a¤è°õ¦æ¤£¤F¡A¤@«×·Q­n¦A¤W¨Ó½Ð¨D±zªº¨ó§U¡A
«á¨Óµo²{­ì¨Ó±z¦^´_ªºµ{¦¡½X¡G
Public Enum enumClickOption
  optDefault
  opt¿ï¾ÜªÑ²¼¦¬½L¦æ±¡
  opt¿ï¾ÜªÑ²¼¤ñ¨Ò¸ê®Æ==>¿ï¾ÜªÑ»ù¤ñ¨Ò¸ê®Æ
  opt¿ï¾Ü¤T¤jªk¤H¸ê®Æ
End Enum
Public fromOption As enumClickOption
¸ò§Úªºµ{¦¡½X®t¤F¤@­Ó¦r¡A®tÂI´N­n©ñ±ó¤F¡AÁÙ¦n¦³­@¤ßªº´ú¸Õ¡A
§â¦r­×¥¿«á¡A«o¤£ª¾¹D­n°õ¦æªºµ{¦¡½X­nÂ\¦b­þ¸Ì  @@....
¤S¶}©l´ú¸Õ¡A³Ì«á²×©ó·Q¥X¨Ó¡A
¦b¡i¿ï¾Ü¦¬½L¤é´Á¡jªí³æªº½T©w¶s¡A¸Ì­±ªºµ{¦¡½XÁä¤J¡G
  1. Private Sub CommandButton1_Click()
  2. Select Case fromOption
  3.     Case 1
  4.                  µ{¦¡½X1
  5.     Case 2
  6.                  µ{¦¡½X2
  7.     Case 3
  8.                  µ{¦¡½X3
  9. End Sub
½Æ»s¥N½X
²×©ó¥i¥H°õ¦æ¤F¡A¥H«á´N¥i¥H¬Ù²¤«Ü¦h¦P¼Ëªºªí³æ¤F¡A
¯u¤ß·PÁ±zªº«ü¾É!!!!!
§Ú¬O´µ¦h

TOP

        ÀR«ä¦Û¦b : ¯¸¦b¥b¸ô¡A¤ñ¨«¨ì¥Ø¼Ð§ó¨¯­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD