有沒有可能跟我在大陸工作,使用翻牆下載有關,
程式停止在這行代碼:RowCount = myTable.Rows.Length,
我擷取了部分訊息,看看有沒有機會借助您的經驗判斷,感謝。
(1) 即時運算視窗:?myHTML.body.innertext
??⊥??瑁?
THE PAGE CANNOT BE ACCESSED!
?摰?扯?嚗??瑁????Y瘜??橘?隢??汗?典???岫嚗??舐窗摰X??隤支誨蝣潛嚗/A
FOR SECURITY REASONS, THIS PAGE CAN NOT BE ACCESSED!
?典隞?A HREF="history.back()">??銝??/A>銝衣匱蝥隞?雿???誑銝閰梢??嚗?02)8101-5932, (02)8101-5955??BR> YOU COULD GO BACK TO PREVIOUS PAGE OR CALL US FOR FURTHER HELP: (02)8101-5932, (02)8101-5955.
(2) xmlhttp.ResponseText
: ResponseText : "
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
頁面無法執行
THE PAGE CANNOT BE ACCESSED!
因為安全性考量,您所執"
Dylan67 wrote:
有沒有可能跟我在大陸工作,使用翻牆下載有關,
程式停止在這行代碼:RowCount = myTable.Rows.Length,
因為語系的關係,您那堆亂碼,大意就是英文寫的禁止存取
程式碼停在那行是因為網站禁止存取,網頁中沒資料(表格),所以出錯
twse有流量限制,而翻牆用的代理本來就很容易被擋,無解
但這只是暫時的,稍後下載就行
您可以用773樓on error的寫法跳過錯誤,或是在
myHTML.body.innerhtml = convertraw(.responsebody)
下面加上if 暫時中斷程式、停止下載
if instr(myHTML.body.innertext,"THE PAGE CANNOT BE ACCESSED!") >0 then
exit sub
end if
或是改用遠端搖控台灣家中的電腦開excel下載
如果家中的ip分享器有VPN+NAT功能
也可自建私人的vpn server連線,連電腦都不用開
附件是VBA讀取2個不同庫的測試速度(程式碼幾乎一致),雖說都不足1秒,但差距4倍,
我嘗試過以下功效甚微的作法:
1. Set → Open 語法
2. InnoDB改MyISAM存储引擎
Google+百度,發現多是指向MySQL ODBC 或 my.ini等環境設置的問題,
現在很傷腦筋讓我猶豫的是:
1. 原有Access庫雖然已拆分庫並加上了壓縮程序,可是部分庫又快突破2G上限
(好奇怪,怎麼一下子2G就花完了)
2. 若是一舉改成MySQL庫,光讀就這麼慢,那寫入不就更慢
(我完整的程序及數據在Access原庫上就要跑個15分鐘)
故想請您給我點指導及方向,怎麼順利轉換到MySQL庫上,拜謝。Dylan
[點擊下載]
[點擊下載]
Dylan67 wrote:
故想請您給我點指導及方向,怎麼順利轉換到MySQL庫上
access 轉 mysql ? (搞錯了,這是sql server用的)
微軟有提供SSMA程式直接轉
https://support.microsoft.com/zh-tw/office/將-access-資料庫移轉至-sql-server-7bac0438-498a-4f53-b17b-cc22fc42c979
SQL Server 移轉小幫手
https://docs.microsoft.com/zh-tw/sql/ssma/sql-server-migration-assistant?view=sql-server-ver15
vba 中的 mysql 還沒試,因為要先灌visual stidio軟體好幾十G
才能裝mysql-installer-community-8.0.27.0
有空再試
20211108 10:43補充
本想試試您的mysql,但裝完mysql之後
我休閒用的遊戲馬上就出問題…
遊戲內的商店打不開,登出後無法登入
反覆測試了幾次visual stidio(自訂套件)+mysql,只要一裝遊戲就壞,解除就正常
目前試出visual stidio(基本安裝)+mysql正常
不好意思,暫時放棄測試您的mysql,休閒第一、回答問題第2
202111109 20:30補充…
Dylan67 wrote:
附件是VBA讀取2個不同庫的測試速度(程式碼幾乎一致),雖說都不足1秒,但差距4倍,
稍微玩了一下,測試的結果是access比較快
這種資料量沒辦法發揮出mysql的特長
您完整的程序15分鐘中,能分的出讀取、計算,各佔多少時間嗎?
也許改善計算的程式碼,可以比改善讀取方式,還增加更多的效能
rainbowsperm wrote:
https://mops.twse.com.tw/mops/web/ajax_t163sb19?encodeURIComponent=1&step=1&firstin=1&TYPEK=sii&code=&year=110&season=01
抓到1個table的資料後,就無法繼續往下抓了
想過用for loop, 但也是會中途斷掉~~~
這個網頁,不建議用另存csv的方式,因為網頁開著不理它
過一下再下載,按下另存csv按鈕時,常常出現檔案不存在
直接抓網頁表格就好
請參考1044樓範例
主要需修改幾個地方,其它小地方請自行處理
一、post 改成 get
二、不需要 Referer
三、…5.1… 改成 CreateObject("msxml2.xmlhttp")
四、改用 .responsetext
五、使用逐格寫入方式,加上for ... next 迴圈
For i = 0 To HTMLsourcecode.all.tags("table").Length - 1
Set Table = HTMLsourcecode.all.tags("table")(i).Rows
Call Cell_by_Cell("工作表1", Table)
Next i
六、如果要用陣列寫入,請自行修改Cell_by_Cell()副程式
關閉廣告