Andy2483

回復 10# cowww


    這樣回復代表沒問題吧!謝謝一起學習

cowww

回復 6# 准提部林

非常感謝准提部林大大的解惑

我終於看懂准提部林大大提供的語法了
以下是我的認知，如有錯誤還請各位大大指教
這段語法是簡化後面"Cells.Copy" & "Close"的寫法
前面將不同的檔名(不管"每日模具異動.xlsx"前面有沒有空格或_)都設定為Set xBook，這樣後面的執行都只要寫成xBook+........就好
Dim T As String, B As String, i As Integer, xBook As Workbook
T = "\\shl-group.com\dept\MFMG\B.各組資料 (Team inform)\E.生管組 (PPC group)\X.自動化工具(勿刪)\模具異動-六福(急件1.9專用)\"
For i = 0 To 10
   B = Format(Date - i, "yyyy.mm.dd")
   If Dir(T & B & "_每日模具異動.xlsx") <> "" Then
      Set xBook = Workbooks.Open(T & B & "_每日模具異動.xlsx", ReadOnly:=True)
      Exit For
      
   ElseIf Dir(T & B & " 每日模具異動.xlsx") <> "" Then
      Set xBook = Workbooks.Open(T & B & " 每日模具異動.xlsx", ReadOnly:=True)
      Exit For
   End If
   
Next
If xBook Is Nothing Then MsgBox "找不到目標檔案": Exit Sub
End If
xBook.Sheets("LF").Columns("A:AG").Cells.Copy
' ~ do something ~
xBook.Close 0