- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
2#
發表於 2015-4-16 13:38
| 只看該作者
回復 1# minture3
試試看- Sub test()
- With Application.FileDialog(msoFileDialogFolderPicker)
- .InitialFileName = "\\Nsa310\估價備份\備-電腦估價"
- .Show
- '找出路徑
- On Error GoTo myLINE
- myFile = .SelectedItems(1)
- End With
- Exit Sub
- myLINE:
- MsgBox "已取消"
- End Sub
複製代碼 |
|