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

[µo°Ý] ¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼÆ

[µo°Ý] ¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼÆ

¥ý¸ò¦U¦ì«ô­Ó¦­¦~

¶]µ{¦¡main·|¥X²{¡A°õ¦æ¶¥¬q¿ù»~91
¡u¨S¦³³]©wª«¥óÅܼƩÎWith°Ï¶ôÅܼơv

¥i¬O³æ¿W¦b¶]¸Ì­±ªºª¦ÂάO¨S¦³°ÝÃDªº!!

½Ð¦U¦ì¯«¤H­Ì¡A¥i¥HÀ°¤p§Ì¸Ñµª¬°¤°»ò¶Ü?
¥H¤Î­n¦p¦ó§ó§ïµ{¦¡!

¥ýÁÂÁ¤j®a¤F¡A³o°ÝÃD§Úºô¸ô´M§ä¤F2¤Ñ¨S¦³µª®×¡A¯u¬O·Q¯}§ÚªºÀY

by VBA·s¤â

practice.zip (50.05 KB)

.SetText HTMLsourcecode.body.innerhtml

TOP

·PÁÂquickfixer¡A¦n¤H¤@¥Í¥­¦w¡A¤W´Z©Ò³£¦³½Ã¥Í¯È¥i¥Î!

ÁÂÁ§A¡A¸Ñ¨M§Úªº°ÝÃD!

TOP

¥»©«³Ì«á¥Ñ tsmc2330 ©ó 2021-2-10 11:33 ½s¿è

½Ð±Ð¤@¤U¡A¬°¤°»ò¤£¯àª½±µ¨Ï¥Î¡A¥H¤U³o¤@¦æ(¦]¬°·Q­nªº¸ê®Æ¦b³o­Ótable)
HTMLsourcecode.all.tags("table")(8).outerhtml

¬O­n§Ú¥h«Å§i©M³]©wª«¥ó¶ÜÅܼƶÜ?
¥i¬O¤£¬O¤w¸g«Å§i©M³]©w¤F?
    Dim HTMLsourcecode As Object
    Set HTMLsourcecode = CreateObject("HTMLFile")

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2021-2-10 11:45 ½s¿è

¦^´_ 4# tsmc2330




2020/1/5ÃÒ¥æ©Ò¨S§A­nªº¸ê®Æ,¨S¸ê®Æ´N¨Stable,·íµM·|¥X¿ù
¥[­Óif´N¥i¥H¥Îtable
            If Len(HTMLsourcecode.body.innerhtml) = 26 Then Exit Sub
   With Clipboard
            .SetText HTMLsourcecode.all.tags("table")(8).outerhtml
            .PutInClipboard
        End With

TOP

§Úª¾¹D§Ú·Q¤F¨â¤Ñªº­ì¦]¤F!
¤µ¤Ñ±ß¤WÁ`ºâ¥i¥H¦n¦nºÎ¤@ı¤F!

ÁÂÁÂquickfixer

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD