標題: 新盈再表181120:中股bug
Joe
同學




UID 2
精華 0
積分 0
帖子 2090
閱讀權限 99
註冊 2011-3-16
用戶註冊天數 4762
用戶失蹤天數 1942

114.76.0.231
發表於 2017-5-8 21:34  資料 私人訊息 
感謝 Ben 桑幫忙
沒盈再表日子難過啊
頂部
woody
同學




UID 257
精華 0
積分 0
帖子 169
閱讀權限 99
註冊 2011-3-25
用戶註冊天數 4753
用戶失蹤天數 1340

111.246.179.180
發表於 2017-5-8 21:40  資料 私人訊息 
為表示感謝...

直接更名為"Ben再表" XD

沒Ben出手相助,後果不敢想...

[ 本帖最後由 woody 於 2017-5-8 21:50 編輯 ]
頂部
david31408
同學




UID 62018
精華 0
積分 0
帖子 269
閱讀權限 99
註冊 2016-5-25
用戶註冊天數 2865
用戶失蹤天數 1857

220.136.84.134
發表於 2017-5-8 23:34  資料 私人訊息 


QUOTE:
原帖由 mikeon88 於 2017-5-8 21:03 發表
昨天Ben桑幫我們修改盈再表到1:00多,足感心兮(台語的e)。
一位素昧平生的網友這麼熱心幫忙,萬分感謝。
已邀請他免費來上課,聊表謝忱。
希望他務必賞光。


感恩  Ben桑
好心也會讓您也賺大錢!!!
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 0

42.73.114.6
發表於 2017-5-9 06:00  資料 主頁 文集 私人訊息 
On May 9, 2017, at 1:23 AM, 方家晟 wrote:

1. 已將xlInsertDeleteCells修改為xlOverwriteCells,有跟您提過可能是摘取資料位置跑掉的問題之一。2. 已將上市公司資料抓取重複使用的QueryTables.Add以Function替代、重寫,上櫃公司的部分未處理。
3. 上櫃公司有複製到"goto err"產生錯誤,未跟舊檔比對,姑且停用這行。
4. 開啟檔案的錯誤暫定為跳過,未釐清。刪去檔案關閉前的觸發事件(與儲存事件重複)。
5. 您說股價資料沒問題,但仍看到櫃買中心資料可能有異常,未處理。  

6. 多項替換財報科目for迴圈內的if放在同一個迴圈內就行,未處理。

諸多小地方沒有記清楚,您在幫忙檢查看看。  

這次修改程式碼後,上市公司的股息摘取公式(無變動)位置應該無誤。





On May 9, 2017, at 1:26 AM, 方家晟  wrote:

補充說明:
7. 基本資料的已匯入資料位置調整有改往左一欄,原先檢查抓冇股價的紅字問題已處理。





On May 9, 2017, at 1:45 AM, 方家晟  wrote:

補充說明:8. 之前改用Find來摘取資料,是否會因不同版本出現錯誤,不確定。將暫用的大範圍range改為資料匯入的使用範圍。
9. 暫時將不同資料匯入前後錯誤訊息(0=沒出錯)放在儲存格L1,檢查方式有待改善。







On May 9, 2017, at 5:58 AM, Michael On  wrote:

✉Dear    Ben     桑:

抓不到董監事,
請再檢查一下,
請用此檔修改,謝謝
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 0

42.73.114.6
發表於 2017-5-9 08:43  資料 主頁 文集 私人訊息 
請用Office2016同學再重新下載1705c,幫忙測試有無其它問題,
今只剩抓不到董監事未修復,
麻煩回報結果,謝謝。
頂部
掘礦者
同學




UID 41112
精華 0
積分 0
帖子 425
閱讀權限 99
註冊 2015-4-19
用戶註冊天數 3267
用戶失蹤天數 1963

1.165.161.252
發表於 2017-5-9 09:36  資料 私人訊息 
頂部
goldenweek
同學




UID 400
精華 0
積分 0
帖子 195
閱讀權限 99
註冊 2011-5-3
用戶註冊天數 4714
用戶失蹤天數 1709

1.172.124.23
發表於 2017-5-9 09:54  資料 私人訊息 
作業系統:WIN10
OFFICE:2016
執行後,結果如下圖:
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 0

42.73.114.6
發表於 2017-5-9 09:55  資料 主頁 文集 私人訊息 
請測台股
頂部
molly8159
同學



UID 1594
精華 0
積分 0
帖子 22
閱讀權限 99
註冊 2012-4-10
用戶註冊天數 4371
用戶失蹤天數 16

220.143.4.251
發表於 2017-5-9 12:37  資料 私人訊息 
excel2016版~~台股 ' 陸股都正常了 , 港股有些可以正常使用, 有些抓不到預期報酬率 ,感謝大家的努力與幫忙
頂部
molly8159
同學



