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

[µo°Ý] Web¬d¸ß¥u«O¯d¸ê®Æ¦Ó¤£«O¯d°ò¥»¬d¸ß

[µo°Ý] Web¬d¸ß¥u«O¯d¸ê®Æ¦Ó¤£«O¯d°ò¥»¬d¸ß

¤@¯ë´¡¤JWeb¬d¸ß¤§«á·|µo²{³sµ²¸ê®Æ(°ò¥»¬d¸ß)·|«O¦s
(«ö¤u¨ã¦C''¸ê®Æ''·|¦³"¦Û°Ê§ó·s"¿ï¶µ)
±N¾É­PÀɮתΤj¥B¦sÀÉ/¶}±Ò³t«×½wºC
¦pªG½T©w¤é«á¤£¦A§ó·s¸ê®Æ ¸Ó¦p¦ó§R°£°ò¥»¬d¸ß©O?
§Ú¦b¤u¨ã¦C"¸ê®Æ"-->''¶×¤J¥~³¡¸ê®Æ''-->''¸ê®Æ½d³òÄÝ©Ê''¤¤¦³¤@­Ó"Àx¦s¬d¸ß©w¸q"
§â¤Ä¿ï¨ú®ø¦ü¥G´N¥i¥H§R°£°ò¥»¬d¸ß(?)
¦ý°ÝÃD¬O¥Î¿ý»s¥¨¶°ªº¤è¦¡µLªk¬ö¿ý¦¹¾Þ§@
¦Ó¸ê®Æµ§¼Æ·¥¦hµLªk¥H¤H¤u¤è¦¡¤@¤@¨ú®ø
©Ò¥H·Q½Ð°Ý³o³¡¤Àªºµ{¦¡½X¸Ó«ç»ò¼g
¤×¨ä¯à¤£¯à¦b¥Îvba·s¼W¬d¸ß®É´N³]©w¤£­n«O¯d°ò¥»¬d¸ß
¥u­n¯Â¸ê®Æ´N¦n?
·PÁ¦U¦ì:)

¦^´_ 1# lalalada


            .WebFormatting = xlWebFormattingNone   
= xlWebFormattingNone ¤£«O¯d³sµ²¤Î¼Ë¦¡   
= xlWebFormattingRTF  «O¯d³sµ²¤Î®æ¦¡³]©w

TOP

¦^´_ 2# HSIEN6001


·PÁ¦^ÂÐ!:)
¦ý¬O¦n¹³¤£¬O³o­Ó...
¦]¬°¹w³]­È´N¬OxlWebFormattingNone
¦ý¬OÂI¿ï¸ê®Æ ¶×¤J¥~³¡¸ê®Æ ¤´µM¥i¥H¬Ý¨ì¦Û°Ê§ó·s


¼W¥[¨â±i¹Ï§Æ±æ¦³¤ñ¸û¦n²z¸Ñ...

TOP

¦^´_ 3# lalalada


    ¤£¦n·N«ä!
¬Ý¨Ó§Úµ§°O¤]°µ¿ù¤F
O_Q!!

TOP

¦^´_ 3# lalalada
  1. Option Explicit
  2. Sub Ex()
  3.     Dim QueryTable_Name As String
  4.     With ActiveSheet
  5.         With .QueryTables.Add(Connection:="URL;http://forum.twbts.com/index.php", Destination:=Range("A1"))
  6.             QueryTable_Name = .Name
  7.             .Refresh BackgroundQuery:=False
  8.         End With
  9.         .Names(QueryTable_Name).Delete   '§R°£:¬d¸ß¦b¤u§@ªí©Ò©w¸qªº½d³ò¦WºÙ
  10.     End With
  11. End Sub
½Æ»s¥N½X

TOP

¦^´_ 5# GBKEE

·PÁª©¥D:)
³o´N¬O§Ú·Q­nªº
­è­è¦]¬°name«á­±¨º­Ós§Ë¦n¤[...
²Ä¤@­Ó¦³s·|¿ù
²Ä¤G­Ó¨S¦³·|¿ùXD

TOP

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-7-30 17:51 ½s¿è

¦^´_ 6# lalalada


    ½Ð°Ý¤@¤U,§A¬O¥þ³¡¤U¸ü§¹¤~°µ§R°£³sµ²
ÁÙ¬O§â»yªk©ñ¦bweb ¤U¸ü¨CÀɸê®Æªº¹Lµ{¤¤§R°£

§Ú­è­è¥u·Q¨ì[´À¥N¤è®×]
    Selection.Copy
    Range("A1").PasteSpecial Paste:=xlPasteValues   '¶K¤W­È

TOP

¦^´_ 7# HSIEN6001


    ²×©ó¬ÝÀ´­n¥á¦bºô­¶¤U¸ü°j°éªº­þ¸Ì¤F^^
ÁÂÁÂG¤jªºµ{¦¡½X~^_^~

¨ú®ø§ó·s.gif

TOP

¦^´_ 7# HSIEN6001


¨ä¹ê³£¥i¥H
¦ý¬O¥á¦b¤U¸ü°j°é¸Ì·Pı¤ñ¸û¶¶~
¥i¬Oµ²ªGÀɮרS¦³¤p«Ü¦h­C...'' ²q´ú¥¢±Ñ~"~
¦³¤°»ò¦n¤èªk¥i¥HÅýÀɮפp¤@ÂI¶Ü?
¦]¬°¤@­ÓÀÉ®×°Ê»³­n3xM¹ê¦b¦³ÂI¤Ó¤j
²¦³º¤WÂd¸ê®Æ¥u­n7.8M¥H¤º

TOP

¦^´_ 9# lalalada

Selection.Copy
Workbooks.Add
Range("A1").Paste
¥t¦s·sÀÉ
Àɮפj¤p-->KB

TOP

        ÀR«ä¦Û¦b : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD