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

½Ð±Ð¨Ï¥Îuserform©R¥O¯Ã³]©w³sµ²ÀÉ®×°ÝÃD

½Ð±Ð¨Ï¥Î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³£¤@ª½³Q­n¨D©w¸qfile ¯uªº§¹¥þ¤£ª¾¹D­n«ç»ò¿ì¤~¦³¿ìªk¨Ï§Úªº»yªk¥i¥H¤@«ö«ö¶s´N³sµ²¶}±Ò§Ú­nªºÀÉ®×

ÁٽЦU¦ì«e½ú«ü¾É!!!!

¥»©«³Ì«á¥Ñ luhpro ©ó 2016-3-30 22:50 ½s¿è

¦^´_ 1# chaoyiho

°Ñ¦Ò¬Ý¬Ý :
excel vba ¥i§_¶}±Ò wordÀÉ???

½Ð°Ý¦p¦ó¨Ï¥ÎVB¶}±ÒWORDÀÉ,¨ÃŪ¨ú¤º®e?

TOP

:'(  ·PÁ¤j­ô~~~!!!!!   ªGµM¥i¥H¥Î¤F
¥i¬O ­n¬O­nÅý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

TOP

Dim file As String
Set file = GetObject("G:\MTD\MSS\0000¤u§@ÀÉ\123123.docx")

file¤w¸g³Q³]¬°Stringªº¸ê®Æ«¬ºA¡A¤U¤@¦æ¤@©wµLªk°õ¦æ
¸Õ¸Õ
Dim file As Object
clio

TOP

¦^´_ 4# clio


   ·PÁ«e½ú  §Ú²{¦b¨­Ãä¨ÃµLµ{¦¡½X §«ô¤T¦b¦^ÂФ@¦¸!!!

TOP

        ÀR«ä¦Û¦b : ¡i°µ¤Hªº¶}©l¡j¨C¤@¤Ñ³£¬O¬G¤Hªº¶}©l¡A¨C¤@­Ó®É¨è³£¬O¦Û¤vªºÄµ±§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD