123
返回列表 上一主題 發帖

EXCEL抓取資料問題

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
19# 跳轉到 »
發表於 2012-5-16 20:26 | 只看該作者
回復  c_c_lai
    再請教c大，我將dde匯入的資料sheet1裡，在5min或10min或隨機？min要把整個2列復製 ...
slip 發表於 2012-5-16 15:44

在5min或10min或隨機？min要把整個2列復製 ...
能否請你描述清楚(明白)一點？

TOP

slip

帖子
47 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
windows 
軟體版本
w7 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-5-3 
最後登錄
2015-6-19 
18#
發表於 2012-5-16 15:44 | 只看該作者
回復 16# c_c_lai


    再請教c大，我將dde匯入的資料sheet1裡，在5min或10min或隨機？min要把整個2列復製下來，A2-D2因為是匯入的dde數值會跟著跳動，不知有何方法是可讓其在隨機復製下來時數值不會跳動？

New期.rar (88.38 KB)

slip

TOP

slip

帖子
47 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
windows 
軟體版本
w7 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-5-3 
最後登錄
2015-6-19 
17#
發表於 2012-5-9 10:00 | 只看該作者
回復 16# c_c_lai
謝謝c_c_lai 大大;
今天開始運作後,一切順暢
感謝您的幫忙
誠心感謝
slip

TOP

c_c_lai

帖子
2035 
主題
24 
精華
0 
積分
2031 
點名
0  
作業系統
Win7 
軟體版本
Office2010 
閱讀權限
100 
性別
男 
註冊時間
2012-3-22 
最後登錄
2024-2-1 
16#
發表於 2012-5-8 18:44 | 只看該作者
回復 14# slip
目前你權限不足恐怕無法下載，所以我將程式碼貼上，
你複製後將她貼入到 ThisWorkbook 程式區內儲存即可，
至於 Sheet1 某些設定欄位請參照附圖照畫葫即可。
  1. ' DDE 資料紀錄問題
  2. Option Explicit
  3. Dim actEnabled As Boolean
  4. Dim cIndex As Single

  6. Private Sub Workbook_Open()
  7.     ' 以下四列資料之設定，可配合實作、或測試之目的，直接在 "sheet1" 指定之設定欄，得隨時予以異動。
  8.     If (Sheets("sheet1").Range("BA1").Value = "") Then Sheets("sheet1").Range("BA1").Value = "08:45:00"   ' 假設C6欄位為空白，則寫入開盤起始時間
  9.     If (Sheets("sheet1").Range("BA2").Value = "") Then Sheets("sheet1").Range("BA2").Value = "13:45:59"   ' D6欄位亦同。(此兩欄紀錄起始終止時間)
  10.     If (Sheets("sheet1").Range("BB1").Value = "") Then Sheets("sheet1").Range("BB1").Value = "00:01:00"   ' 紀錄資料匯入相隔時間，如每隔一分鐘寫入一次。
  11.     If (Sheets("sheet1").Range("BB2").Value = "") Then Sheets("sheet1").Range("BB2").Value = 0            ' 紀錄已匯入資料列數。

  13.     If (TimeValue(Now) > Sheets("sheet1").Range("BA2").Value) Then       ' 如果目前時間業已超過 D6 的營業時段，則呼叫.......
  14.         Call stopProcedure
  15.     Else                                                                 ' 反之在 D6 設定時間以前，則呼叫.......
  16.         Call startProcedure
  17.     End If
  18. End Sub

  20. Private Sub Workbook_BeforeClose(Cancel As Boolean)
  21.     On Error Resume Next
  22.     Call actStop
  23. End Sub

  25. Sub startProcedure()       ' 保留作為控制項之應用程序，如按鈕之巨集應用等。
  26.     Call actStart
  27. End Sub

  29. Sub stopProcedure()        ' 保留作為控制項之應用程序，如按鈕之巨集應用等。
  30.    Call actStop
  31. End Sub

  33. Sub newTitle()
  34.     Sheets(2).[A1].Resize(, 4) = Sheets(1).[A1:D1].Value  ' 套上你欲匯入資料的表頭名稱
  35. End Sub

  37. Sub Starter()
  38.     If (actEnabled = True And TimeValue(Now) >= Sheets("sheet1").Range("BA1").Value And TimeValue(Now) <= Sheets("sheet1").Range("BA2").Value) Then
  39.         cIndex = Sheets("sheet1").Range("BB2").Value

  41.         If (cIndex = 0) Then Call newTitle  ' newTitle 程序 (由使用者自行定義) 是將第一列的資料抬頭名稱寫入到sheet2；如日期、時間的對應欄位資料等。

  43.         Sheets("sheet1").Range("BB2").Value = cIndex + 1       ' 紀錄列號加一。

  45.         ' 複製從券商DDE匯入之相對應位置資料，如 A1、B1、C1、D1 對應的可能是內盤、外盤、成交、漲跌等等，以此類推。
  46.         Sheets(2).[A65536].End(xlUp).Offset(1).Resize(, 4) = Sheets(1).[A2:D2].Value

  48.         cIndex = Sheets("sheet1").Range("BB2").Value      ' 切記 Counter (計數器) 要加一，否則永遠為零 (當然已也可以不予紀錄資料列述，依個人習性)。
  49.     End If
  50. End Sub

  52. Sub onStarter()
  53.     If Not IsError(Sheets(1).[A2]) Then Call Starter
  54.     If actEnabled Then Call actStart
  55. End Sub

  57. Sub actStart()
  58.     actEnabled = True
  59.    
  60.     Application.OnTime (Now + Sheets("sheet1").Range("BB1").Value), "ThisWorkBook.onStarter"     ' 寫入資料的排程 (目前是每隔五分鐘寫入一次)
  61. End Sub

  63. Sub actStop()
  64.     actEnabled = False

  66.     On Error Resume Next
  67.     Application.OnTime Now, "ThisWorkBook.onStarter", , False
  68. End Sub
