excel中vba中用treeview做的文件遍歷，打開文件後，無法正常關閉

問題壹:關閉文件的時候應該不會出現妳描述的情況...如果還是出現這樣的情況,可以把 aaa 定義為壹個全局變量,然後在窗體上加壹個關閉的按鈕, aaa.close 就可以了...

問題二:給對象賦值要用?Set 關鍵字,即: Set bbb=TreeView1.SelectedItem,這樣就可以用 bbb 代替 TreeView1.SelectedItem 這個對象了...

Dim?aaa?As?Workbook'全局變量

Private?Sub?CommandButton3_Click()

dim?bbb?as?object

set?bbb?=?TreeView1.SelectedItem

with?bbb

If?Len(.Key)?=?8?Then

commandbutton3.enabled?=?false?

'先禁用"打開"按鈕,只有關閉了文件才可以打開另壹個

Set?aaa?=?Workbooks.Open(ThisWorkbook.Path?&?"\2011年報表\"?&?_

.Parent.Parent.Text?&?"\"?&?.Parent.Text?&?"\"?&?.Text)

aaa.Activate

End?If

end?with

End?Sub

private?sub?關閉按鈕_Click()

aaa.close?true'false?則為不保存

set?aaa?=?nothing

commandbutton3.enabled?=?true'啟用"打開"按鈕

end?sub