Excel vba找到一個範圍，但無法激活它

Question

我正在使用xlsx格式的數據庫提取文件。該結構看起來像

ID  DC1  DC2 ............ DCn 
1  data  data ........... data 
2  data  data ........... data 
3  data  data ........... data 

我用這個代碼，以查找並激活ID單元。

Set foundSourceRange = Sheets(sourceSheet).Cells.Find(What:=sourceColumn, LookIn:=xlValues, LookAt:=xlWhole) 
foundSourceRange.Activate 

查找給出請求的單元格，但激活拋出錯誤。

Runtime Error 1004 
Activate method of Range class failed. 

如果我去提取文件並編輯頁眉（重新輸入手動） 然後我的代碼按預期工作。我已經嘗試將提取文件格式更改爲csv，但它提供了相同的錯誤。有什麼我可以用代碼來解決這個問題嗎？

Answer 1

你需要首先激活片：

Set foundSourceRange = Sheets(sourceSheet).Cells.Find(What:=sourceColumn, LookIn:=xlValues, LookAt:=xlWhole) 
Sheets(sourceSheet).Activate 
foundSourceRange.Activate 

你只能.Activate的ActiveSheet物體上的範圍。