複製代碼

期貨每分鐘資料匯入.rar (27.93 KB)

TOP

slip

帖子
47 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
windows 
軟體版本
w7 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-5-3 
最後登錄
2015-6-19 
15#
發表於 2012-5-8 17:05 | 只看該作者
回復 14# slip
補上檔案及補充說明

A2為內盤的數量
B2為外盤的數量
C2為成交的數量
D2為漲跌的值

請協助,將這四個數字
每隔一分鐘抓取一次
數字自動在sheet2中排列為
第一分鐘A1,B1,C1,D1
第二分鐘A2,B2,C2,D2
依此類推
時間開始是0845
結束是1345
謝謝

期-每分.rar (8.08 KB)

01

slip

TOP

slip

帖子
47 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
windows 
軟體版本
w7 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-5-3 
最後登錄
2015-6-19 
14#
發表於 2012-5-8 16:43 | 只看該作者
本帖最後由 slip 於 2012-5-8 16:57 編輯

回復 9# c_c_lai


再請教大大：excel 如何每隔1分鐘自動抓dde的資料
我使用excel設定期貨看盤的dde功能,時間是0845~1345

Sheet 1
A1      B1      C1     D1
內盤   外盤    成交   漲跌
A2      B2      C2     D2
xxxxx  xxxxx   xxxx    xxx

要在sheet2中的,每隔一分鐘抓sheet1的數字資料
A1      B1      C1     D1
xxxxx  xxxxx   xxxx    xxx


備註:xxxx為數字
拜託高手幫忙,謝謝!

期-每分.rar (23.79 KB)

slip

TOP

slip

帖子
47 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
windows 
軟體版本
w7 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-5-3 
最後登錄
2015-6-19 
13#
發表於 2012-5-8 10:27 | 只看該作者
回復 12# register313
謝謝,可以用了..
slip

TOP

register313
　頭銜: 麻辣 路人甲

大學生Rank: 4

帖子
967 
主題
0 
精華
0 
積分
1001 
點名
0  
作業系統
WIN XP 
軟體版本
OFFICE 2003 
閱讀權限
50 
性別
男 
來自
台北 
註冊時間
2010-11-29 
最後登錄
2022-5-17 

2012龍年全勤獎章熱烈參與勳章
12#
發表於 2012-5-8 08:31 | 只看該作者
回復 10# slip

J4=IF(ISERROR(VLOOKUP("*"&B4&"*",Sheet2!$A$1:$D$100,4,)),0,TEXT(VLOOKUP("*"&B4&"*",Sheet2!$A$1:$D$100,4,)/100,"0.00%"))

TOP

chen_cook

帖子
81 
主題
3 
精華
0 
積分
95 
點名
292  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
20 
性別
男 
註冊時間
2012-2-29 
最後登錄
2026-10-19 

2025年全勤獎章2024年全勤獎章2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章
11#
發表於 2012-5-8 05:14 | 只看該作者
Book666.rar (22.16 KB) 回復 10# slip


    基礎excel的功能要加強.....!!!:@

TOP

slip

帖子
47 
主題
8 
精華
0 
積分
81 
點名
0  
作業系統
windows 
軟體版本
w7 
閱讀權限
20 
性別
男 
來自
Taipei 
註冊時間
2012-5-3 
最後登錄
2015-6-19 
10#
發表於 2012-5-8 01:01 | 只看該作者
回復 8# register313
感謝大大
我試了
還有問題如下

在Sheet1  G欄位變成原本值得100倍ㄝ
請再次協助
另外如在sheet2抓不到相對應資料,能否Sheet1中不是顯示#N/A而是呈現0
如sheet1中的102欄位"2450神腦

再次感謝

年過半百來此請益...給我一個讚吧...嘿嘿
各位高手大大,多謝幫忙...

P.S:Sheet2 A欄每一儲存格前都多了個空白字元
因為是直接每日copy過來,我有去檢查,都多了個空白字元,如沒影響,這樣我就偷懶繼續這樣用,謝謝

Book666.rar (17.88 KB)

修正1

slip

TOP

        靜思自在 : 要比誰更受誰．不要比誰更怕誰。
123
返回列表 上一主題