- 帖子
- 438
- 主題
- 67
- 精華
- 0
- 積分
- 531
- 點名
- 30
- 作業系統
- win7
- 軟體版本
- office 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2012-10-30
- 最後登錄
- 2024-11-19
|
30#
發表於 2013-1-7 12:47
| 只看該作者
- Sub Detail()
- Dim FRng As Range
- Dim A As Range, Rng As Range
- Dim i As Integer
- fs = "W:\Payment Daily Report\HK ETA update.xlsx"
- Set Wb = Workbooks.Open(fs)
- With ThisWorkbook.Worksheets("State")
- For Each A In .Range(.[A2], .Range("A1").End(xlDown))
- Set FRng = Wb.Sheets("HK HAIPONG").Range("A:A").Find(A, LookAt:=xlWhole, SearchDirection:=xlPrevious)
- If Not FRng Is Nothing Then
- A.Offset(, 2) = FRng.Offset(, 11).Value
- If Rng Is Nothing Then Set Rng = A.Offset(, 2) Else Set Rng = Union(Rng, A.Offset(, 2))
- End If
-
- Set FRng = Nothing
- Next
- End With
- Wb.Close 0
-
- fs = "W:\Payment Daily Report\Mainland ETA Update.xlsx"
- Set Wb = Workbooks.Open(fs)
- With ThisWorkbook.Worksheets("State")
- For Each A In .Range(.[A2], .Range("A1").End(xlDown))
- Set FRng = Wb.Sheets("MAILAND ETA").Range("A:A").Find(A, LookAt:=xlWhole, SearchDirection:=xlPrevious)
- If Not FRng Is Nothing Then
- A.Offset(, 3) = FRng.Offset(, 9).Value
- If Rng Is Nothing Then Set Rng = A.Offset(, 3) Else Set Rng = Union(Rng, A.Offset(, 3))
- End If
-
- Set FRng = Nothing
- Next
- End With
- Wb.Close 0
-
- fs = "W:\Payment Daily Report\Outstanding Payments.xlsm"
- Set Wb = Workbooks.Open(fs)
- With ThisWorkbook.Worksheets("State")
- For Each A In .Range(.[A2], .Range("A1").End(xlDown))
- Set FRng = Wb.Sheets("outstanding payments").Range("A:A").Find(A, LookAt:=xlWhole, SearchDirection:=xlPrevious)
- If Not FRng Is Nothing Then
- A.Offset(, 6) = FRng.Offset(, 4).Value
- If Rng Is Nothing Then Set Rng = A.Offset(, 6) Else Set Rng = Union(Rng, A.Offset(, 6))
- End If
-
- Set FRng = Nothing
- Next
- End With
- Wb.Close 0
-
- End Sub
我以前這個程式都無問題，但今日不知道為什麼出現問題，在If Not FRng Is Nothing Then這句上出現： code execution has been interrupted
請問是什麼意思？ |
|
發表於 2012-12-26 17:17
| 
