GBKEE

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

198188

回復 61# GBKEE


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

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

198188

回復 61# GBKEE

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

GBKEE

回復 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 已提出修正 ,你試試看,真不行再說

198188

回復 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開始，每次都這樣

GBKEE

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

複製代碼

198188

回復 66# GBKEE


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

GBKEE

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

複製代碼

198188

回復 68# GBKEE


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

robin0338

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