返回列表 上一主題 發帖

[分享] 大盤每月每天歷史成交量與金額下載

回復 51# usana642
[當日-自營商][當日-投信][當日-外資][當日-多空淨額][未平倉-自營商][未平倉-投信][未平倉-外資][未平倉-多空淨額]
這些欄位是抓取  計算1  那些的資料??
.Cells(1, 7).Resize(1, 6) = AR 程式中沒看到抓AR的資料

TOP

回復 52# GBKEE

GBKEE大大您好

我是想抓取計算1工作表的口數(F欄位),謝謝您
stock

TOP

回復 52# GBKEE


    今天的資料是口數430,75,-5,317,-4,812,-86,017,870,-13,469,-98,616
謝謝您
stock

TOP

回復 54# usana642
重點是
紀錄1工作表 [當日-自營商][當日-投信][當日-外資][當日-多空淨額][未平倉-自營商][未平倉-投信][未平倉-外資][未平倉-多空淨額] 這些欄位
抓取 : 計算1工作表上的那些的資料??
  1. Sub 儲存OI1()
  2. With Sheets("紀錄1").Cells(Rows.Count, "A").End(xlUp).Cells(2, 1)
  3. ' *** Sheets("紀錄1")工作表的 A1須先輸入字串"日期" ******
  4. ' *** 這行程式碼第一次執行才會到正確的位置
  5. 'Cells(Rows.Count, "A").End(xlUp):A欄最後列往上有資料的儲存格.Cells(2, 1) :第2列 ,第1欄
  6. .Resize(1, 9) = Array(Date, 2, 3, 4, 5, Sheets("紀錄1").[F14], [計算1!F14], 8, 9)
  7. 'Date 後面的 2,3,4,5,, 請自行輸入適當的位置
  8. '[計算1!F14] <=> Sheets("紀錄1").[F14] <=> Sheets("紀錄1").Range("F14")
  9. End With
  10. End Sub
複製代碼

TOP

回復 55# GBKEE

GBKEE大大您好

謝謝您的熱心指導,已經可以正常執行了,再次感謝您的熱心協助,祝您事事順利愉快...
stock

TOP

回復 10# GBKEE


    請問如果網頁是船公司的船期表,可否做到?

TOP

回復 56# 198188
那一網頁可上傳說明,參考看看

TOP

回復 57# GBKEE


    船公司網頁.rar (9.32 KB)

請看附件,由於太多網頁,所以只有提供捷徑于您,有勞

TOP

本帖最後由 GBKEE 於 2012-12-3 15:51 編輯

回復 58# 198188
我可以幫你做的只是,vba上的語法及程式上的編寫,你傳上一堆網址,我莫宰羊啦.
重點是要有說明你想做什麼

TOP

回復 59# GBKEE

Desktop.rar (48.91 KB)
因為需要輸入櫃號,然後才可以去船期表那裏,然後讀取current ETA?
這個要求是不是有困難?

TOP

        靜思自在 : 甘願做、歡喜受。
返回列表 上一主題