- ©«¤l
- 258
- ¥DÃD
- 77
- ºëµØ
- 0
- ¿n¤À
- 385
- ÂI¦W
- 0
- §@·~¨t²Î
- Win7
- ³nÅ骩¥»
- Office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- Taiwan
- µù¥U®É¶¡
- 2010-8-8
- ³Ì«áµn¿ý
- 2021-1-25
|
[µ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
ÁÂÁÂ |
|