- 帖子
- 6
- 主題
- 2
- 精華
- 0
- 積分
- 58
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- office2003
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2013-5-13
- 最後登錄
- 2016-7-24
|
4#
發表於 2013-7-25 15:19
| 只看該作者
本帖最後由 zv1122 於 2013-7-25 15:30 編輯
回復 2# GBKEE
試過之後
GBKEE大的方法可以抓到顏色,但是抓到的值好像位置跑掉,值變成0。
handsometrowa 大的方法可以抓到值可是上不了顏色 。
先前可能沒解釋清楚,我補上我的檔案。我以前都是手動貼上後,從貼上選項方塊選擇"值與原始格式設定"。
我在想問題是不是不能用COPY要用=才可以把值和顏色都正確抓到。
以前在網路上有人分享過類似檔案是用迴圈程式碼抓資料,他的方法我似懂非懂,所以想問各位有沒有其他方法解決。---圖片檔是這個迴圈的大致版面。
Dim DealerOpNetVol, DealerOpNetVal, DealerOpToTXF, DealerTXFNetVol, DealerTXFOPNetVol As Double
Dim FiniOpNetVol, FiniOpNetVal, FiniOpToTXF, FiniTXFNetVol, FiniTXFOPNetVol As Double
Dim LastDay As String
Dim TwClose, TwChange, TwVolume As Double
Private Sub CommandButton1_Click()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''' 抓自營商(Dealer)及外資(Fini)期貨大台(TXF)及選擇權(options) '''''''''''''''''''''''''''''''''''''
Sheets("期貨選擇權多空統計").Select
''自營商(Dealer)''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''抓自營商(Dealer)選擇權淨口數 Dealer Options Net Volume '''''''''''''''''''''''''''''''''''''''''
DealerOpNetVol = Sheets("期貨選擇權多空統計").Range("B4")
''''''抓自營商(Dealer)選擇權淨金額(億) Dealer Options Net Value'''''''''''''''''''''''''''''''''''''''
DealerOpNetVal = Sheets("期貨選擇權多空統計").Range("C4")
''''''抓自營商(Dealer)選擇權約當大台 Dealer Options transfer to TXF'''''''''''''''''''''''''''''''''''
DealerOpToTXF = Sheets("期貨選擇權多空統計").Range("D4")
''''''抓自營商(Dealer)大台淨口數 Dealer TXF Net Volume''''''''''''''''''''''''''''''''''''''''''''''''
DealerTXFNetVol = Sheets("期貨選擇權多空統計").Range("E4")
'''''''抓自營商(Dealer)期權淨口數 Dealer TXF Options Net Volume'''''''''''''''''''''''''''''''''''''''
DealerTXFOPNetVol = Sheets("期貨選擇權多空統計").Range("F4")
''外資(Fini)''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''抓外資(Fini)選擇權淨口數 Fini Options Net Volume '''''''''''''''''''''''''''''''''''''''''''''''
FiniOpNetVol = Sheets("期貨選擇權多空統計").Range("G4")
''''''抓外資(Fini)選擇權淨金額(億) Fini Options Net Value'''''''''''''''''''''''''''''''''''''''''''''
FiniOpNetVal = Sheets("期貨選擇權多空統計").Range("H4")
''''''抓外資(Fini)選擇權約當大台 Fini Options transfer to TXF'''''''''''''''''''''''''''''''''''''''''
FiniOpToTXF = Sheets("期貨選擇權多空統計").Range("I4")
''''''抓外資(Fini)大台淨口數 Fini TXF Net Volume''''''''''''''''''''''''''''''''''''''''''''''''''''''
FiniTXFNetVol = Sheets("期貨選擇權多空統計").Range("J4")
'''''''抓外資(Fini)期權淨口數 Fini TXF Options Net Volume'''''''''''''''''''''''''''''''''''''''''''''
FiniTXFOPNetVol = Sheets("期貨選擇權多空統計").Range("K4")
'''''''抓大盤指數 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TwClose = Sheets("期貨選擇權多空統計").Range("L4")
'''''''抓大盤漲跌 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TwChange = Sheets("期貨選擇權多空統計").Range("M4")
'''''''抓大盤成交量 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
TwVolume = Sheets("期貨選擇權多空統計").Range("N4")
''''''''''''''''抓今天日期 get last day value''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sheets("選擇權買賣權分計").Select
Sheets("選擇權買賣權分計").Range("A1") = Mid(Sheets("選擇權買賣權分計").Range("C14"), 4, 10)
LastDay = Sheets("期貨選擇權多空統計").Range("A4").Text
'''''''''''''''''將抓取的數值自動填入期貨選擇權多空統計表''''''''''''''''''''''''''''''''''''''''''''''
Sheets("期貨選擇權多空統計").Select
I = 8
Do
I = I + 1
If I > 1000 Then
Exit Do
End If
Loop Until (LastDay = Sheets("期貨選擇權多空統計").Cells(I, 1).Text)
Sheets("期貨選擇權多空統計").Cells(I, "B") = DealerOpNetVol
Sheets("期貨選擇權多空統計").Cells(I, "C") = DealerOpNetVal
Sheets("期貨選擇權多空統計").Cells(I, "D") = DealerOpToTXF
Sheets("期貨選擇權多空統計").Cells(I, "E") = DealerTXFNetVol
Sheets("期貨選擇權多空統計").Cells(I, "F") = DealerTXFOPNetVol
Sheets("期貨選擇權多空統計").Cells(I, "G") = FiniOpNetVol
Sheets("期貨選擇權多空統計").Cells(I, "H") = FiniOpNetVal
Sheets("期貨選擇權多空統計").Cells(I, "I") = FiniOpToTXF
Sheets("期貨選擇權多空統計").Cells(I, "J") = FiniTXFNetVol
Sheets("期貨選擇權多空統計").Cells(I, "K") = FiniTXFOPNetVol
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''大盤指數
Sheets("期貨選擇權多空統計").Cells(I, "L") = TwClose
Sheets("期貨選擇權多空統計").Cells(I, "M") = TwChange
Sheets("期貨選擇權多空統計").Cells(I, "N") = TwVolume
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
End Sub |
-
-
上傳用2.png
(24.87 KB)
迴圈方法的版面
-
-
上傳用.rar
(17.73 KB)
我的檔案
|