Можете посоветовать ещё что-то для повышения производительности?
data_base.Cells(row_db, 6).Value
Sub test()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdDocTwo As Word.Document
Dim wdDocThree As Word.Document
Dim wdDocFour As Word.Document
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = ThisDocument
Set wdDocTwo = wdApp.Documents.Add
Set wdDocThree = wdApp.Documents.Add
Set wdDocFour = wdApp.Documents.Add
wdDocTwo.Activate
AppActivate (wdDocTwo.Name)' эта строка выведет окно wdDocTwo на передний план
End Sub
ThisDocument
- это то откуда был вызван код. Sub test()
Dim wdApp As Object
Dim wdDoc As Word.Document
Dim wdDocTwo As Word.Document
Dim wdDocThree As Word.Document
Dim wdDocFour As Word.Document
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = ThisDocument
Set wdDocTwo = wdApp.Documents.Add
Set wdDocThree = wdApp.Documents.Add
Set wdDocFour = wdApp.Documents.Add
wdDocTwo.Activate
End Sub
ThisDocument.Activate
ThisDocumnet.SetFocus
{ тип расчета1: true, тип расчета2 : false}
bool
в директиву v-if
? 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 Sub