- 帖子
- 43
- 主題
- 12
- 精華
- 0
- 積分
- 72
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- win 8.0
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2016-2-9
- 最後登錄
- 2020-4-13
|
出現執行階段錯誤1004應用程式或物件定義上錯誤
Public Sub 匯出收盤價()
Application.ScreenUpdating = False
Sheets("清單").Select
V = Range("A2").End(xlDown).Row
Dim a()
Dim b()
ReDim a(V - 1)
ReDim b(V - 1)
Sheets("收盤價網路").Select
For i = 0 To V - 1
a(i) = Cells(i * 10 + 8, 2)
b(i) = Cells(i * 10 + 13, 2)
Next
ChDir "C:\Users\michael\Desktop\108\focvs.xlsm"(目前改為ChDir "C:\Users\michael\Desktop\108")
Workbooks.Open Filename:="C:\Users\michael\Desktop\108\focvs.xlsm"
Sheets("清單").Select
For i = 2 To Range("A1").End(xlDown).Row
Sheets("清單").Select
k = Cells(i, 2)
If k = "" Then Exit For
Sheets(k).Select
h = Range("b3").End(xlDown).Row
Cells(h + 1, "b") = a(i- 2)
Cells(h + 1, "e") = b(i- 2)
Next
Windows("網路資料抓取.xlsm").Activate
Sheets("網路收盤價").Select
Application.CutCopyMode = True
Workbooks("focus. xlsm ").Save
Workbooks("focus. xlsm ").Close
Application.ScreenUpdating = True
MsgBox "更新完畢!", vb0XOnly, "通知"
End Sub
現目前跑到這裡
cells(h+1,"b")=a(i-2)
cells(h+1,"e")=b(i-2)出現執行階段錯誤1004應用程式或物件定義上錯誤
ps:我開一個檔案網路資料抓取工作表有清單及收盤價網路另一個focus工作表有清單及各公司的收盤價資料
chdir "c:\users\michael\desktop\108"
workbooks.open filename:="c:\users\michael\desktop\108\focus.xlsm"
網路資料抓取和focus檔案都存放在c:\users\michael\desktop\108檔案夾裡面 |
|
發表於 2016-2-12 10:04
| 