UID 1594
精華 0
積分 0
帖子 22
閱讀權限 99
註冊 2012-4-10
用戶註冊天數 4371
用戶失蹤天數 16

220.143.4.251
發表於 2017-5-9 13:23  資料 私人訊息 
第一次開啟還正常 , 再次開啟盈再表又是跑掉 , 中港台都抓不到了 , 後又重新下載1705c , 又可以跑出台股 , 但港陸還是不行 , 不穩定
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 0

111.83.123.127
發表於 2017-5-9 16:07  資料 主頁 文集 私人訊息 
太感謝Ben桑中午忙到2:37才吃飯
請用office2016同學再重新下載1705c幫忙測試,回報狀況
請同學回報台股問題時附上儲存格L1裡的內容,謝謝!




On May 9, 2017, at 2:37 PM, 方家晟 wrote:

已處理上次未處理的部分,勉強堪用。 先來用午膳




On May 9, 2017, at 3:11 PM, 方家晟  wrote:

1. 麻煩再幫忙修改兩處(2850抓合併非合併的檢查會出錯),Module4程式碼最底兩個Function內必要各加上一句On Error Resume Next :

Public Function SEASONCU(dc As Integer)
    '若合併報表缺最新年份改抓非合併6195
    On Error Resume Next
    SEASONCU = Year(Date) - (Val(Left(Cells(4, dc), Len(Cells(4, dc)) - 3)) + 1911) > 2
End Function

Public Function YEARCU(dc As Integer)
    '若合併報表缺最新年份改抓非合併6195
    On Error Resume Next
    YEARCU = Year(Date) - (Val(Cells(4, dc)) + 1911) > 2
End Function

2. 請網友回報台股問題時附上儲存格L1裡的內容,如2850的L1儲存格內:
0 基本資料:00 除權息:00 季合併損益表:005 季非合併資產負債表:00 年合併損益表:000 年非合併資產負債表:00 股利:00 籌碼:00 轉投資:00 轉投資:00 營收:00 上市今年歷史股價:00 上市各年歷史股價:00


解讀"季合併損益表:005",抓表的錯誤只看前兩個數字"00"=就沒有問題,第三個數字是"檢查過程"的錯誤可忽略,"5"是抓下一個季合併資產負債表缺資料,因季表資料要摘取年度格式特殊的關係而導致檢查錯誤,就會改抓非合併報表。

解讀"年合併損益表:000"第三個數字,一樣是檢查未通過(缺最新年份),因此會改抓非合併報表。
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 0

42.72.20.17
發表於 2017-5-9 17:43  資料 主頁 文集 私人訊息 
2850缺第二張表AO季合併資產表
0 基本資料:00 除權息:00 季合併損益表:00 季合併資產負債表:50 年合併損益表:000 年非合併資產負債表:00 股利:00 籌碼:00 轉投資:00 轉投資:00 營收:00 上市今年歷史股價:00 上市各年歷史股價:00

頂部
Xnite
同學




UID 65932
精華 0
積分 0
帖子 47
閱讀權限 99
註冊 2016-10-17
用戶註冊天數 2719
用戶失蹤天數 1882

150.117.220.56
發表於 2017-5-9 19:09  資料 私人訊息 
2850 我用新的跑是這樣
0 基本資料:00 除權息:00 季合併損益表:00 季合併資產負債表:00 年合併損益表:00 季合併資產負債表:00 股利:00 籌碼:013 股利:00 籌碼:00 轉投資:00 轉投資:00 營收:0

台中美港跑都正常

再次感謝 Mike 和各位同學努力修復

Win10 Office 2016 64



[ 本帖最後由 Xnite 於 2017-5-9 19:11 編輯 ]
頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 0

42.72.20.17
發表於 2017-5-9 19:46  資料 主頁 文集 私人訊息 
台股已修復完成,請同學現在再次重新下載1705c。
2850短缺前幾年資料係原資料表所然。

非常感謝Ben桑大力相助。
盈再表前後受到許多程式高手幫忙,阿福、Alex吳、......,
我都不會忘記,謝謝。



頂部
mikeon88
管理員
Rank: 9Rank: 9Rank: 9


UID 1
精華 0
積分 0
帖子 15453
閱讀權限 255
註冊 2007-1-14
用戶註冊天數 6284
用戶失蹤天數 0

42.72.20.17
發表於 2017-5-9 22:25  資料 主頁 文集 私人訊息 
把美、港、中、全球的程式xlInsertDeleteCells也全改為xlOverwriteCells,
這樣應該就都OK了,
謝謝Ben桑指導。
頂部