Call Run_macros
Sub Run_macros()
Dim objExcel
Dim Op_writ
Dim Wb
'запускаем Excel-процесс
Set objExcel = CreateObject ("Excel.Application")
objExcel.Visible = true
Op_writ="R:\инста\ЭКСЕЛЬ\АНАЛИЗ\НОВЫЙПОДПИСЧИКИ17"
Set Wb = objExcel.Workbooks.Open (Op_writ)
'запуск макроса
objExcel.run "ОБН_данных"
'сохранение файла
objExcel.Workbooks("НОВЫЙПОДПИСЧИКИ17.xlsm").Save
'по завершению закрываем документ. Пишем только имя файла, без пути
objExcel.Workbooks("НОВЫЙПОДПИСЧИКИ17.xlsm").Close(false)
'закрываем Excel-процесс
objExcel.Quit
Set objExcel = Nothing
Set Wb = Nothing
End SubobjExcel.Quit
Set objExcel = Nothingvba kill excel process Sub Run_macros()
Dim objExcel
Dim Op_writ
Dim Wb
'запускаем Excel-процесс
Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
Op_writ = "R:\ЭКСЕЛЬ\файл1"
Set Wb = objExcel.Workbooks.Open(Op_writ)
'запуск макроса
objExcel.Run "ОБН_данных"
'сохранение файла
objExcel.Workbooks("файл1.xlsm").Save
'по завершению закрываем документ. Пишем только имя файла, без пути
objExcel.Workbooks("файл1.xlsm").Close (False)
'закрываем Excel-процесс
objExcel.Quit
objExcel = Nothing
Op_writ = Nothing
Wb = Nothing
End SubobjExcel.run "ОБН_данных"set objExcel = CreateObject ("Excel.Application") 14 проще определить свой ItemsControl чтобы при изменении типов столбов и материалов UI часть не несла изменений.
для каждой VM определяете свой userControl, соответствие между ними задаете через DataTemplate.
причины как раз в этом фантомном процессе. вероятно в чем то скрипт таки неверный. в памяти остается какой то объект , который мешает завершиться процессу корректно.
пути два:
1) пытаться сделать корректный скрипт, не просто, но типа правильно.
2) скриптом "прибивать" процесс. просто, надежно, но эт как бы костыль.
https://stackoverflow.com/questions/25147242/excel...
https://stackoverflow.com/questions/26303173/how-c...