Как активировать файл excel из фонового режима | MS Word

@Аватар-С · Регистрация: 03.02.2017

Author24 — интернет-сервис помощи студентам

Здравствуйте Коллеги!

Прошу помощи в решении следующей ситуации.
Есть форма в документе word она имеет ComboBox1 (данные приходят из таблицы excel "Книга1.xlsm" которая запущена в фоновом режиме).
Форма также имеет CommandButton1 который должен вызывать файл "Книга1.xlsm" для редактирования данных ComboBox1.
Просто открыть не получиться, создается файл для чтения.
Помогите пожалуйста научиться активировать файл "Книга1.xlsm" из фонового режима для редактирования данных.
В ниже приведенном коде мои действия

Visual Basic

    Dim sFilePath, objXL, Secur
    sFilePath = "C:\ПечатьДокумента\xlsm\DBoss.xlsm"
    Set objXL = CreateObject("Excel.Application")
    Set wс = objXL.Workbooks.Open(sFilePath)
        With ComboBox3
            .ColumnCount = 2                            'колличество столбцов
            .ColumnWidths = "75"                        'ширина столбцов
            .ListRows = 10                              'значений в раскрытом списке
        End With
            Me.ComboBox3.List = wс.Worksheets("Руководство").Range("СписокФИОВсе").Value
            ComboBox3.ListIndex = 0
 
Private Sub CommandButton72_Click()
    Dim fName As Variant
    fName = "C:\ПечатьДокумента\xlsm\DBoss.xlsm"
    Set fName = CreateObject("excel.application") 'Application.GetOpenFilename
    fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символа
    Workbooks(fName).Activate
End Sub

toiai · 11.04.2017, 10:12

Сообщение от Аватар-С

Set fName = CreateObject("excel.application") 'Application.GetOpenFilename fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символ

Вот смотри верхняя строка fName - объект, нижняя - строка определись?

@Аватар-С · 11.04.2017, 10:26 **[ТС]**

toiai

Материться желтым цветом на Workbooks(fName).Activate (Sub of Function not defined)

toiai · 11.04.2017, 11:02

Должно быть открыто в одном окне, а у тебя в разных.
Попробуй использовать GetObject, у меня проверить нет возможности.

@Аватар-С · 11.04.2017, 11:16 **[ТС]**

все равно ругается

Visual Basic

    Dim fName As Object
    Set fName = GetObject("C:\ПечатьДокумента\xlsm\DBoss.xlsm")
    fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символа
    Workbooks(fName).Activate

toiai · 11.04.2017, 11:26

Как-то не логично:

Visual Basic

1 2	fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символа Workbooks(fName).Activate

Если эта книга активна, зачем... надо убрать
После GetObject вставь строку

Visual Basic

1	fName.Application.Visible = True

@_shark · 11.04.2017, 11:30

можно попробовать закрыть открытую книгу, а потом через Shell еще раз активировать Excel с параметром fName, содержащим путь до нужной книги.

@Аватар-С · 11.04.2017, 11:51 **[ТС]**

Сообщение от toiai

fName.Application.Visible = True

начинает ругаться на fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символа

Сообщение от _shark

можно попробовать закрыть открытую книгу

этот вариант я пробовал, выводит сообщение на сохранить или нет и все равно открывается в режиме чтения.

toiai · 11.04.2017, 11:58

Сообщение от Аватар-С

fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символа

Сообщение от toiai

надо убрать

Писал же!

@Аватар-С · 11.04.2017, 12:13 **[ТС]**

Уже убрал.
Теперь вообще не чего не происходит, не ругается не открывает.

toiai · 11.04.2017, 12:15

Приложил бы файл пример, легче было осознать проблему.

@Аватар-С · 11.04.2017, 12:36 **[ТС]**

Да, Коллеги прошу прощенья с этого следовало начать.

@_shark · 11.04.2017, 12:51

Сообщение от Аватар-С

этот вариант я пробовал, выводит сообщение на сохранить или нет и все равно открывается в режиме чтения.

мне тоже приходилось в одном из своих макросов открывать Excel в фоновом (невидимом) режиме и получать/сохранять оттуда данные. Такая ситуация с режимом "только для чтения" была тогда, когда в памяти находилось два процесса Excel. Через Диспетчер Задач закройте все Excel-евские процессы, а потом уже пробуйте дальше

toiai · 11.04.2017, 13:09

Вот вариант не в режиме чтения, но надо перед запуском формы в диспетчере задач закрыть все процессы EXCEL

@Аватар-С · 11.04.2017, 13:10 **[ТС]**

shark
Это я, пробовал не помогает.

@_shark · 11.04.2017, 13:18

Аватар-С, попробуйте все-таки сначала закрыть объект objXL.WorkBooks.Close, затем выйти objXL.Quit, обнулить объект Set objXL = Nothing, а затем уже выполнять код по повторному запуску Экселя для редактирования данных.

@Аватар-С · 11.04.2017, 13:42 **[ТС]**

_shark,
Хорошо пробую.

Добавлено через 6 минут
_shark
О! Япона мама заработало. Нужен только Set objXL = Nothing

Visual Basic

Private Sub CommandButton2_Click()
    Dim sFilePath, objXL, Secur
    sFilePath = "C:\ПечатьДокумента\xlsm\РедактированиеДанных.xlsm" 'ActiveDocument.Path &
    'objXL.WorkBooks.Close
    'objXL.Quit
    Set objXL = Nothing
    Set objXL = CreateObject("Excel.Application")   ' получаем указатель на Application
    objXL.Visible = True                           ' делаем окно Excel видимым
    Set wс = objXL.WorkBooks.Open(sFilePath)
 
End Sub

toiai · 11.04.2017, 13:45

Я ведь это и прислал в архиве См #14

@Аватар-С · 12.04.2017, 11:17 **[ТС]**

_shark и toiai

Спасибо за участие!

Добавлено через 21 час 32 минуты
Коллеги и еще немного о наболевшем.
toiai прошу прощенья не знаю почему и как умудрился пропустить Ваш вложенный файл.

Стал имплантировать код в рабочую форму и опять файл открывается в режиме только чтение.
В общем проблему решил следующим кодом:

Visual Basic

1	CreateObject("wscript.shell").Run "C:\ПечатьДокумента\xlsm\DBoss.xlsm"

@Аватар-С · 14.04.2017, 13:00 **[ТС]**

Здравствуйте Коллеги!

Для очистки совести возвращаюсь к теме.
После вставки кода:

Visual Basic

1	CreateObject("wscript.shell").Run "C:\ПечатьДокумента\xlsm\DBoss.xlsm"

Все вроде бы заработало но, при открытии файла в Excel выходило сообщение на тему - файл уже открыть ну и соответственно параметры входа.
Решить удалось следующим образом:

Visual Basic

Private Sub UserForm_Initialize()
    Dim sFilePath, objXL ', Secur
    sFilePath = "C:\ПечатьДокумента\xlsm\DBoss.xlsm"    'ActiveDocument.Path &
    Set objXL = CreateObject("Excel.Application")       'получаем указатель на Application
    objXL.Visible = False                               'делаем окно Excel не видимым
    objXL.ScreenUpdating = False
    Set wс = objXL.Workbooks.Open(sFilePath)
        'ШТАМ
            Me.ComboBox24.List = wс.Worksheets("Штампы").Range("СписокШтампы").Value
            ComboBox24.ListIndex = 0
            
           'в принципе нужно было разобраться с этими тремя строками 
            wс.Close False      'закрываем файл False - обязательно
            objXL.Quit          'убираем указатель на excel
            Set objXL = Nothing 'убираем файл из фонового режима
End Sub
 
Private Sub CommandButton31_Click()
    CreateObject("wscript.shell").Run "C:\ПечатьДокумента\xlsm\DBoss.xlsm"
    Unload Me
End Sub

Все, Всем УДАЧИ!

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	11.04.2017, 10:12	2
	Сообщение от Аватар-С Set fName = CreateObject("excel.application") 'Application.GetOpenFilename fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символ Вот смотри верхняя строка fName - объект, нижняя - строка определись? 0

@Аватар-С 1 / 1 / 0 Регистрация: 03.02.2017 Сообщений: 102
	11.04.2017, 10:26 [ТС]	3
	toiai Материться желтым цветом на Workbooks(fName).Activate (Sub of Function not defined) 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	11.04.2017, 11:02	4
	Должно быть открыто в одном окне, а у тебя в разных. Попробуй использовать GetObject, у меня проверить нет возможности. 0

@_shark 185 / 183 / 31 Регистрация: 11.10.2016 Сообщений: 599
	11.04.2017, 11:30	7
	можно попробовать закрыть открытую книгу, а потом через Shell еще раз активировать Excel с параметром fName, содержащим путь до нужной книги. 0

@Аватар-С 1 / 1 / 0 Регистрация: 03.02.2017 Сообщений: 102
	11.04.2017, 11:51 [ТС]	8
	Сообщение от toiai fName.Application.Visible = True начинает ругаться на fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символа Сообщение от _shark можно попробовать закрыть открытую книгу этот вариант я пробовал, выводит сообщение на сохранить или нет и все равно открывается в режиме чтения. 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	11.04.2017, 11:58	9
	Сообщение от Аватар-С fName = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name) - 5) 'имя минус .XLS - 4 символа Сообщение от toiai надо убрать Писал же! 0

@Аватар-С 1 / 1 / 0 Регистрация: 03.02.2017 Сообщений: 102
	11.04.2017, 12:13 [ТС]	10
	Уже убрал. Теперь вообще не чего не происходит, не ругается не открывает. 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	11.04.2017, 12:15	11
	Приложил бы файл пример, легче было осознать проблему. 0

@_shark 185 / 183 / 31 Регистрация: 11.10.2016 Сообщений: 599
	11.04.2017, 12:51	13
	Сообщение от Аватар-С этот вариант я пробовал, выводит сообщение на сохранить или нет и все равно открывается в режиме чтения. мне тоже приходилось в одном из своих макросов открывать Excel в фоновом (невидимом) режиме и получать/сохранять оттуда данные. Такая ситуация с режимом "только для чтения" была тогда, когда в памяти находилось два процесса Excel. Через Диспетчер Задач закройте все Excel-евские процессы, а потом уже пробуйте дальше 1

@Аватар-С 1 / 1 / 0 Регистрация: 03.02.2017 Сообщений: 102
	11.04.2017, 13:10 [ТС]	15
	shark Это я, пробовал не помогает. 0

@_shark 185 / 183 / 31 Регистрация: 11.10.2016 Сообщений: 599
	11.04.2017, 13:18	16
	Аватар-С, попробуйте все-таки сначала закрыть объект objXL.WorkBooks.Close, затем выйти objXL.Quit, обнулить объект Set objXL = Nothing, а затем уже выполнять код по повторному запуску Экселя для редактирования данных. 0

toiai 3218 / 967 / 223 Регистрация: 29.05.2010 Сообщений: 2,086
	11.04.2017, 13:45	18
	Я ведь это и прислал в архиве См #14 0