網頁資料下載簡化 - Excel程式區

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

1^# 跳轉到 »

發表於 2012-7-2 23:12 | 顯示全部帖子

回復 carzyindex
有此網頁好辦些,但下載還是很費時的,慢慢的測試吧!!
GBKEE 發表於 2011-5-17 16:04

GBKEE大大,下載測試檔測試時第一支個股下載完畢後,會出現 "執行階段錯誤'424':此處需要物件" ,偵錯後會指向這一段程式" Sheets(日期 & "-" & 股票代號).Cells.Clear ",小弟還是初學者,想請問大大這一段代表什麼意思??請大大賜教

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

2^#

發表於 2012-7-4 00:02 | 顯示全部帖子

回復 28# GBKEE

感謝GBKEE大大的回覆,小弟下載#16的測試檔做測試每次跑到第2檔1102時就會發生錯誤,且第2檔股票Sheet的內容會被這一段指令Clear掉,且代號的Sheet會被刪除掉;若只設定1檔則可完成,小弟還是找不出哪裡的問題,請問大大是哪裡的問題?? THX!!

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

3^#

發表於 2012-7-4 17:48 | 顯示全部帖子

回復 gracyei
將檔案上傳看看
GBKEE 發表於 2012-7-4 16:13

測試檔是從本帖16樓下載,無做修改,麻煩GBKEE大大看一下

測試.rar (17.46 KB)

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

4^#

發表於 2012-7-6 21:51 | 顯示全部帖子

回復 gracyei
修改如下
GBKEE 發表於 2012-7-5 15:47

感謝GBKEE大大的幫忙,可以順利下載了!!

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

5^#

發表於 2012-7-11 00:12 | 顯示全部帖子

回復 gracyei
修改如下
GBKEE 發表於 2012-7-5 15:47

GBKEE大大
想請教一下,若下載完的Sheet名稱只要代號就好,不需要日期的話是不是修改32#的程式碼
13列: ActiveSheet.Name = 日期 & "-" & 股票代號 => ActiveSheet.Name = 股票代號
15列:With Sheets(日期 & "-" & 股票代號) => With Sheets(股票代號)
17列:.Name = 日期 & "-" & 股票代號 => .Name =股票代號
就可以了呢??感謝教導!!

帖子: 12
主題: 2
精華: 0
積分: 14
點名: 0
作業系統: Window7
軟體版本: Office2003
閱讀權限: 10
註冊時間: 2012-6-26
最後登錄: 2023-8-18

論壇贊助勳章

6^#

發表於 2012-7-11 19:55 | 顯示全部帖子

回復 gracyei

沒錯啦!
可是......這個自己RUN就有答案
若怕不小心改錯,可先另外複製-份原稿

多RU ...
HSIEN6001 發表於 2012-7-11 00:32

已有自己做過測試,但會變成無法下載,所以才發問,小弟還是初學者很多指令還不是很了解,請各位大大教導,謝謝!!