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 仁 的頭像
    Chang 仁

    i飛翔～仁仔

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

    E-mail轉寄