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

[µo°Ý] ¦p¦ó¨Ï ±M®×VBAProject ( 97¾Ç¦~¤W¾Ç´Á¸ê®Æ.xls)½T¹ê.close

[µo°Ý] ¦p¦ó¨Ï ±M®×VBAProject ( 97¾Ç¦~¤W¾Ç´Á¸ê®Æ.xls)½T¹ê.close

½Ð±Ð½Ñ¦ì¤j¤j
³Ìªñ¥X²{¥H¤U°ÝÃD
Dim FileName As String, E As Workbook
    FileName = ThisWorkbook.Path & "\¸ê®Æ®w\"  & "97¾Ç¦~¤W¾Ç´Á¸ê®Æ.xls"
    xlfilenam = Dir(FileName)
    Dim fsobj As Object
    Set fsobj = CreateObject("Scripting.FileSystemObject")
    If fsobj.FileExists(FileName) Then
        With CreateObject(FileName)
            .Windows(xlfilenam).Visible = True
            .Close True
        End With
    End If

¦p¤W¹Ï"97¾Ç¦~¤W¾Ç´Á¸ê®Æ.xls"©ú©ú¤w .close
¹õ«e"97¾Ç¦~¤W¾Ç´Á¸ê®Æ.xls"½T¤w¤£¨£
¦ý±`¦bVBE¸Ì  ±M®×VBAProject  ÁÙ¦s¦b

À³¦p¦ó¤U«ü¥O  ¡A¨Ï ±M®×VBAProject ( 97¾Ç¦~¤W¾Ç´Á¸ê®Æ.xls)½T¹ê.close
ÁÂÁÂ

¦^´_ 1# yangjie
·|µ¥³oµ{¦¡°õ¦æ§¹²¦,¤~·|¤£¨£ªº.
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¤p¨Æ¤£°µ¡B¤j¨ÆÃø¦¨¡C
ªð¦^¦Cªí ¤W¤@¥DÃD