返回列表 上一主題 發帖

對於.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 
4#
發表於 2016-3-25 11:33 | 只看該作者
回復 3# 准提部林
成功了!
果然魔鬼藏在細節裡
謝謝大大指點:)

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
3#
發表於 2016-3-23 20:44 | 只看該作者
Workbooks(Filename_EBTS_Net).Sheets(1).Range("C5", Cells(i, 5)).Copy

紅色的部份, 會被視為當前活頁簿工作表的參照, 未跳轉該活頁簿時, 應會有錯誤!!!

TOP

准提部林

帖子
2834 
主題
10 
精華
0 
積分
2890 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2024-11-27 
2#
發表於 2016-3-23 20:25 | 只看該作者
Sub temp()
Dim DataDate As String, Book_EBTS As Workbook, Book_EBTS_Net As Workbook, Book_OTC As Workbook
DataDate = Format(Date, "yyyymmdd")

Set Book_EBTS = Workbooks(DataDate & "-P&S.xls")
Set Book_EBTS_Net = Workbooks(DataDate & "-Net.xls")
Set Book_OTC = Workbooks(DataDate & "-OTC.xls")

i = Book_EBTS_Net.Sheets(1).Cells(4, 1).End(xlDown).Row
Book_EBTS_Net.Sheets(1).Range("C5:E" & i).Copy Book_EBTS.Sheets(1).Range("G5")
End Sub

TOP

        靜思自在 : 好事要提得起，是非要放得下，成就別人即是成就自己。
返回列表 上一主題