- 帖子
- 746
- 主題
- 243
- 精華
- 0
- 積分
- 1002
- 點名
- 0
- 作業系統
- WINXP
- 軟體版本
- OFFICE2003
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2011-5-30
- 最後登錄
- 2024-5-3
|
[發問] 連接網路抓取資料匯入工作表速度慢?有無辦法改善?
本帖最後由 t8899 於 2013-9-9 06:08 編輯
把兩個連接對外網路抓資料巨集拿掉，巨集執行完費時不到1秒
Sub zzzzz()
'Application.Interactive = False
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.DisplayStatusBar = False
ActiveSheet.DisplayPageBreaks = False
Dim sh As Worksheet
Set sh = ActiveSheet
timestock '==============>連接網路抓取資料匯入工作表, 消眊3秒,鼠標出現漏斗狀
漲跌停 '================>連接網路抓取資料匯入工作表 ,消眊2秒,鼠標出現漏斗狀
Sheets("sheet6").Select
If Range("H16").Value = 0 Then Run "Aclear"
With Sheets("sheet6")
'A1 時間-------------------------------------------------------------------
Sheets("sheet6").Unprotect
[A1] = Now
t = [TEXT(A1,"hh:mm")+LOOKUP(--TEXT(A1,"s"),{0,15,30,45})/86400]
Range("a65536").End(xlUp).Offset(1).Value = Format(t, "hh:mm:ss")
Sheets("sheet6").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
.Range("Z8").Value = .Range("H16").Value
.Range("Z9").Value = .Range("I16").Value
.Range("B65536").End(xlUp).Offset(1) = .Range("D16").Value '總委買數量-委賣數量
.Range("O65536").End(xlUp).Offset(1) = .Range("C16").Value '每筆買
.Range("P65536").End(xlUp).Offset(1) = .Range("C18").Value '每筆賣
.Range("Q65536").End(xlUp).Offset(1) = .Range("B16").Value '買進張數
.Range("R65536").End(xlUp).Offset(1) = .Range("B18").Value '賣出張數
.Range("C65536").End(xlUp).Offset(1) = .Range("H2").Value '指數漲跌
.Range("W65536").End(xlUp).Offset(1) = .Range("I2").Value '成交金額
.Range("X65536").End(xlUp).Offset(1) = .Range("B15").Value '成交張數 OK
.Range("S65536").End(xlUp).Offset(1) = .Range("B17").Value '總買筆
.Range("T65536").End(xlUp).Offset(1) = .Range("B19").Value '總賣筆 OK
.Range("AH65536").End(xlUp).Offset(1) = .Range("AE16").Value '漲停買進
.Range("AI65536").End(xlUp).Offset(1) = .Range("AF16").Value '跌停賣出
.Range("Z65536").End(xlUp).Offset(1) = .Range("M2").Value '韓股
.Range("E65536").End(xlUp).Offset(1) = .Range("H18").Value '台指價位
.Range("AF65536").End(xlUp).Offset(1) = .Range("U10").Value '上漲比例
.Range("AE65536").End(xlUp).Offset(1) = .Range("H12").Value '5檔差
.Range("D65536").End(xlUp).Offset(1) = .Range("I4").Value '每筆買減賣(累)
.Range("AC65536").End(xlUp).Offset(1) = .Range("B14").Value '成交筆數
.Range("G65536").End(xlUp).Offset(1) = .Range("G15").Value '前20檔即時算出與上一盤的點數
.Range("s10:t10").Value = .Range("J2:K2").Value ' 漲跌比例 (暫存)
'--------------------------------------------------------------------------
End With
'---------------------------------------------------------------------
Application.EnableEvents = False
Sheets("Sheet3").Range("Z2:Z111").Value = Sheets("Sheet3").Range("C2:C111").Value
Application.EnableEvents = True
'--------------------------------------------------------------
If Sheets("Sheet3").Range("R26").Value = 1 Then
price
end if
sh.Activate
Application.ScreenUpdating = True
Application.EnableEvents = True
ActiveSheet.DisplayPageBreaks = True
' Application.Interactive = True
End Sub |
|
發表於 2013-9-9 05:55
| 
發表於 2013-9-13 21:14
| 
