'選擇的檔案路徑賦值變數P Else Exit Sub '如果沒有選擇儲存路徑,則退出程式. End If End With If Right(p, 1) <> "\" Then p = p & "\" f = Dir(p ...
確定! 回上一頁