есть модуль

Sub update_exsel(dir)
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim sd As String
Dim r As Range

Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(dir)
Set xlSheet = xlBook.Sheets(list_name)

Set r = xlSheet.Cells.Find("p2", ActiveCell, xlValues, xlWhole, xlByRows, xlNext, False, False)

MsgBox (r.Address)
w = r.Address
w = Left(w, 2)
w = Right(w, 1)

For i = 2 To 261
sd = xlSheet.Range(w & i).Text
xlSheet.Range(w & i).Value = ""
xlSheet.Range(w & i).Value = sd
Next i

xlBook.Close True
xlApp.Quit
Set xlBook = Nothing
Set xlApp = Nothing

End Sub

до начала выполнения модуля exsel закрыт.
Он закрывает тока саму книгу, но не выгружает exsel из памяти.
???
заранее спасибо.

vkodorпопробуй перед
поставить

не помогает! :((

а если я его в ручную закрываю, то при повтроном вызове к другому xls файлу, выдает ошибку 462
The remote server machine does not exist or is unavailible
!!!!

TIKOзакрой ексель
Нажми котр альт дел в процессах посмотри сидит или даже сидят ли где нибудь ексель.exe
отключи его и попробуй сново прогнать модуль
иногда при ошибке модуль не закрывает ексель поскольку процесс выполения кода не доходит до оператора куайт
нету нигде!
когда он второй раз открывает как-нить файл, если я просто зайду в него, то exsel даже не ругаеться что файл уже используеться?!?!?!

Ashton1.


2. Скорее всего ошибка из-за этого.


Поменяй ActiveCell на xlApp .ActiveCell

3. Статья, на всякий случай. Excel automation fails second time code runs .

Все заработало. Огромное спасибо всем кто принимал участие!!!