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

html ¶×¤J,ªí®æ®æ¦¡¤£¹ï,³£¦b¦P¤@Àx¦s®æ, ¦p¦ó½Õ¾ã???

html ¶×¤J,ªí®æ®æ¦¡¤£¹ï,³£¦b¦P¤@Àx¦s®æ, ¦p¦ó½Õ¾ã???

html ¶×¤J,ªí®æ®æ¦¡¤£¹ï,³£¦b¦P¤@Àx¦s®æ, ¦p¦ó½Õ¾ã??? Book1.zip (1.85 KB)

©pÀɮפº¨S´£¨Ñ©p¼¶¼gªºµ{¦¡½X ­n«çÀ°§A°»¿ù?

TOP

¥»©«³Ì«á¥Ñ t8899 ©ó 2019-8-27 18:59 ½s¿è
©pÀɮפº¨S´£¨Ñ©p¼¶¼gªºµ{¦¡½X ­n«çÀ°§A°»¿ù?
zheng211016 µoªí©ó 2019-8-27 16:48


­ì©l https://mops.twse.com.tw/mops/web/t203sb01
§ìªººô­¶  https://mops.twse.com.tw/server- ... cr-2890-2019Q1.html

   With CreateObject("InternetExplorer.Application")
.Navigate "https://mops.twse.com.tw/server-java/t164sb01?step=3&SYEAR=" & Year(Date) & "&file_name=tifrs-fr1-m1-ci-cr-" & [b1] & "-" & [B3] & ".html"
  Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
                    .ExecWB 17, 2       '  Select All
                    .ExecWB 12, 2       '  Copy selection
                                  With ActiveSheet
                     '   .UsedRange.Offset(1).Clear
                .Cells(1, 7).Select
            .PasteSpecial Format:="HTML"
                           End With
  .Quit                          'Ãö³¬ IE
End With

TOP

        ÀR«ä¦Û¦b : ­n¥Î¤ß¡A¤£­n¾Þ¤ß¡B·Ð¤ß¡C
ªð¦^¦Cªí ¤W¤@¥DÃD