Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > невидимый Excel

Автор: Black_Joker 28.3.2018, 22:11

Здравствуйте

Возникла задача заполнить шаблон Excel из базы данных Access

С помощью VBA все данные становятся куда надо, файл сохраняется.
Но есть досадная мелочь - книга Excel по-умолчанию скрыта (не отображается)
Надо после открытия выйти в меню "ВИД" кликнуть кнопку "отобразить"

подскажите, какой параметр отвечает за свойство скрыть/отображать

Автор: Akina 29.3.2018, 07:35

Excel.Application.Visible?

Автор: Black_Joker 30.3.2018, 14:52

спасибо за ответ.
но не помогло.

решение следующее:

Код


Dim obj As Object

Set obj = CreateObject("Путь и имя файла для заполнния.xlsx")

obj.SaveAs "Путь файла" & "Имя файла.xlsx"
obj.windows("Имя файла.xlsx").Visible = True
obj.Save
obj.Close

сперва сохраняем объект с указанием имени
потом открываем и присваиваем свойство видимости
сохраняем и закрываем Excel

Поменять местави Виндов и СавеАс не получалось, т.к. н было известно, что открывать (еще не создано имя файла)

жду правок и советов

Автор: Mariia 9.4.2018, 08:48

Не совсем ясно, что значит книга скрыта?

Автор: Akina 9.4.2018, 08:59

Цитата(Mariia @ 9.4.2018, 09:48

)

что значит книга скрыта?

Не отображается на экране, в т.ч. на панели задач.

Автор: ospts 14.8.2018, 08:42

По-моему здесь нужно запустить само приложение, а уже через него открыть сохранённый файл, ну тоже через код разумеется.
Что-то вроде этого:

Код


    Set exl = New Excel.Application
    exl.Workbooks.Open FileName:=FName("Имя файла.xlsx")

    Public Function FName(ByVal FN As String) As String
    Dim strPath As String
    strPath = "Путь к файлу"
    If Right(strPath, 1) <> "" Then
        strPath = strPath & "\"
    End If
    If Dir$(strPath & FN) <> "" Then
        FName = strPath & FN
    Else
        FName = ""
    MsgBox "Не найден файл " & FN, , "Ошибка!!!"
    End If
    End Function