¶: [1]
|
 |
|
§@ªÌ
|
¥DÃD: vbªí³æªº«öÁä©I¥s¥XExcelªºµ{¦¡¦p¦ó¼g (¾\Ū 2729 ¦¸)
|
bus100
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 37
|
·s¤â
|
|
|
|
|
¤w°O¿ý
|
|
|
|
¤p»x
½×¾ÂºÞ²zû
Â÷½u
·|û©Ê§O: 
¤å³¹: 589
|
Dim wshShell As Object ¡@Set wshShell = CreateObject("WScript.Shell") ¡@Call wshShell.Run("EXCEL.EXE", 2, True) ¦^ÂÐ: wshShell.Runªº°Ñ¼Æ¦p¤U: object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])
|
|
|
|
|
¤w°O¿ý
|
¬°¤F½×¾Âªº¥ÃÄò¸gÀç,±z¤£§«
|
|
|
bus100
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 37
|
Dim wshShell As Object ¡@Set wshShell = CreateObject("WScript.Shell") ¡@Call wshShell.Run("EXCEL.EXE", 2, True) ¦^ÂÐ: wshShell.Runªº°Ñ¼Æ¦p¤U: object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])
¤p»x¯u£x«D±`«D±`·P¿E§A...§Ú¬Ý®Ñ¬Ý£{5-6£|ÄÁÀY³£¤£·|.....²{¦b1¤ÀÄÁ¤º´Nok...·P¿E¤£ºÉ..¦n¤H¦³¦n³ø
|
|
|
|
|
¤w°O¿ý
|
|
|
|
saint
³X«È
|
ÁÙ¦³³o¤@ºØ¥Îªk.. dim oxls as object set oxls=creteobject("excel.application") oxls.visible=true
³oºØ¥s°µ OLE Automation º¡¦n¥Îªº...¦b¨ä¥¦¶}µo¤u¨ã¤]¥i¥H¨Ï¥Î!,ÁÙ¥i¥H§âEXCEL ©ñ¦b§A¦Û¤vªºµ{¦¡¤¤~
|
|
|
|
|
¤w°O¿ý
|
|
|
|
chang2427
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 10
|
¦pªGn³]©w¶}±Ò§Y¦³ªºexcelÀÉ®×, ¦p©ñ¦b§Úªº¤å¥ó§¨¸ê®Æ§¨ùØ, ©Î®à±¤W, ½Ð°Ýn¦p¦ó³]©w, ÁÂÁÂ.
|
|
|
|
|
¤w°O¿ý
|
|
|
|
chang2427
¤¤¾Ç¥Í
Â÷½u
¤å³¹: 10
|
§Ún©I¥sÓ§Y¦³ªºexcelÀÉ®×, °£¤F«ü©w¸ô®|¤§¥~, ¦pªGÀÉ®×ùبS¦³¥¨¶°´N·|µLªk¶}±Ò, ¦³¥¨¶°¤~¯à¶}±Ò, ¤£¹L·|¦³¥¨¶°¯f¬rªºÄµ¥Üµøµ¡, §Ú¤£n¦³¥¨¶°¯f¬rªºÄµ¥Üµøµ¡, ½Ð°Ýn¦p¦ó§ï, ÁÂÁÂ.¡@:'(
|
|
|
|
|
¤w°O¿ý
|
|
|
|
|
¶: [1]
|
|
|
|