- 帖子
- 4
- 主題
- 2
- 精華
- 0
- 積分
- 7
- 點名
- 0
- 作業系統
- Win10
- 軟體版本
- 2013
- 閱讀權限
- 10
- 性別
- 男
- 來自
- Taiwan
- 註冊時間
- 2016-4-14
- 最後登錄
- 2021-8-5
|
抓檔案資料時，偶而會出現 Erro 1004
我在抓檔案資料時，偶而會出現 Erro 1004，當錯誤時已知道是某一段出現問題。
想請問大大，黃色這段需怎麼修改?
此段我的作法是去尋找A攔關鍵字有找到Manager或Disk時，將G攔的值回傳到表內表格
Sub 圓角矩形1_Click()
i = 0
x = 0
b = "20%"
a = "='C:\Users\Show\Desktop\PLV auto report\"
For j = 1 To 300
Cells(1, 1) = a & "[" & b & ".xls]sheet1'!$A$" & j
If InStr(Cells(1, 1), "MANAGER") Then
Cells(1, 2 + i) = a & "[" & b & ".xls]sheet1'!$B$" & j
i = i + 1
End If
If InStr(Cells(1, 1), "DISK") Then
Cells(2 + x, 1 + i) = a & "[" & b & ".xls]sheet1'!$G$" & j
x = x + 1
End If
If InStr(Cells(1, 1), "MANAGER") Then
x = 0
ElseIf InStr(Cells(1, 1), "'End Test") Then
Exit For
End If
Next j
For y = 0 To 3
For x = 0 To 3
If InStr(Cells(1, 2 + y), (x + 1)) Then
Cells(9, 2 + x) = Cells(1, 2 + y)
For i = 0 To 5
Cells(10 + i, 2 + x) = Cells(2 + i, 2 + y)
Next i
End If
Next x
Next y
End Sub |
|
發表於 2016-4-15 15:34
| 
