指定檔案抓去個檔案間資料 - Excel程式區

[發問] 指定檔案抓去個檔案間資料

1^# 跳轉到 »

發表於 2011-11-23 20:47 | 顯示全部帖子

借此題一問
如果只要匯入M1,M2,M3到book1
且book1中，匯入的資料M1~M3間不留空白
小弟將GBKEE版主的程式改寫如下

Sub Ex()
Dim Rng As Range, CopyRng As Range, I As Integer
Set Rng = Workbooks("Book1").Sheets(1).[a65536]
For I = 1 To 3
With Workbooks.Open("C:\Users\tt\Desktop\新增資料夾\" & I & ".xls")
ActiveSheet.Range("a4", ActiveCell.SpecialCells(xlLastCell)).Copy Rng.End(xlUp).Offset(1)
.Close False
End With
Next
End Sub

複製代碼

想請教的是
一旦省略了ActiveSheet,就會出現"物件不支援此屬性或方法"
為什麼ActiveSheet一定要寫出來才能執行？
開檔案的時候，開出來的檔不是處於Activate的狀態嗎？
測試過在沒有執行開檔動作的時候，省略ActiveSheet是沒有問題的說。:Q

2^#

發表於 2011-11-24 10:06 | 顯示全部帖子

回復 7# GBKEE
感謝GBKEE版主的回答！
看完解答再經過實作之後，
有體認到程式碼寫在一般模組、Sheet模組及ThisWorkbook模組的差異。
看來省略的寫法真的要特別注意適用的模組類型。

靜思自在 : 知識要用心體會，才能變成自己的智慧。