Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
xlApp.UserControl = True
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlBook = xlApp.Workbooks.Open(ImpFolderPath & "\tmp.xls")
Set xlSheet = xlBook.Sheets(1)

//中略

Set xlSheet = Nothing
Set xlBook = Nothing
Set xlApp = Nothing

としているのですが、

●プログラムを起動するごとに、explorerのメモリがどんどん増大し、60000kとかになってしまいます。
●これだと、tmp.xls が起動しているとき、「２重で開きますか？」のエラーが出てしまいます。
これがでないようにする方法はありますか？