返回列表 上一主題 發帖

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

回復 60# 198188
如這裡一樣嗎?
那網頁在哪裡?

TOP

回復 61# GBKEE


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

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

TOP

回復 61# GBKEE

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

TOP

回復 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

回復 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

回復 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

回復 66# GBKEE


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

TOP

回復 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

回復 68# GBKEE


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

TOP

想請問記憶體不足,這是要如何解決阿!!!

TOP

        靜思自在 : 一個缺口的杯子,如果換一個角度看它,它仍然是圓的。
返回列表 上一主題