| |
|
|
| | Работаю с Excel. Подскажите пожалуйста как убить процесс Excel? А то плодиться...
Использую:
Dim xlObj, xlWB As Object
Set xlObj = CreateObject("Excel.Application")
xlObj.Visible = False
Set xlWB = xlObj.Workbooks.Open(strAppAdr & "Bufer\info.xls")
....
Set xlWB = Nothing
Set xlObj = Nothing | |
| |
| |
|
|
| |
|
|
| | это в средине:
rstN5.Update "NN", xlWB.Sheets("DOD5").Cells(B & "", "A")
rstN5.Update "OC_PIB", xlWB.Sheets("DOD5").Cells(B & "", "B")
rstN5.Update "D_VST", xlWB.Sheets("DOD5").Cells(B & "", "C")
rstN5.Update "N_VST", xlWB.Sheets("DOD5").Cells(B & "", "D") | |
| |
| |
|
|
| |
|
|
| | сделайте в конце xlWB.Клозе | |
| |
| |
