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
arrow
arrow
    全站熱搜

    Chang 仁 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