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

for i=1 to 10 
    i=i+1
next i

sub test()
    a=a
        b=b
            c=c
end sub 

for i=1 to 10 
    i=i+1
next i

sub test()
    a=a
        b=b
            c=c
end sub 

1
2
3
4
5
6
7
8
9

for i=1 to 10 
    i=i+1
next i

sub test()
    a=a
        b=b
            c=c
end sub 

1
2
3
4
5
6
7
8
9

for i=1 to 10 
    i=i+1
next i

sub test()
    a=a
        b=b
            c=c
end sub 

keeptry wrote:
但我跑完後發現結果跟你的不太一樣，資料的位置有區別
目前看起來金額跟%的位置都往左 shift , 還有所有的季度顯示是連在一起的
請問是為什麼呢?...(恕刪)

snare wrote:
程式自動化、美觀，請自行另加程式碼處理...(恕刪)

keeptry wrote:
但有時候是在 Set Table 那一行
有時候是在下圖中
Sheets("sheet1").Range(Cells(1, 1), Cells(Table.Length, Table(2).Cells.Length)) = TempArray()
這一行，不過我看不出來為什麼就是了XD
若直接執行 snare 大提供的檔案，就不會有問題 (雖然是完全一模一樣的程式碼)
...(恕刪)

snare wrote:
其它年表、季表
url_a ：只需要改最後4個字(股票代號)
url ：要改2個地方
一、STOCK_ID=(股票代號)
二、年表、季表、年份，請照下面代碼修改
...(恕刪)

snare wrote:
可能
1、 url，url_a 對照的各表單的代碼改錯
2、您的檔案中，有正在跑的副程式影響
3、您的程式中的全域變數，剛好和我的範例變數同名稱
4、其它不明原因

keeptry wrote:
source 抓下來的資料長怎麼樣子...(恕刪)

keeptry wrote:
...
我用的是 office 2010, 我執行的是範例中的網頁
程式碼也完全沒改

我後來發現，有可能是因為我把程式碼複製，貼到我另外一個檔案中的模組去執行而發生錯誤

就跑到某一行程式碼的時候發生78樓的錯誤，但有時候是在 Set Table 那一行
有時候是在下圖中
Sheets("sheet1").Range(Cells(1, 1), Cells(Table.Length, Table(2).Cells.Length)) = TempArray()
這一行，不過我看不出來為什麼就是了XD

若直接執行 snare 大提供的檔案，就不會有問題 (雖然是完全一模一樣的程式碼)

(恕刪)

yuehmao wrote:
在下把 snare大大 PO在 71F 的範例做了些修改,變成如下的畫面呈現。
71F(75) 的範例改成如下,
也稍為修改了輸入資料的地方,當不小心輸入錯誤可以退回上一步再重新輸入。...(恕刪)

yuehmao wrote:
Sheets("sheet1").Range(Cells(1, 1), Cells(Table.Length, Table(2).Cells.Length)) = TempArray()
---> [Range].Length
這種用法在下也是初次見到...^^"
有稍為去查了一下 MSDN 的相關說明，但又沒找到...
...(恕刪)