Set fs = CreateObject("Scripting.FileSystemObject")
If fs.FileExists(file_path & "\" & input_id & ".xls") Then
Workbooks.Open (file_path & "\" & input_id & ".xls")
Else
MsgBox ("檔案不存在！")
Exit Sub
End If
If fs.FileExists(file_path & "\" & input_id & ".xls") Then
Workbooks.Open (file_path & "\" & input_id & ".xls")
Else
MsgBox ("檔案不存在！")
Exit Sub
End If
請先 登入 以發表留言。