Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.12.2018, 10:19   #1
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию Скорость открытия файла xlsx

Ребята здравствуйте! думаю вопрос избитый, но все же хотелось бы понять стоит ли углубляться в суть вопроса или все же оставить как есть, суть вопроса такова: На сколько быстро можно открыть файл " .xlsx" весом примерно 100кб, из vb6, но при этом открыты другие файлы " .xlsx" которые не относятся к проекту vb6, у меня как у "чайника" открывается так:
Код:
Public oExcel As Object 
Public oBook As Object 
Public oSheet As Object
Set oExcel = CreateObject("ExCel.Application") 
Set oBook = oExcel.Workbooks.Open(App.Path & "\DOCM.xlsx")
......
'что то еще
.....
call save


Sub Save() 'функция
    If oBook.Saved = False Then
        oBook.Save
    End If
End Sub
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Старый 11.12.2018, 13:36   #2
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

открыть его можно настолько быстро, насколько быстро он открывается в описанных условиях
(не знаю чем Вам поможет эта фраза)
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 11.12.2018, 13:42   #3
Казанский
Старожил
 
Аватар для Казанский
 
Регистрация: 31.12.2010
Сообщений: 2,133
По умолчанию

Цитата:
Сообщение от DMITRIY_78 Посмотреть сообщение
при этом открыты другие файлы " .xlsx"
То есть Excel запущен? Тогда можно не запускать еще один, а открыть файл в работабщем экземпляре приложения
Код:
Set oExcel = GetObject(, "ExCel.Application")
exceleved@yandex.ru Яндекс.Деньги: 410011500007619
Казанский вне форума Ответить с цитированием
Старый 11.12.2018, 13:58   #4
IgorGO
Новичок
СтарожилДжуниор
 
Аватар для IgorGO
 
Регистрация: 05.02.2008
Сообщений: 9,487
По умолчанию

или вместо этих двух
Код:
Set oExcel = CreateObject("ExCel.Application") 
Set oBook = oExcel.Workbooks.Open(App.Path & "\DOCM.xlsx")
написать одну строку
Код:
Set oBook = Workbooks.Open(App.Path & "\DOCM.xlsx")
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
IgorGO вне форума Ответить с цитированием
Старый 11.12.2018, 15:10   #5
DMITRIY_78
Форумчанин
 
Регистрация: 11.12.2018
Сообщений: 202
По умолчанию

что то не получается без этих двух! фото
Изображения
Тип файла: jpg 01.jpg (40.6 Кб, 43 просмотров)
Что нас не убивает, то делает нас сильными!
Всё гениальное просто, всё простое гениально!
DMITRIY_78 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Сохранение файла из шаблона в формате xlsx. irina181 Microsoft Office Excel 12 23.10.2017 20:50
макрос-отправка на почту изменений файла .xlsx Лаврентьева Дарья Microsoft Office Excel 1 19.04.2016 17:59
Не работает импорт из файла *.xlsx evggen Microsoft Office Excel 0 29.09.2010 12:59
Максимально возможный размер файла XLSX doober Microsoft Office Excel 5 19.09.2010 21:04
Открытия файла Ayubkhon Общие вопросы Delphi 3 08.06.2010 13:38