123456789
返回列表 上一主題 發帖

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

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
61# 跳轉到 »
發表於 2012-12-3 16:26 | 只看該作者
回復 60# 198188
如這裡一樣嗎?
那網頁在哪裡?

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
62#
發表於 2012-12-3 17:19 | 只看該作者
回復 61# GBKEE


第一張圖網址
http://www.maerskline.com/appmanager/

第二張圖網址
http://www.maerskline.com/appmanager/maerskline/public?_nfpb=true&_nfls=false&_pageLabel=page_tracking3_trackSimple

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
63#
發表於 2012-12-3 17:48 | 只看該作者
回復 61# GBKEE

可否幫我看看下面link的問題
http://forum.twbts.com/viewthrea ... a=pageD1&page=2
請問為什麼按一次後，它自動將最後那row當成下次的第一個？
因為我按一次後，把資料刪除後就在上一次執行的最後一列+1開始，可以讓它不會自動記憶，每按一次就先刪除以前的資料，然後都從A2開始。
另外我附件內另一個程式執行時很慢，有加快的方法嗎

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
64#
發表於 2012-12-4 08:13 | 只看該作者
回復 62# 198188
抱歉只能幫到 [貨櫃號碼登錄] 這裡
這http://www.maerskline.com/appmanager/maerskline/public?_nfpb=true&_nfls=false&_pageLabel=page_tracking3_trackSimple網頁
的貨物資料,一直無法下載到Excel
  1. Option Explicit
  2. Sub 貨櫃號碼登錄()
  3.    Dim IE As New InternetExplorer, i As Integer, vDoc As Object
  4.     '宣告 Dim ie As New InternetExplorer
  5.     '須在工具-> 設定引用項目加入 新增引用 Microsoft Internet Controls
  6.     'Set IE = CreateObject("InternetExplorer.Application")
  7.     'Dim i As Integer, vDoc As Object
  8.     With CreateObject("InternetExplorer.Application") '不需新增引用 Microsoft Internet Controls
  9.     'With IE
  10.         .Visible = True
  11.         .Navigate "http://www.maerskline.com/appmanager/"
  12.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  13.         Set vDoc = .Document.getElementsByTagName("INPUT")
  14.         For i = 0 To vDoc.Length - 1
  15.             If vDoc(i).Name = "portlet_quickentries_2{actionForm.trackNo}" Then vDoc(i).Value = "PONU4867818"  '貨櫃號碼
  16.             If vDoc(i).Value = "Track" Then vDoc(i).Click               '按下確定
  17.         Next
  18.     End With
  19. End Sub
複製代碼


    回復 63# 198188
21 # stillfish00 已提出修正 ,你試試看,真不行再說

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
65#
發表於 2012-12-4 09:10 | 只看該作者
回復 64# GBKEE


    非常感謝~我也知道這個想法很難做到。
另外我想問可否同時將三個不同excel名內的sheet copy 在另一個sheet上
例如：
Y:\2012\A.XLSX (2012)
C:\2012\B.XLSX (Nov)
Z:\2012\C.XLSX (2012)

copy在
C:\USER\DESTOP\E.XLSX (2012)
每次copy都會重新從A2 : AM2 到最後的資料copy下去 (最後的資料那列每次都不同）
例如：
Y:\2012\A.XLSX (2012) 的資料到從A2:AM2 to A100:AM100
C:\2012\B.XLSX (Nov) 的資料到A2:AM2 to A50:AM50
Z:\2012\C.XLSX (2012) 的資料到A2:AM2 to A120:AM120
那麼copy出來的效果是
A2:AM2 to A100:AM100 是Y:\2012\A.XLSX (2012) 的資料
A101:AM101 to A150:AM150是C:\2012\B.XLSX (Nov)的資料
A151:AM151 to A270:AM270是Z:\2012\C.XLSX (2012) 的資料
第二次按會清楚之前的資料再從A2 : AM2開始，每次都這樣

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
66#
發表於 2012-12-4 10:19 | 只看該作者
回復 65# 198188
此回覆:已是偏離這主題,以後請在有相關的主題中發問
試試看
  1. Option Explicit
  2. Sub Ex()
  3.    Dim Rng As Range
  4.    'With Workbooks.Open("C:\USER\DESTOP\E.XLSX").Sheets("2012") '檔案未開啟時用此程式碼
  5.    With Workbooks("E.XLSX").Sheets("2012")                      '檔案已開啟時用此程式碼
  6.         'A2:AM2 to A100:AM100 是Y:\2012\A.XLSX (2012) 的資料
  7.         Set Rng = .[A2]
  8.         With Workbooks.Open("Y:\2012\A.XLSX").Sheets("2012")    '檔案開啟
  9.             .[A100:AM100].Copy Rng
  10.            .Parent.Close False                                  '檔案關閉
  11.         End With
  12.         'A101:AM101 to A150:AM150是C:\2012\B.XLSX (Nov)的資料
  13.         Set Rng = .[A101]
  14.         With Workbooks.Open("Y:\2012\A.XLSX").Sheets("Nov")    '檔案開啟
  15.             .[A150:AM150].Copy Rng
  16.            .Parent.Close False                                  '檔案關閉
  17.         End With
  18.         'A151:AM151 to A270:AM270是Z:\2012\C.XLSX (2012) 的資料
  19.         Set Rng = .[A151]
  20.         With Workbooks.Open("Y:\2012\A.XLSX").Sheets("2012")    '檔案未開啟
  21.             .[A270:AM270].Copy Rng
  22.            .Parent.Close False                                  '檔案關閉
  23.         End With
  24.     End With
  25. End Sub
複製代碼

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
67#
發表於 2012-12-4 10:45 | 只看該作者
回復 66# GBKEE


    謝謝。
但是可以讓它自動辨認最後一筆嗎？
因為我要copy的三個excel，每天都有加資料上次，所以需要它自己辨認要copy的資料有多少筆，然後第二個就從第一個的最後一筆之後一列再開始copy

TOP

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
68#
發表於 2012-12-4 11:03 | 只看該作者
回復 67# 198188
是這樣嗎?
  1. Option Explicit
  2. Sub EX()
  3.     '
  4.     '
  5.     Set Rng = .[A2]  '第一個Rng
  6.     '
  7.     '
  8.     'Set Rng = .[A101]  '第二個Rng
  9.     '第二個Rng改成如此第一個Rng往下到有資料的下一列
  10.     Set Rng = Rng.End(xlDown).Offset(1)  '第二個Rng
  11.     '
  12.     '
  13.     'Set Rng = .[A151]  '第三個Rng
  14.     '第三個Rng改成如此第二個Rng往下到有資料的下一列
  15.     Set Rng = Rng.End(xlDown).Offset(1) '第三個Rng
  16.     '
  17.     '
  18. End Sub
複製代碼

TOP

198188

帖子
438 
主題
67 
精華
0 
積分
531 
點名
30  
作業系統
win7 
軟體版本
office 2010 
閱讀權限
50 
性別
男 
註冊時間
2012-10-30 
最後登錄
2024-11-19 
69#
發表於 2012-12-4 11:26 | 只看該作者
回復 68# GBKEE


   對了，就是這樣，非常感謝

TOP

robin0338

帖子
2 
主題
0 
精華
0 
積分
2 
點名
0  
作業系統
WINDOS7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2013-9-7 
最後登錄
2013-9-28 
70#
發表於 2013-9-8 18:54 | 只看該作者
想請問記憶體不足，這是要如何解決阿!!!

TOP

        靜思自在 : 人要自愛，才能愛普天下的人。
123456789
返回列表 上一主題