返回列表 上一主題 發帖

對於.activate的疑問

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2016-3-23 18:05 | 顯示全部帖子

對於.activate的疑問

在處理不同檔案間資料的時候我一般都是用 Workbooks(xxx).sheets().range()   xxx為檔名
但最近(?)發現如果檔案xxx不是在最上層的話會出現錯誤(儘管有開啟)
必須加上Workbooks(xxx).Activate才能正常運轉
請問為什麼呢? (覺得activate很冗阿...)
另外手邊有Filename_EBTS 和Filename_EBTS_Net 兩個檔案
不知為何無法進行資料貼上 請前輩們指點
  1. Sub temp()
  2. DataDate = Date
  3. Filename_EBTS = Format(DataDate, "yyyymmdd") & "-P&S.xls"
  4. Filename_EBTS_Net = Format(DataDate, "yyyymmdd") & "-Net.xls"
  5. Filename_OTC = Format(DataDate, "yyyymmdd") & "-OTC.xls"

  7. i = Workbooks(Filename_EBTS_Net).Sheets(1).Cells(4, 1).End(xlDown).Row

  9. Workbooks(Filename_EBTS_Net).Sheets(1).Range("C5", Cells(i, 5)).Copy Workbooks(Filename_EBTS).Sheets(1).Range("G5")

  11. End Sub
複製代碼
也嘗試過使用.Select然後.Paste依然無效

files.rar (19.07 KB)

收藏 分享

lalalada

帖子
102 
主題
17 
精華
0 
積分
129 
點名
0  
作業系統
windows 
軟體版本
2010 
閱讀權限
20 
性別
男 
註冊時間
2012-5-16 
最後登錄
2020-9-2 
2#
發表於 2016-3-25 11:33 | 顯示全部帖子
回復 3# 准提部林
成功了!
果然魔鬼藏在細節裡
謝謝大大指點:)

TOP

        靜思自在 : 能善用時間的人，必能掌握自己努力的方向。
返回列表 上一主題