- ©«¤l
- 549
- ¥DÃD
- 152
- ºëµØ
- 0
- ¿n¤À
- 691
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- OFFICE 2010
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-8-10
- ³Ì«áµn¿ý
- 2022-9-7
|
¦^´_ 1# minture3
¸Õ¸Õ¬Ý- Sub test()
- With Application.FileDialog(msoFileDialogFolderPicker)
- .InitialFileName = "\\Nsa310\¦ô»ù³Æ¥÷\³Æ-¹q¸£¦ô»ù"
- .Show
- '§ä¥X¸ô®|
- On Error GoTo myLINE
- myFile = .SelectedItems(1)
- End With
- Exit Sub
- myLINE:
- MsgBox "¤w¨ú®ø"
- End Sub
½Æ»s¥N½X |
|