Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> невидимый Excel, не отображается документ Excel 
:(
    Опции темы
Black_Joker
  Дата 28.3.2018, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет



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

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

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

подскажите, какой параметр отвечает за свойство скрыть/отображать
PM   Вверх
Akina
Дата 29.3.2018, 07:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20413
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 24
Всего: 449



Excel.Application.Visible?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Black_Joker
  Дата 30.3.2018, 14:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 212
Регистрация: 9.11.2002
Где: Таганрог

Репутация: нет
Всего: нет



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

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

Код

Dim obj As Object

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

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


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

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

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

Это сообщение отредактировал(а) Black_Joker - 30.3.2018, 14:58
PM   Вверх
Mariia
  Дата 9.4.2018, 08:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 23
Регистрация: 7.4.2018

Репутация: нет
Всего: нет



Не совсем ясно, что значит книга скрыта?
PM MAIL WWW   Вверх
Akina
Дата 9.4.2018, 08:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20413
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 24
Всего: 449



Цитата(Mariia @  9.4.2018,  09:48 Найти цитируемый пост)
что значит книга скрыта?

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


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
ospts
Дата 14.8.2018, 08:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 15.8.2016

Репутация: нет
Всего: нет



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

    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


Это сообщение отредактировал(а) ospts - 14.8.2018, 08:54
PM MAIL   Вверх
Google
  Дата 24.8.2019, 08:24 (ссылка)  





  Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Программирование, связанное с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами



  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"
  • А вот тут лежит FAQ нашего подраздела


Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Программирование, связанное с MS Office | Следующая тема »


 




[ Время генерации скрипта: 0.0636 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.