(不定期更新)使用VBA解決 excel web 查詢無法匯入、匯入太慢的股市資料

snare wrote:
沒排版
擋住畫面的按鈕
您把我故意留的全改掉了
我本來想讓抄的人，稍微辛苦一下的說sorry

不過，這種美觀、輸入的修改也沒關係啦
不要改到“100%完全自動化”就好，留一點變數給他們思考
71樓、75樓的範例，內文就有寫，本來就是寫出來給大家抄的XD
您願意幫他們改，我很欣賞100分，那些都是我不願意做的事...(恕刪)

snare wrote:
....
.length 是 CreateObject("htmlfile") 的功能
Table.Length，該資料表格的最大長度(列數)
Table(2).Cells.Length，該資料表格的最大寬度(欄數)，為什麼用2前面解釋過了

會這樣做，是因為資料量太多
有時是上萬格的資料，如果用迴圈一次一格填入，會浪費excel 的處理時間
所以先把資料丟到陣列裡

range.cells(第一格，最後一格)=陣列(需和cells同大小)
一次填入全部資料

yuehmao wrote:
在下決定還是把動手的機會留給有興趣的人好了...呵呵^^"
...(恕刪)

yuehmao wrote:
因為陣列的用法沒有 Length 這一個屬性
...(恕刪)

yuehmao wrote:
反過來把 Range 指定給 Array (Array = Range) 卻是有問題的....
...(恕刪)

snare wrote:
...
替代用法

Sub test()
Dim ttt(1 To 4, 1 To 3)
Debug.Print UBound(ttt, 1)
Debug.Print UBound(ttt, 2)

End Sub
上...(恕刪)

snare wrote:
...
沒問題的

Sub test()
Dim ttt As Variant
ttt = Range("a1:c3")
For Each tt In test
Debug.Print tt
Next
End Sub
...(恕刪)

snare wrote:
因為這種用途的程式，非常多人要，是可以賣錢的…
如果自己有辦法改到很完美的話，我是不介意的
完成度太高的範例，也許有心人士，會沒有付出任何努力，就直接拿去……
1個人收100就好，100個人就有10000收入，如果改成月費制口哨

我不差這點小錢，只是看了一些專業網站上的範例
還有一些“假”分析師在賣的程式，都是那幾種不穩又慢的方法，天下一大抄
(“真”分析師的程式，就超強了，人家在頂樓，而我只到門口而己，那種的才有收費的資格)

這篇範例中，我唯一用到的，只有抓每日收盤價格，來計算我的股票損益而己
其它的只是打發時間，太無聊才po文的...(恕刪)

yuehmao wrote:
但是這個的測試中有個盲點，那就因為是 ttt 是一個變形型態,
所以,當做執行下面這樣的指令後,只是讓 ttt 變形為 Range 型態而已,
ttt = Range("a1:c3")
感覺這並不是真正的把 Range 指定給 Array
...(恕刪)

yuehmao wrote:
記得之前這樣的測試是可以指定給 ttt 一個 range 資料
但是，當用 LBound 或 Ubound 來取得 ttt 邊界資訊時，卻會出現執行階段的Error..
反覆測試下，還是沒有辦法解決 Error 的問題....
...(恕刪)

snare wrote:
可以呀??

Sub test()

Dim ttt As Variant
ttt = Range("a1:c5")
Debug.Print UBound(ttt, 1)
Debug.Print UBound(ttt, 2)
Range("e1:g5") = ttt

End Sub

不過取邊界好像沒什麼意義耶…
會把range指定到array中，不知道邊界也沒辦法指定的
邊界早就知道了...(恕刪)

snare wrote:
嚴格來說，應該是指定到記憶體中
這樣資料就可以很容易的在"記憶體中計算"
不用再寫一大堆迴圈，從儲存格，一格一格拿，這很浪費時間的

迴圈中計算所需要的資料，最好全部在記憶體中，對效能有很大的幫助

Sub test() '60萬筆資料測試

Dim ttt As Variant
ttt = Range("a1:j60000")

aaa = Timer
For i = 1 To 10
For j = 1 To 60000
bbb = bbb + Cells(j, i) '從格子拿資料
Next
Next
Debug.Print "timer1=" & Timer - aaa, bbb

aaa = Timer
For Each bbb In ttt
ccc = ccc + bbb '從記憶體中拿資料
Next
Debug.Print "timer2=" & Timer - aaa, ccc

End Sub
時間比較
格子timer1=2.375
記憶體timer2=0.0234375

計算結果是一樣的，不過時間快了100倍
程式也可以簡化一點。
...(恕刪)

yuehmao wrote:
意思就是把 Range 指定給 Array---> ttt = Range()
然後 ttt 的運用上不是像右邊這樣 ---> ttt.Cells(x,x)　
而是像這個右邊這樣 ---> ttt(0) ttt(1) ttt(2)
在下認為這才是真正的把 Range 指定給 Array....(恕刪)

snare wrote:
我很久沒看書了很多基...(恕刪)

snare wrote:
可以呀??

Sub test()

Dim ttt As Variant
ttt = Range("a1:c5")
Debug.Print UBound(ttt, 1)
Debug.Print UBound(ttt, 2)
Range("e1:g5") = ttt

End Sub

不過取邊界好像沒什麼意義耶…
會把range指定到array中，不知道邊界也沒辦法指定的
邊界早就知道了...(恕刪)