暱稱: joey0415
中學生
- 帖子
- 361
- 主題
- 57
- 精華
- 0
- 積分
- 426
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- 2003,2010
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-5-13
- 最後登錄
- 2022-12-8
|
[發問] range(cells(),cells())產生1004錯誤
我有三個excel檔，在第一個中寫程式如下，可以執行
A打開B找區域最大值後，貼回A中，關閉後，再打開C區域最大值後，貼回A中，關閉後，結速程式
第二個卻說1004錯誤
一個用range來設定區域沒有問題，另一個改成range(cells(),cells())的方式卻產生錯誤！請高手指點迷津
Sub 正確可執行()
Workbooks(1).Worksheets("test").Activate
For i = 3 To 5
sname = Workbooks(1).Worksheets("test").Cells(i, 1)
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sname & ".xlsx"
If Application.Sum(Workbooks(2).Worksheets("cr").Range("b2:b5")) > 0 Then
Workbooks(1).Worksheets("test").Cells(i, 5) = Application.Sum(Workbooks(2).Worksheets("cr").Range("b2:b5"))
End If
Workbooks(2).Close
Next
End Sub
Sub 錯誤不可執行()
Workbooks(1).Worksheets("test").Activate
For i = 3 To 5
sname = Workbooks(1).Worksheets("test").Cells(i, 1)
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & sname & ".xlsx"
If Application.Sum(Workbooks(2).Worksheets("cr").Range(Cells(11, 2), Cells(11, 5))) > 0 Then
Workbooks(1).Worksheets("test").Cells(i, 5) = Application.Sum(Workbooks(2).Worksheets("cr").Range(Cells(11, 2), Cells(11, 5)))
End If
Workbooks(2).Close
Next
End Sub |
|
發表於 2014-12-17 22:38
| 
