Доступ к видимости электронных таблиц передачи VBA

Question

Привет, прежде чем мой код работает. Вот оно:

Dim xl As Object
Dim xlWB As Object
Dim xlSheet As Object
Dim baseLocation As String

   DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "Report_Query", baseLocation, True

    Set xl = CreateObject("Excel.Application")
    Set xlWB = xl.Workbooks.Open(baseLocation)
    Set xlSheet = xlWB.Worksheets(1)

    xlSheet.Name = tableName
    xlSheet.Columns("A:" & MyModule.outColLetterFromNumber(fSize + 2)).AutoFit

    xl.Visible = True
    xl.DisplayFullScreen = True

Но теперь, когда я запускаю его, Excel теряет свою ленту. Изображение прикреплено

Answer 1

Ваша строка xl.DisplayFullScreen = True отображает Excel в полноэкранном режиме, аналогично тому, когда вы нажимаете F11 в веб-браузере.

Если вы намереваетесь развернуть окно максимально, попробуйте

Const xlMaximized as Long = -4137
xl.WindowState = xlMaximized

Также, если вы просто хотите сбросить окно Excel в обычное состояние (под этим я подразумеваю, что лента показывает et c.), в окне Immidiate VBE введите Application.DisplayFullScreen = False.