| ©«¤l5923 ¥DÃD13 ºëµØ1 ¿n¤À5986 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»Office 2010 ¾\ŪÅv150 ©Ê§O¨k ¨Ó¦Û¥xÆW°ò¶© µù¥U®É¶¡2010-5-1 ³Ì«áµn¿ý2022-1-23 
         
 | 
                
| ¦^´_ 1# boyao CreateObject("D:\book1.XLS")   ¶}±Òªº¬¡¶Ã¯µøµ¡·|ÁôÂÃ
 ½Æ»s¥N½XOption Explicit
Sub Ex()
    With CreateObject("D:\book1.XLS")   'קאּ  BÀɮתº¸ô®|
        .Sheets("Sheet1").Range("A1") = "2012/12/31"
        .Close True
    End With
End Sub
 | 
 |