VB ³]©wªí³æ¿é¤J¦WºÙ«á¥´¶}¸ê®Æ§¨°ÝÃD¡C
 
- ©«¤l
 - 63 
 - ¥DÃD
 - 32 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 125 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - WIn10 
 - ³nÅ骩¥»
 - OFFICE2013 
 - ¾\ŪÅv
 - 20 
 - µù¥U®É¶¡
 - 2018-7-19 
 - ³Ì«áµn¿ý
 - 2022-8-11 
 
  | 
 VB ³]©wªí³æ¿é¤J¦WºÙ«á¥´¶}¸ê®Æ§¨°ÝÃD¡C
                
| 
§Ú·Q§Ë¤@Óªí³æ,Åý§Ú¿é¤J¤@Ó¦WºÙ¤§«á«ö½T©w,¥L·|¥´¶}§Ú©Ò¿é¤J¦WºÙªº¸ê®Æ§¨¥X¨Ó,½Ð°Ý³oÓªì¨B¤]¬On¦p¦ó¥h°µ,¬O¤£¬O¥ý§â¦WºÙ©w¸q¬°¸ê®Æ§¨¥Ø¼Ð¦ì¸m,·í§Ú¦bªí³æ¤º¿é¤J¸Ó¦WºÙ«á,¥L·|¦Û°Ê¥´¶}¬ÛÃöªº¸ê®Æ,½Ð°Ýªì¨BÀ³¸Ó¬O¦p¦ó¥h¾Þ§@,ÁÂÁ¤F :Q |   
 
 
 
 | 
| 
 | 
 | 
 | 
 | 
 | 
 
¡@¼ÊºÙ:  温©_            ¡@ÀY»Î:    ij½×ªÌ
¤¤¾Ç¥Í  
 
- ©«¤l
 - 104 
 - ¥DÃD
 - 5 
 - ºëµØ
 - 0 
 - ¿n¤À
 - 110 
 - ÂI¦W
 - 0  
 - §@·~¨t²Î
 - win7 
 - ³nÅ骩¥»
 - Office2007 
 - ¾\ŪÅv
 - 20 
 - ©Ê§O
 - ¨k 
 - µù¥U®É¶¡
 - 2017-11-14 
 - ³Ì«áµn¿ý
 - 2019-4-30 
 
    
 | 
                
¦^´_ 1# stephenlee  
 
¶}±ÒExcel¤èªk¡AÃþ¦ü½d¨Ò°Ñ¦Ò- Dim WB, XL, oSheet As Object
 
 - XL = CreateObject("Excel.Application")
 
 - XL.Visible = True
 
 - WB = XL.Workbooks.Open("\\¸ô®|\¤u§@ªí.xlsx")
 
 - oSheet = XL.Workbooks("¤u§@ªí.xlsx").Sheets("¤u§@ªí1")
 
  ½Æ»s¥N½X |   
 
 
 
 | 
| 
 ¤@¤À§V¤O¡A¤@¤À¦¬Ã¬¡C 
µo°ÝÃD«e¥i¥H¥ý·j¯Á¤º¤å¬O§_¦³¬ÛÃö½d¨Ò¡C 
 | 
 | 
 | 
 | 
 |