'開啟六幅異動表
'宣告變數(T,B)是字串變數,i是短整數
On Error Resume Next '遇到錯誤繼續執行下一行指令
Dim T As String
Dim i As Integer
'令T這字串變數是 "資料夾位址\"
T = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\D.生產相關\2.每日模具異動\模具異動-六福\"
'設順迴圈i從0 到15
For i = 0 To 15
'令B這字串變數是 今天日期減掉i變數後的日期轉換成字串
'字串:4碼年2碼月2碼日中間加"."符號
Dim B As String
B = Format(Date - i, "yyyy.mm.dd")
' 建立T & B 每日模具異動.xlsx位址
' 檢查T & B 每日模具異動.xlsx是否存在
' 唯讀開啟T & B 每日模具異動.xlsx文件
' 找到文件後跳出
Dim filePath1 As String
filePath1 = T & B & " 每日模具異動.xlsx"
If Dir(filePath1) <> "" Then
Workbooks.Open fileName:=filePath1, ReadOnly:=True
Exit For
End If
' 建立T & B每日模具異動.xlsx位址
' 檢查T & B每日模具異動.xlsx是否存在
' 唯讀開啟T & B每日模具異動.xlsx文件
' 找到文件後跳出
Dim filePath2 As String
filePath2 = T & B & "每日模具異動.xlsx"
If Dir(filePath2) <> "" Then '
Workbooks.Open fileName:=filePath2, ReadOnly:=True
Exit For
End If
' 建立T & B每日模具異動.xlsx位址
' 檢查T & B每日模具異動.xlsx是否存在
' 唯讀開啟T & B每日模具異動.xlsx文件
' 找到文件後跳出
Dim filePath3 As String
filePath3 = T & B & "每日模具異動_New.xlsx"
If Dir(filePath3) <> "" Then '
Workbooks.Open fileName:=filePath3, ReadOnly:=True
Exit For
End If
Next i
On Error GoTo 0 '結束錯誤繼續執行
'當上述迴圈跑完了還找不到想要的位址與檔名檔案!
'就跳出提示窗,顯示16天區間日期沒有符合的檔案
'最後結束程式執行
If i = 16 Then
MsgBox "找不到 " & Date & " ~ " & Date - 15 & " 檔案"
End If
