½Ð±Ð¨Ï¥Îuserform©R¥O¯Ã³]©w³sµ²ÀÉ®×°ÝÃD
- ©«¤l
- 51
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-30
- ³Ì«áµn¿ý
- 2016-7-21
|
½Ð±Ð¨Ï¥Îuserform©R¥O¯Ã³]©w³sµ²ÀÉ®×°ÝÃD
¦U¦ì¤j¤j¦n :
¤p§Ì¬Oè¶}©l¾Çvbaªº·s¤â
³o¬O¤p§Ì©Ò¼gªº¤@¬q«ü¥O
Private Sub CommandButton1_Click()
Dim file As String
Set file = GetObject("G:\MTD\MSS\0000¤u§@ÀÉ\123123.docx")
file.Application.Visible = True
Set f = CreateObject("Scripting.FileSystemObject")
If f.FileExists("G:\MTD\MSS\0000¤u§@ÀÉ\123123.docx") = False Then MsgBox "¤å¥ó¤£¦s¦b"
End Sub
³o¤@¬q³£¤@ª½³Qn¨D©w¸qfile ¯uªº§¹¥þ¤£ª¾¹Dn«ç»ò¿ì¤~¦³¿ìªk¨Ï§Úªº»yªk¥i¥H¤@«ö«ö¶s´N³sµ²¶}±Ò§ÚnªºÀÉ®×
ÁٽЦU¦ì«e½ú«ü¾É!!!! |
|
|
|
|
|
|
- ©«¤l
- 51
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-30
- ³Ì«áµn¿ý
- 2016-7-21
|
:'( ·PÁ¤jô~~~!!!!! ªGµM¥i¥H¥Î¤F
¥i¬O n¬OnÅýUSERFORMªº«ö¶s³sµ²¨ì¥t¤@ÓUSERFORM ³o¤@±øµ{¦¡½X¦ü¥G´N¤S¤£¥i¦æ¤F..
Ãø¹D¬O¤£¦Pªº¶}±Ò³nÅ餣¦P µ{¦¡½Xªº¼g¤J´N·|¦³©Ò¤£¦P¶Ü?
³o¼Ë¤l§Ú¤S¸Ó¦p¦ó¼g¤J©O?
±`±`³£·|¦³Åã¥Ü¥¼©w¸q
¨D½Ð«e½ú½ç±Ð~~~~!!!!¦^´_ 2# luhpro |
|
|
|
|
|
|
- ©«¤l
- 51
- ¥DÃD
- 9
- ºëµØ
- 0
- ¿n¤À
- 65
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2016-3-30
- ³Ì«áµn¿ý
- 2016-7-21
|
¦^´_ 4# clio
·PÁ«e½ú §Ú²{¦b¨Ãä¨ÃµLµ{¦¡½X §«ô¤T¦b¦^ÂФ@¦¸!!! |
|
|
|
|
|
|