對於.activate的疑問

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

Sub temp()
DataDate = Date
Filename_EBTS = Format(DataDate, "yyyymmdd") & "-P&S.xls"
Filename_EBTS_Net = Format(DataDate, "yyyymmdd") & "-Net.xls"
Filename_OTC = Format(DataDate, "yyyymmdd") & "-OTC.xls"
i = Workbooks(Filename_EBTS_Net).Sheets(1).Cells(4, 1).End(xlDown).Row
Workbooks(Filename_EBTS_Net).Sheets(1).Range("C5", Cells(i, 5)).Copy Workbooks(Filename_EBTS).Sheets(1).Range("G5")
End Sub

複製代碼

也嘗試過使用.Select然後.Paste依然無效

files.rar (19.07 KB)

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

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

准提部林