返回列表 上一主題 發帖

[發問] [求助]資料查詢沒有回應

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2013-10-1 21:40 | 顯示全部帖子
回復 1# herhsiu


    應該是溢位問題,改這兩個
(1)Dim i As Long       'Integer  運算溢位,故改為 Long
(2)idx As Long

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
2#
發表於 2013-10-2 19:39 | 顯示全部帖子
回復 5# GBKEE
這份股權資料作者來自[笑話一籮筐]部落格的李先生,原始檔案如下
大股東的透視鏡-原始檔.rar (43.53 KB)

-------------------------------
回復 1# herhsiu
根據您修改的部份源碼,判斷您應該是想要下載所有代號的股權資料
    n = Sheet1.Range("A65536").Rows.End(xlUp).Row
    For id = 2 To n
        Range("D2") = id
        stkno = Sheet1.Cells(id, 1) '個股代碼

因為全部股票資料量,運算會產生溢位,故提醒 Integer  要改為 Long
股權.rar (292.81 KB)

TOP

HSIEN6001

帖子
219 
主題
24 
精華
0 
積分
243 
點名
0  
作業系統
Windows10 
軟體版本
Office2016 
閱讀權限
20 
性別
女 
註冊時間
2012-4-18 
最後登錄
2022-2-7 

論壇榮譽勳章論壇贊助勳章
3#
發表於 2013-10-3 08:17 | 顯示全部帖子
Sorry,,,百密一疏
改一下這裡
    Sheets("資料").Range("A" & CStr((idx - 2) * 17 + 1) & ":A" & CStr((idx - 2) * 17 + 17)) = 代號
股權.rar (517.81 KB)

TOP

        靜思自在 : 多做多得。少做多失。
返回列表 上一主題