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

[­ì³Ð] ¦p¦ó¥h°£EXCEL VBA ¤¤ªº THISWORKBOOKS »PSHEET ?

[­ì³Ð] ¦p¦ó¥h°£EXCEL VBA ¤¤ªº THISWORKBOOKS »PSHEET ?

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-1-4 23:29 ½s¿è

³o­ÓÀɮ׬Oªü¦N¦b´ú¸Õ2007»P¨ä¥Lª©¥»¬Û®e©Êªº®É­Ô´ú¥X¨Ó¤ñ¸û©_©ÇªºÀÉ®×

P.S.§Þ¥© ¦@¥Î¬¡­¶Ã¯¥[±K ¤§  a.»s§@¯S®íÀÉ

¨ä®ÄªG¬O:

1.EXCEL VBA ¤¤ªº THISWORKBOOKS »PSHEET ·|®ø¥¢¤£¨£

2.Excel½Òµ{-VBE Åã¥Ü1.xls ³o­ÓÀɦb2007ª©¥»®ÉVB±M®×·|Åã¥Ü"±M®×Âê©w¤£¥i¨£"

    ¦ý2007¥H¤Uª©¥»³£¥i¨£

3.¥t¦s¦¨2007Àɮ׮ɤ£¥i¦s

¤j·§¥i¥Î¦b©ó­­¨îEXCEL µ{¦¡¤£¯à¨Ï¥ÎTHISWORKBOOKS »PSHEET ¼¶¼gªº®É­Ô

ÄÝ©óÂû¦Ø¨Ã¤£¹ê¥ÎÁA¸Ñ¦³³o©ÇªF¦è´N¦n¤F
µLTHISWORKBOOKS & SHEET 15-1.rar
µLTHISWORKBOOKS 15-2.rar

15-1.jpg
2010-5-4 22:19

15-1.rar (7.04 KB)
15-2.rar (14.22 KB)

³o¦ì¤j¤j
±zªº¥\¤Ò¤Ó°ª¤F
¦³ÂI¨S¿ìªk¤F¸Ñ§Aªºµ{¦¡©O
¤£¹L§Ú·|¥[ªo¥h¤F¸Ñªº
jeason

TOP

¸g§ÚÆ[¹î ¦b 2003ª©¬O¼W¯q¶°  (§Úªºª©¥»¬O2003)
½Ð¥´¶} vba µøµ¡
Private Sub auto_Open()
MsgBox "³o¬O HUNGCHILIN ªº§@«~" & "  (?Ê^)§Ú¤£¬O???ªº    :    (ÁcÅé)§Ú¤£¬O¨ÓÄF¿úªº"
ThisWorkbook.SaveAs "C:\ªü¦N.XLS"  '¥[¤J³o¤@¦æ  °õ¦æ«á THISWORKBOOKS »PSHEET ·|¥X²{¤F
End Sub
¼W¯q¶°«ü¥O ->«ö[ÂsÄý..] ¥i¦b C:\ ªü¦N.XLS  ®a¤J¬°¼W¯q¶°

TOP

§Æ±æ¼Ó¥D±N¨Ó¥i¥H¼¶¼g¤@¨ÇÉ]­±®ÑÄy¨S¦³´£¤Îªº°ª¯Å¹ê¥Î§Þ³N,¿n²Ö¦¨½g,Åý·|­û­Ì¶}¶}²´¬É
¨Ò¦pexcel©M¥~³¡µ{¦¡µ²¦Xµ¥(³o­Óª©¸g±`¦³Ãö©óDDEªºÃD¥Ø),¬Û«H·|§ó¦³½ì
1

µû¤À¤H¼Æ

80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¯Ê¤fªºªM¤l¡A¦pªG´«¤@­Ó¨¤«×¬Ý¥¦¡A¥¦¤´µM¬O¶êªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD