Как открыть Excel на переднем плане в VBA, используя PowerPoint

Question

Я пытаюсь открыть файл Excel в презентации PowerPoint. это мой код:

Sub diversestickersKoole()

Dim xlApp As Object
Dim xlWorkBook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Open("V:\Oliedocs\Koole\Stickers Scheepstanks Koole.xltm", True, False)

Set xlApp = Nothing    
Set xlWorkBook = Nothing
End Sub

файл Excel открывается в фоновом режиме. это должно быть на переднем плане.

Кто-нибудь может мне помочь?

Answer 1

Так как вы, кажется, не заинтересованы в сохранении объекта Excel и его производных, вы можете захотеть кодировать следующим образом

Sub diversestickersKoole()
    With CreateObject("Excel.Application") '<--| create a new Excel instance and reference it (all its derived objects will be reached by a 'dot')
        .Visible = True 
        .WindowState = -4137 '<--| maximize Excel window
        .Workbooks.Open("V:\Oliedocs\Koole\Stickers Scheepstanks Koole.xltm", True, False).Activate
    End With
End Sub

Answer 2

Ты можешь использовать AppActivate,

Приведенный ниже код использует "test.xlsx - Excel", так как это заголовок моей тестовой книги.

Наклейки Scheepstanks Koole.xltm - Excel должен работать на вас

Sub diversestickersKoole()

Dim xlApp As Object
Dim xlWorkBook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
'Set xlWorkBook = xlApp.Workbooks.Open("V:\Oliedocs\Koole\Stickers Scheepstanks Koole.xltm", True, False)
Set xlWorkBook = xlApp.Workbooks.Open("C:\temp\test.xlsx", True, False)
AppActivate "test.xlsx - Excel"

Set xlApp = Nothing

Set xlWorkBook = Nothing

End Sub

Answer 3

Добавление строки xlWorkBook.Activate должно быть достаточно.

Ваш код должен выглядеть так:

Sub diversestickersKoole()

Dim xlApp As Object
Dim xlWorkBook As Object

Set xlApp = CreateObject("Excel.Application")

xlApp.Visible = True
Set xlWorkBook = xlApp.Workbooks.Open("V:\Oliedocs\Koole\Stickers   Scheepstanks Koole.xltm", True, False)

xlWorkBook.Activate

Set xlApp = Nothing

Set xlWorkBook = Nothing


End Function

Для справок:

https://www.mrexcel.com/forum/excel-questions/670476-excel-visual-basic-applications-test-if-workbook-open-if-so-bring-front.html

Пост № 4