ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel.Открытие файлов в фоновом режиме
14 сообщений из 14, страница 1 из 1
Excel.Открытие файлов в фоновом режиме
    #36343546
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
Народ, кто-нибудь знает, возможно ли с помощью макроса, открывать другие файлы эксель в фоновом режиме, чтобы произвести из них копирование? Подскажите команду, если это технически возможно...
...
Рейтинг: 0 / 0
02.12.2009, 15:00
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343670
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Что значит в фоновом режиме ?
Копировать можно так:

Код: plaintext
1.
2.
3.
Dim myEx as object

set myEx = getobject("C:\my.xls")
myEx.Sheets(index).Cells(row,column).Copy
...
Рейтинг: 0 / 0
02.12.2009, 15:28
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343676
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Sub nnn()
   Set objExcel = New Excel.Application
   Set wbhidden = objExcel.Workbooks.Open("c:\Macros\Primeri\Excel\check.xls")
   
     Cells( 1 ,  10 ).Value = wbhidden.Sheets( 1 ).Cells( 1 ,  1 )
     
     wbhidden.Close ' обязательно при выходе из кода
   Set objExcel = Nothing  ' обязательно при выходе из кода
End Sub

Гуру, подправьте, если что не так.
...
Рейтинг: 0 / 0
02.12.2009, 15:29
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343719
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Да, и нужно снять значение с переменной. Вообщем где то так:
Код: plaintext
1.
2.
Set myEx = GetObject("C:\my.xls")
myEx.Sheets( 1 ).Cells( 1 ,  1 ).Copy ActiveWorkbook.Sheets( 1 ).Cells( 1 ,  1 )
Set myEx = Nothing
...
Рейтинг: 0 / 0
02.12.2009, 15:38
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343751
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
С GetObject файл виден, а с objExcel.Workbooks.Open его специально показать надо или убить в конце (иначе, если код сбойнёт, так и остаётся экземпляр Экселя висеть и жизнь портить, через менеджер пока не убьёшь).
...
Рейтинг: 0 / 0
02.12.2009, 15:44
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343783
Oksana Slonevskaya
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Oksana Slonevskaya
Гость
у меня просто задача из многих файлов копировать данные в один, хочу сделать так, чтобы на панели задач они не мелькали при открытии и закрытии. на данный момент файлы открываются таким образом:

sFileName = "\\......"
Set wbReestr = Workbooks.Open(Filename:=sFileName, UpdateLinks:=False)

что мне добавить, чтоб файлы открывались и закрывались в фоне, чтоб их не видно было на панели задач. Спасибо
...
Рейтинг: 0 / 0
02.12.2009, 15:52
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343844
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Ну если Application.ScreenUpdating = False не помогает, то имхо можно в этом
Set objExcel = New Excel.Application
всё и открывать. Вот только objExcel.Sheets(index).Cells(row,column).Copy
похоже не работает между разными Экселями, только
Cells(x,y).Value = objExcel.Sheets(index).Cells(row,column).Value
Но это надо проверить, у меня сейчас не получилось, но может ещё какая тонкость есть...
...
Рейтинг: 0 / 0
02.12.2009, 16:03
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343874
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Слушай, прекрасно справляется
Код: plaintext
1.
2.
3.
4.
5.
   Application.ScreenUpdating = False
     Set wbhidden = GetObject("c:\Macros\Primeri\Excel\check.xls")
     Cells( 1 ,  10 ).Value = wbhidden.Sheets( 1 ).Cells( 1 ,  1 )
     wbhidden.Close ' обязательно при выходе из кода
    Application.ScreenUpdating = True
Ничего не мелькает.
...
Рейтинг: 0 / 0
02.12.2009, 16:10
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343892
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Hugo121С GetObject файл виден...
Я так понял, в последнем своем посте Вы сами себя поправили :)
...
Рейтинг: 0 / 0
02.12.2009, 16:15
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343942
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Если не предпринять спецмер ( Application.ScreenUpdating = False ), то настаиваю, что виден
...
Рейтинг: 0 / 0
02.12.2009, 16:25
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343967
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
Ну не знаю, у меня без спец мер ничего не видно :)
...
Рейтинг: 0 / 0
02.12.2009, 16:31
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36343990
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
У меня видно :) (не подумайте чего плохого ...). Не видно в редакторе по F8, а если его закрыть и запустить макрос - мелькает, вот такой парадокс...
У меня есть длинный код, где я местами юзеру показываю, что уже сделалось, так вот в эти моменты и будут мелькать эти файлы, если они ещё не закрыты. А с New Excel.Application их видно не будет.
...
Рейтинг: 0 / 0
02.12.2009, 16:36
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36344029
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Да, ещё и галка "Показывать окна в панели задач" свою роль играет, у меня всегда включена.
...
Рейтинг: 0 / 0
02.12.2009, 16:43
| Ответить | Цитировать | Написать  
Excel.Открытие файлов в фоновом режиме
    #36344096
m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
m
Гость
В любом случае можно и Ваше application.screenupdating добавить :)
...
Рейтинг: 0 / 0
02.12.2009, 17:05
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Excel.Открытие файлов в фоновом режиме
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&gotonew=1&tid=2178762]:
 0ms
get settings:
 8ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 156ms
get topic data:
 12ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 59ms
get tp. blocked users:
 2ms
others: 208ms
total:  477ms
созд. / загр.: 477ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]