ªð¦^¦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¦ì:)

¥»©«³Ì«á¥Ñ HSIEN6001 ©ó 2012-7-31 10:43 ½s¿è

¶W¹L5¤ÀÄÁ,¤£¯à­×§ï

§ó¥¿©ó¦¹¡G§ïcut

Selection.Cut
Workbooks.Add   <-----³o­Ó
Range("A1").Paste
Application.CutCopyMode = False

TOP

¥»©«³Ì«á¥Ñ lalalada ©ó 2012-7-31 10:42 ½s¿è

¦^´_ 10# HSIEN6001

??
¬O«ü§â¨C­¶ªº¸ê®Æ½Æ»s­«¶K¤W¶Ü
§Ú¸Õ¸Õ¬ÝÅo
¬O»¡§Ú¤§«e¦b¨ä¥L¦a¤è³o»ò°µªº®É­Ô·|¥X²{''¸ê·½¤£¨¬....''ªºÄµ§iµM«á·í±¼
½Ð°Ý¦³¾ã­¶½Æ»s¶K¤Wªº¦n¤èªk¶Ü?
selection+copy+paste ¹ï°O¾ÐÅé¨Ó»¡¦n¹³¬O«Ü¤jªº­t¾á
©Ò¥H«á¨Ó§Ú§ï¦¨½Æ»s¤À­¶ªº¤è¦¡ ¤£¹L¦b³o¸Ì¤£¾A¥Î

TOP

¦^´_ 9# lalalada

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

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

¦^´_ 7# HSIEN6001


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

¨ú®ø§ó·s.gif

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

¦^´_ 5# GBKEE

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

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

¦^´_ 3# lalalada


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

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD