Как открыть excel таблицу в фоне

Как открыть файл в скрытом режиме для пользователя?

​Смотрите также​​ начинаю (пусть она​
​ сохраняет в туже​ ComboBox3.ListIndex = 0​ держать открытым client.xlsm),​ Нужно чтобы рабочая​ тоже производиться в​ у вас книга​ Filename» подчеркнута:​ файл​)​Margot​
​ дело​ — обязательно objXL.Quit​ заработало. Нужен только​ Len(ActiveWorkbook.name) — 5)​ «75» ‘ширина столбцов​Uchimata​ называется Книга1.xlsm).​ папку) книгу с​ Private Sub CommandButton72_Click()​ то все связи​ постоянно была активна​ фоновом режиме в​

​ закрывается без сохранения,​​Sub update()​Ну и ответы​И что значит​: Здравствуйте,​ActiveWorkbook.Close SaveChanges:=True​ ‘убираем указатель на​Set objXL = Nothing​

​ ‘имя минус .XLS​​ .ListRows = 10​

CyberForum.ru

Как активировать файл excel из фонового режима | MS Word

​: Доброе утро!​​Я работаю с​​ названием​​ Dim fName As​ обновляются.​
​webley​ этой книге. Но​ это правильно?​With Application​ на Ваши вопросы​ ? -​Можете ли вы​
​Имя = Dir​ excel Set objXL​Private Sub CommandButton2_Click()​ — 4 символа​ ‘значений в раскрытом​
​Хотел бы узнать​ новой книгой, но​Date & «.xlsx»,​
​ Variant fName =​ПРОБЛЕМА:​: а расчеты в​ в этом случае​
​@Nik​.ScreenUpdating = False​
​ -​Margot​ пояснить поподробнее код​Loop​ = Nothing ‘убираем​ Dim sFilePath, objXL,​этот вариант я​ списке End With​ как открыть файл​ в ней нет​. Потом в​ «C:ПечатьДокументаxlsmDBoss.xlsm» Set fName​Но, если нет​ макрос перенести не​ расчет не происходит.​: Ну не знаю…​.DisplayAlerts = False​1. нужно присвоить​: Имеется ввиду что​ данный выше?​==============================================================​ файл из фонового​ Secur sFilePath =​ пробовал, выводит сообщение​

​ Me.ComboBox3.List = wс.Worksheets(«Руководство»).Range(«СписокФИОВсе»).Value​​ в скрытом режиме​ макросов, и потому​ этой книге макросы​ = CreateObject(«excel.application») ‘Application.GetOpenFilename​

​ открытого приложения Excel,​​ вариант?​​Валерий​
​ Если автоматическое обновление​macrosMAJ = «C:UsersE500892DesktopFichier​ переменной «папка» значение​ нужно писать на​

​Sub update()​​С доработкой вероятно​ режима End Sub​ «C:ПечатьДокументаxlsmРедактированиеДанных.xlsm» ‘ActiveDocument.Path &​ на сохранить или​
​ ComboBox3.ListIndex = 0​ от пользователя,необходимо открыть​ мне нужна первая​

​ выполняют некоторые действия​​ fName = Left(ActiveWorkbook.name,​
​ то при попытке​Валерий​: Так как имена​ включено, то попробуйте​ de SUIVIMBAV BarèmesmacrosMAJ»​ полного пути к​ месте слов «Папка»​

​With Application ‘операции​​ так:​
​ Private Sub CommandButton31_Click()​ ‘objXL.WorkBooks.Close ‘objXL.Quit Set​ нет и все​ Private Sub CommandButton72_Click()​ и закрыть несколько​ книга.​ — какие, не​
​ Len(ActiveWorkbook.name) — 5)​ обновления связей PowerPoint​
​: Не работает​

​ файлов кодируются, надо​​ ещё так:​origine = Dir(macrosMAJ​ той папке, где​ и «Имя»:​ с приложением/отключаем для​Code200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub update()​ CreateObject(«wscript.shell»).Run «C:ПечатьДокументаxlsmDBoss.xlsm» Unload​

​ objXL = Nothing​​ равно открывается в​ Dim fName As​ файлов,но очень не​RAN​ суть важно.​
​ ‘имя минус .XLS​ пытается открыть «фоново»​Валерий​ пояснить:​Sub new_calculation()​ & «*.xls*»)​

​ лежит файл. Примерно​​Я написала этот​

​ повышения скорости работы​​With Application’операции с​
​ Me End SubВсе,​ Set objXL =​ режиме чтения.​ Variant fName =​

​ нравится что они​​: В таком разе​Вопрос, как мою​ — 4 символа​

​ client.xlsm (с поддержкой​​: Не вариант -​post_179806.xls — это​Set objExcel =​

​Do While origine​​ вот так​ код таким образом,что​ макроса​ приложением/отключаем для повышения​ Всем УДАЧИ!​ CreateObject(«Excel.Application») ‘ получаем​Аватар-С​ «C:ПечатьДокументаxlsmDBoss.xlsm» Set fName​ появляются на панели​ тебе нужна надстройка.​ книгу открыть в​ Workbooks(fName).Activate End Sub​ макроса) и валится​ очень много обрабатываемых​ main.xls​ New Excel.Application​

​ <> «»​КодПапка = «c:UsersМояПрочееДля_Excel»​ подставила вместо слова​.ScreenUpdating = False​ скорости работы макроса​ELLE​​ указатель на Application​
​: Писал же!​ = CreateObject(«excel.application») ‘Application.GetOpenFilename​​ и исчезают.Можно ли​​ Она при запуске​ фоновом режиме, и​​Вернуться к обсуждению:​​ в ошибку:​​ даных а экселевский​​post_179808.xls — это​​Set wbhidden =​​With Workbooks.Open Filename:=macrosMAJ​2. КодИмя =​ «папка» имя папки,где​ ‘обновление экрана​​.ScreenUpdating = False’обновление​​: Доброго времени суток!​
​ objXL.Visible = True​
​_shark​
​ fName = Left(ActiveWorkbook.name,​ это избежать??​​ невидима, но макросы​
​ по закрытии книги,​Как активировать файл​»Во время последнего​ движок существенно быстрее​ calculate.xls​ objExcel.Workbooks.Open(«D:calculate.xlsb»)​ & origine, UpdateLinks:=True​ Dir(Папка & «*.xls*»)​ находятся файлы, которые​.DisplayAlerts = False​ экрана​Помогите пожалуйста!!!!​ ‘ делаем окно​: Уже убрал.​ Len(ActiveWorkbook.name) — 5)​Sub Обновление() Application.AskToUpdateLinks​ в ней работают.​​ с которой она​
​ excel из фонового​
​ открытия документа «Client.xlsm»​ чем рукописный макрос.​
​webley​​wbhidden.Sheets(«RES_1»).Cells.Dirty​.Close SaveChanges:=True​ «Имя» — это​ нужно обновить (macrosMAJ)​
​ ‘вывод системных сообщений​.DisplayAlerts = False’вывод​Имеется группа экселевских​ Excel видимым Set​Теперь вообще не​
​ ‘имя минус .XLS​ = False Application.DisplayAlerts​
​ Создается либо сохранением​​ работает (и только​​ режима | MS​ Произошла серьезная ошибка.​
​@Nik​
​: Я думаю, дело​wbhidden.Close False​End With​ переменная. С тем​ и вместо «Имя»​Папка (имеется ввиду​ системных сообщений​ файлов (около 400),​
​ wс = objXL.WorkBooks.Open(sFilePath)​ чего не происходит,​
​ — 4 символа​ = False Workbooks.Open​ как надстройка (Книга1.xlam),​ этой книги) сохранить​ Word​ Продолжить его открытие?»​: А если сделать​ в том, что​Set objExcel =​origine = Dir​ же успехом можно​ — имя файла​ что надо прописать​Папка = «полный​ данные из которых​ End SubЯ ведь​ не ругается не​ Workbooks(fName).Activate End Sub​ «…Файл.xls» ActiveWorkbook.RunAutoMacros xlAutoOpen​ либо поставить свойство​ и закрыть обе?​Следующий ответ​Проблемы нет в​ так:​ в когда открывается​ Nothing​Loop​ было назвать «Imya».​ в котором изменяются​

CyberForum.ru

!!!!! ОБНОВЛЕНИЕ ФАЙЛОВ БЕЗ ОТКРЫТИЯ!!!!!

​ имя папки ?)=​​ путь папки»​
​ сводятся в отдельном​
​ это и прислал​ открывает.​Аватар-С​ ActiveWorkbook.Save ActiveWorkbook.Close Workbooks.Open​ IsAddin (в модуле​
​зы. Только мне​dimanoid​ случае фонового открытия​Sub new_calculation()​ книга в другом​End Sub​.ScreenUpdating = True​
​ Кстати, как и​ данные (origine):​ «полный путь папки»​’———— Excel-файлы в​ файле.​
​ в архиве См​Аватар-С​: Вот смотри верхняя​ «…Файл2.xlsx» ActiveWorkbook.RunAutoMacros xlAutoOpen​ книги) True (Книга1.xlsm)​

​ не надо направление,​​: ДАНО:​ обычного xlsx-файла (БЕЗ​Workbooks.Open («D:calculate.xls»)​ экземпляре Excel, то​Или попробуйте вставить​.DisplayAlerts = True​

​ «папка». Просто автор​​Sub update()​’———— Excel-файлы в​ этой папке ——————​
​Данные в каждом​ #14​: Приложил бы файл​

​ строка fName -​​ ActiveWorkbook.Save ActiveWorkbook.Close Application.AskToUpdateLinks​Но если просто​ пальцем укажите, если​
​MS Office 2010​
​ макросов) Предполагаю, что​Windows("calculate.xls").Visible = False​ связи между ячейками​
​Application.Calculation = xlCalculationManual​End With​
​ макроса посчитал, что​With Application​
​ этой папке ------------------​Имя = Dir(Папка​
​ файле зависят от​_shark и toiai​
​ пример, легче было​ объект, нижняя -​
​ = False Application.DisplayAlerts​ убрать с глаз​ это действие возможно​
​client.xlsm (с поддержкой​
​ проблема с фоновым​
​Workbooks("calculate.xls").Close False​
​ просто нет. А​
​Application.Calculation = xlCalculationAutomatic​End Sub​
​ так будет понятнее​
​.ScreenUpdating = False​Имя (о каком​ & «*.xls*»)​
​ даты, которая забивается​Спасибо за участие!​
​ осознать проблему.​ строка определись?​
​ = False Workbooks.Open​ долой — тогда​
​Гость​ макроса)​
​ открытием именно xlsm-файла​Application.Visible = True​
​ почему не сделать​Hugo​
​Валерий​
​Margot​.DisplayAlerts = False​
​ имени тут идет​Do While Имя​ в сводном файле,​
​Коллеги и еще немного​
​Аватар-С​
​Аватар-С​
​ «…Файл3.xlsx» ActiveWorkbook.RunAutoMacros xlAutoOpen​
​ Visible.​: visible=false​
​top.pptx — презентация​ (безопасность?)​
​End Sub​
​ просто вот так?​

​: А как Вы​​: Добрый день. Столкнулся​: Спасибо за ответ!Теперь​macrosMAJ = «C:Users…macrosMAJ»​ речь?)= Dir(Папка &​ <> «»​ и на которую​
​ о наболевшем.​: Да, Коллеги прошу​
​:​ ActiveWorkbook.Save ActiveWorkbook.Close End​
​Michael_S​

​Michael_S​​ со внедренными (связанными)​
​Что можно сделать/попробовать?​
​webley​Sub new_calculation()​ определяете, что пересчёт​ с такой проблемой.​ это понятно.​origine = Dir(macrosMAJ​
​ «*.xls*») (имя папки​With .Workbooks.Open _​
​ ссылаются эти отдельные​toiai​
​ прощенья с этого​
​toiai​

​ Sub​​: Спасибо, с вопросом​
​: Пробую для проверки​

​ диапазонами и диаграммами​​ (С галками в​
​: ЗдОрово! Надо на​Workbooks.Open («D:calculate.xls»)​ не происходит?​
​ Пытаюсь запустить из​
​Переделала, но все​ & "*.xls*")​ & "*.xls*"?)​(Filename:=Папка & Имя,​
​ файлы.​прошу прощенья не​
​ следовало начать.​Материться желтым цветом​
​Vlad999​ Visible разобрался..​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub ttt1()​ из client.xlsm​
​ Центре безопасности Excel​ будущее запомнить…​
​Application.Visible = False​Валерий​ одной рабочей книги​ равно строчка с​Do While macrosMAJ​
​Do While Имя​ UpdateLinks:=True)​Как сделать так,​ знаю почему и​
​Аватар-С​
​ на Workbooks(fName).Activate (Sub​: Sub Макрос1() Application.ScreenUpdating​
​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Windows(«книга1.xlsx»).Visible=false​Workbooks(3).Visible = False​При открытии top.pptx​
​ и PowerPoint уже​
​Валерий​
​Workbooks(«calculate.xls»).Close False​
​: Да, правильно. Она​
​ вторую (вспомогательную, в​ «With Workbooks.Open Filename»​
​ <> «»​ (каком имени тут​
​’здесь Ваш макрос​
​ чтобы дата (или​
​ как умудрился пропустить​: мне тоже приходилось​ of Function not​ = False Workbooks.Open​Остался вопрос про​End Sub​ PowerPoint Предлагает «Обновить​ игрался, включая доверенные​: Не подходит -​Application.Visible = True​ только считает и​
​ которой будет осуществляться​

​ подчеркивается :​​With .Workbooks.Open _​ идет речь?) <>​

​ делает свое грязное​​ ссылка) в тих​ Ваш вложенный файл.​
​ в одном из​ defined)​ «D:таблица для заказа​ закрытие и сохранение.​-ошибка​​ связи». Если к​​ файлы и места​
​ книга-то все равно​End Sub​

​ возвращает данные в​​ расчет, исходя из​Sub update()​(Filename:=macrosMAJ & origine,​ «»​
​ дело​ файлах обновлялась автоматически​Стал имплантировать код​ своих макросов открывать​_shark​ панелей..xls», UpdateLinks:=True ‘ваша​RAN​Workbooks(3).Name = «Демонстрация​ моменту обновления просто​ расположения)​
​ открывается, да и​
​dl​
​ первую книгу.​
​ параметров первой книги)​
​With Application​
​ UpdateLinks:=True)​КодWith .Workbooks.Open _​
​.Close SaveChanges:=True​ без открытия файла???​
​ в рабочую форму​
​ Excel в фоновом​: Должно быть открыто​
​ обработака на листе​
​: http://www.excelworld.ru/forum/2-2140-1​
​ (001_1).xlsm", открыта.​
​ открыт даже "пустой"​
​Аватар-С​
​ Visible отключать смысла​
​: задача​
​Валерий​
​ в фоновом режиме​.ScreenUpdating = False​.Close SaveChanges:=True​(Filename:=Папка & Имя,​
​End With​
​Или, может, есть​ и опять файл​

​ (невидимом) режиме и​​ в одном окне,​

​ ActiveWorkbook.Close Application.ScreenUpdating =​​Michael_S​RAN​ Excel (не обязательно​:​

​ нет, т.е.книга потом​​есть расчётная книга​: Данные не возвращаются.​ и выполнить расчет.​
​.DisplayAlerts = False​End With​

​ UpdateLinks:=True)​​Имя = Dir​ какая-то программка, которая​

​ открывается в режиме​​ получать/сохранять оттуда данные.​ а у тебя​ True End Sub​: Спасибо, но не​
​: Погляди в сторону​​ держать открытым client.xlsm),​Здравствуйте Коллеги!​ все-равно закрывается.​
​ которая содержит ссылки​ Причем пересчет в​ Код такой:​
​macrosMAJ = «C:UsersE500892…macrosMAJ»​origine = Dir​’здесь Ваш макрос​Loop​ бы запускала обновление​ только чтение.​
​ Такая ситуация с​
​ в разных.​Uchimata​ совсем то, что​ GetObject​ то все связи​Прошу помощи в​webley​ на данные рабочей​ обычном режиме занимает​Sub new_calculation()​

​origine = Dir(macrosMAJ​​Loop​ делает свое грязное​
​.ScreenUpdating = True’обновление​ этих файлов в​В общем проблему​ режимом «только для​
​Попробуй использовать GetObject,​
​: Спасибо большое!!Очень помогли!​
​ мне надо. второй​
​Set CADObject =​
​ обновляются.​
​ решении следующей ситуации.​: А в чем​
​ книги​ довольно длительное время,​
​Set objExcel =​ & "*.xls*")​
​.ScreenUpdating = True​
​ дело​
​ экрана​
​ определенное время?​
​ решил следующим кодом:​
​ чтения" была тогда,​
​ у меня проверить​
​Аватар-С​

​ вопрос — создам​​ GetObject(«C:CADDate & «.xlsx»»)​ПРОБЛЕМА:​Есть форма в​ проблема тогда? Можно​в ней есть​ а в фоновом​ New Excel.Application​Do While origine​

​.DisplayAlerts = True​​.Close SaveChanges:=True​
​.DisplayAlerts = True’вывод​​Serge_007​CreateObject(«wscript.shell»).Run «C:ПечатьДокументаxlsmDBoss.xlsm»​ когда в памяти​ нет возможности.​

​:​​ другую тему.​После такого открытия​Но, если нет​ документе word она​ подумать, что в​ ячейки «итого» содержащие​
​ книга только открывается​
​Set wbhidden =​
​ <> ""​
​End With​
​End With​ системных сообщений​
​: Без открытия боюсь​Здравствуйте Коллеги!​
​ находилось два процесса​Аватар-С​
​Здравствуйте Коллеги!​RAN​
​ книга всегда будет​
​ открытого приложения Excel,​
​ имеет ComboBox1 (данные​
​ первоначальном коде книга​
​ результаты расчёта по​
​ и закрывается без​
​ objExcel.Workbooks.Open("D:calculate.xlsb")​
​With Workbooks.Open Filename:=macrosMAJ​

excelworld.ru

Расчет книги в фоновом режиме

​ она отображалась, ее​​ пытается открыть «фоново»​ запущена в фоновом​

​ цель достигнута. Или​​в рабочей книге​Валерий​Set objExcel =​End With​

​.DisplayAlerts = True​​ Только не могли​ этого не увидит​ бы заработало но,​

​ дальше​​ = Left(ActiveWorkbook.name, Len(ActiveWorkbook.name)​ имеет ComboBox1 (данные​ совсем не понял,​ отобразить. Можешь поставить​

​ макроса) и валится​​Форма также имеет​Валерий​ ячейки итого расчётной​ я что-то принципиально​End Sub​Loop​КодWith .Workbooks.Open _​ ‘вывод системных сообщений​ бы Вы еще​

​ELLE​​ при открытии файла​Вот вариант не​ — 5) ‘имя​
​ приходят из таблицы​ что нать.​

​ свойство IsAddin (в​​ в ошибку:​ CommandButton1 который должен​

​: Всем, кто мне​​ книги​ не так делаю.​Почему-то расчет не​.ScreenUpdating = True​

​(Filename:=macrosMAJ & origine,​​End With​ объяснить как создать​: Serge_007, что значит​ в Excel выходило​ в режиме чтения,​ минус .XLS -​ excel «Книга1.xlsm» которая​
​Аватар-С​ модуле книги) True.Тогда​»Во время последнего​ вызывать файл «Книга1.xlsm»​ помогал спасибо. Решил​проблема​Прикреплю файлы, пожалуй.​ выполняется. Подскажите в​.DisplayAlerts = True​ UpdateLinks:=True)​End Sub​ макрос более подробно.​

​ открывать в фоновом​​ сообщение на тему​ но надо перед​ 4 символа Workbooks(fName).Activate​
​ запущена в фоновом​:​
​ при необходимости проглядеть​ открытия документа «Client.xlsm»​

​ для редактирования данных​​ проблему следующим образом:​ссылки на данные​ Вот первый​ чем проблема, пожалуйста.​End With​_Boroda_​Извините за такие​ что за чем.​ режиме?​
​ — файл уже​
​ запуском формы в​
​Аватар-С​
​ режиме).​
​_shark и toiai​
​ книгу, нужно будет​

​Проблемы нет в​​ получиться, создается файл​ GetObject(«D:primercalculate.xlsb», «Excel.Sheet»)​

​ открыть расчётную книгу​​ считает​Sub new_calculation()​: Потому, что это​: я сделала как​

​ я нашла код​​не так много​ Только учусь!​Решить удалось следующим​

​shark​​ Len(ActiveWorkbook.name) — 5)​

​ вызывать файл «Книга1.xlsm»​​ о наболевшем.​ сменить свойство IsAddin​ случае фонового открытия​ для чтения.​book.Close False​

​Это я, пробовал​​ ‘имя минус .XLS​ для редактирования данных​

​toiai​​ на False.​ обычного xlsx-файла (БЕЗ​Помогите пожалуйста научиться​End Sub​ и посчитать ячейки​: А книга main.xls​

​ New Excel.Application​​ к файлу. «…»​ весь код заменяется​ без открытия и​заранее спасибо!​: Нашёл в закромах​Private Sub UserForm_Initialize()​ не помогает.​ — 4 символа​

planetaexcel.ru

Открытие из PowerPoint в ФОНОВОМ режиме xlsm-файла с макро (Ошибка при открытии из PPoint xlsM-файла в фоновом режиме)

​Hugo​​ — откуда взял,​
​ Dim sFilePath, objXL​
​Аватар-С​ Workbooks(fName).ActivateЕсли эта книга​
​Просто открыть не​ знаю почему и​ можно использовать.​ проблема с фоновым​
​ из фонового режима​ и думал, что​открываем расчётную книгу​ Если нет, попробуйте​ objExcel.Workbooks.Open(«D:calculate.xlsb»)​ не должно. Скопируйте​_Boroda_​ совсем новичок в​: Подробнее тут:​
​ не записано…​
​ ‘, Secur sFilePath​, попробуйте все-таки сначала​ активна, зачем… надо​ получиться, создается файл​ как умудрился пропустить​PS​ открытием именно xlsm-файла​ для редактирования данных.​
​ какая-то принципиальная ошибка.​обновляем связи​ открыть и её.​wbhidden.Sheets(«RES_1»).Activate​
​ и вставьте именно​: А Вы где​ работе с макросами​http://www.excelworld.ru/publ/vba/first_step/excel_macro/39-1-0-114​200?’200px’:»+(this.scrollHeight+5)+’px’);»>==============================================================​ = «C:ПечатьДокументаxlsmDBoss.xlsm» ‘ActiveDocument.Path​ закрыть объект​
​ убрать​ для чтения.​ Ваш вложенный файл.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Sub qq()​ (безопасность?)​В ниже приведенном​dimanoid​

excelworld.ru

Как активировать файл excel из фонового режима | MS Word

​пересчитываем расчётную книгу​​Валерий​​Application.CalculateFull​​ полный путь к​ кнопку нажимаете? На​
​ не могу понять​Освоите простой код​Применение макроса ко​ & Set objXL​objXL.WorkBooks.Close​После GetObject вставь​Помогите пожалуйста научиться​
​Стал имплантировать код​ActiveWindow.Visible = False​Что можно сделать/попробовать?​ коде мои действия​: ДАНО:​
​обновляем связи в​: Принцип такой: работаем​wbhidden.Close False​
​ папке.​ клавиатуре?​ как его применить.​ — можете попробовать​
​ всем файлам из​ = CreateObject(«Excel.Application») ‘получаем​
​, затем выйти​ строку​ активировать файл «Книга1.xlsm»​ в рабочую форму​End Sub​ (С галками в​Dim sFilePath, objXL,​MS Office 2010​ книге данных​ в книге main.xls,​Set objExcel =​_Boroda_​Нужно на панели.​Спасибо за помощь!​ этот (но сперва​ папки​ указатель на Application​objXL.Quit​fName.Application.Visible = True​ из фонового режима​ и опять файл​PPS При использовании​ Центре безопасности Excel​ Secur sFilePath =​
​client.xlsm (с поддержкой​
​закрываем расчётную книгу​ при необходимости совершить​ Nothing​: Конечно. Слеш забыли​​ Вот здесь​

CyberForum.ru

Открытие из PowerPoint в ФОНОВОМ режиме xlsm-файла с макроcом

​buchlotnik​​ на тестовых файлах,​
​Папка = «полный​
​ objXL.Visible = False​, обнулить объект​
​Аватар-С​ для редактирования данных.​ открывается в режиме​ IsAddin открытую книгу​
​ и PowerPoint уже​ «C:ПечатьДокументаxlsmDBoss.xlsm» Set objXL​ макроса)​ с сохранением!​ расчет открываем книгу​End Sub​Цитата​Margot​: Доступно только для​
​ или на копии​
​ путь папки»​ ‘делаем окно Excel​Set objXL = Nothing​: можно попробовать закрыть​В ниже приведенном​ только чтение.​ не увидишь даже​ игрался, включая доверенные​
​ = CreateObject(«Excel.Application») Set​top.pptx — презентация​иначЕ при обновлении​ calculate.xls, происходит расчет,​
​Правда, будет выполнен​_Boroda_, 10.10.2017 в​: Спасибо за объяснение))​ пользователей​ рабочих в спецпапке).​’———— Excel-файлы в​ не видимым objXL.ScreenUpdating​
​, а затем уже​ открытую книгу, а​ коде мои действия​В общем проблему​ через меню Вид-Отобразить.​ файлы и места​ wс = objXL.Workbooks.Open(sFilePath)​

planetaexcel.ru

Как при окрытии книги сделать ее «невидимой»?

​ со внедренными (связанными)​​ связей в книге​
​ результаты записываются в​ пересчёт всех открытых​ 10:20, в сообщении​ исправила​_Boroda_​Путь к папке​ этой папке ——————​ = False Set​​ выполнять код по​​ потом через Shell​Dim sFilePath, objXL,​ решил следующим кодом:​Michael_S​ расположения)​
​ With ComboBox3 .ColumnCount​ диапазонами и диаграммами​ данных получим старые​ main.xls​ книг, но зато​ № 16 ()​_Boroda_​: — Прочитайте Правила​
​ пропишите вместо​Имя = Dir(Папка​ wс = objXL.Workbooks.Open(sFilePath)​ повторному запуску Экселя​

​ еще раз активировать​​ Secur sFilePath =​

​CreateObject(«wscript.shell»).Run «C:ПечатьДокументаxlsmDBoss.xlsm»​​: RAN, мне нужно​
​Michael_S​
​ = 2 'колличество​
​ из client.xlsm​
​ данные.​
​Загвоздка в том,​ и требуемая в​

​ Папка = «c:UsersМояПрочееДля_Excel»​​: А теперь я​ форума​
​Папка = «полный​ & «*.xls*»)​
​ ‘ШТАМ Me.ComboBox24.List =​ для редактирования данных.​ Excel с параметром​ «C:ПечатьДокументаxlsmDBoss.xlsm» Set objXL​Вернуться к обсуждению:​ (желательно) скрыть​: Всем добрый день!​ столбцов .ColumnWidths =​При открытии top.pptx​Guest​ что книга calculate.xls​ том числе.​Margot​ Вас огорчу -​- Оформите код​
​ путь папки»​Do While Имя​
​ wс.Worksheets(«Штампы»).Range(«СписокШтампы»).Value ComboBox24.ListIndex =​
​_shark​
​ fName, содержащим путь​
​ = CreateObject("Excel.Application") Set​
​Как активировать файл​не новую​Суть вопроса: у​ «75» ‘ширина столбцов​

​ PowerPoint Предлагает «Обновить​​: Да, кстати, а​ должна открываться в​​Валерий​​: Исправила как вы​ видите в макросе​​ тегами (в режиме​​например​ <> «»​ 0 ‘в принципе​
​,​ до нужной книги.​ wс = objXL.Workbooks.Open(sFilePath)​ excel из фонового​книгу, а мою​ меня есть книга,​

​ .ListRows = 10​​ связи». Если к​ метод Application.CalculateFullRebuild пробовали?​ фоновом режиме (т.е.​: Пробовал, не помогает.​ написали, но опять​ строчку​ правки поста выделите​Папка = «C:TMPспецпапка»​Workbooks.Open FileName:=Папка &​ нужно было разобраться​
​Хорошо пробую.​_shark​ With ComboBox3 .ColumnCount​ режима | MS​

​ «​​ при своем открытии​ ‘значений в раскрытом​​ моменту обновления просто​
​Валерий​ чтобы пользователь ничего​

​ Сижу, медитирую.​​ не работает и​

​.Workbooks.Open​​ код и нажмите​ELLE​ Имя , UpdateLinks:=True​ с этими тремя​_shark​

​: начинает ругаться на​​ = 2 ‘колличество​ Word​основную»​
​ она также открывает​ списке End With​ открыт даже «пустой»​

excelworld.ru

Как активировать файл excel из фонового режима | MS Word

​: Тогда скроются все​​ не заметил), и​​webley​
​ та же строчка​
​? Так вот,​ кнопку​
​: Hugo, спасибо!​​’здесь Ваш макрос​ строками wс.Close False​О! Япона мама​ fName = Left(ActiveWorkbook.name,​
​ столбцов .ColumnWidths =​Следующий ответ​, с которой я​ (или создает и​ Me.ComboBox3.List = wс.Worksheets(«Руководство»).Range(«СписокФИОВсе»).Value​
​ Excel (не обязательно​ книги в приложении.​
​ расчет, соответственно, должен​
​: А то что​
​ с «With Workbooks.Open​ эта строка ОТКРЫВАЕТ​#​попробую!​​ делает свое грязное​

CyberForum.ru

​ ‘закрываем файл False​

В данном материале вы узнаете два простых способа изменения фона клеток на базе их содержания в Excel последних версий. Также вы поймете, какие формулы применять для смены оттенка клеток или ячеек, где формулы прописаны неправильно, или где вообще отсутствует информация.

Каждый знает, что редактирование фона простой клетки является простой процедурой. Необходимо нажать на «цвет фона». Но что делать, если требуется коррекция цвета исходя из определенного содержания ячейки? Как сделать, чтобы это происходило автоматически? Далее вы узнаете ряд полезных сведений, которые дадут вам возможность найти верный способ для выполнения всех этих задач.

Динамическое изменение цвета фона клетки

Задача: Вы имеете таблицу или набор значений, и вам надо отредактировать цвет фона клеток, основываясь на том, какая цифра там вписана. Также вам необходимо добиться того, чтобы оттенок реагировал на изменение значений.

Решение: Для этой задачи предусмотрена функция Excel «условное форматирование», чтобы окрашивать клетки с числами, больше чем X, меньше чем Y или в диапазоне между X и Y.

Представим, у вас имеется набор товаров в разных штатах с их ценами, и необходимо знать, какие из них по стоимости превышают 3,7 долларов. Поэтому мы решили те товары, которые находятся выше этого значения, подсвечивать красным цветом. А клетки, имеющие аналогичное или большее значение, решено окрашивать в зеленый оттенок.

Примечание: Скриншот был сделан в программе 2010 версии. Но это не влияет ни на что, поскольку последовательность действий одинаковая, независимо от того, какую версию — последнюю, или нет — использует человек.

Итак, что нужно сделать (пошагово):

1. Выбрать клетки, в которых следует отредактировать оттенок. Например, диапазон $B$2:$H$10 (наименования колонок и первая колонка, в которой приводятся названия штатов, исключены из выборки).

2. Нажать на «Главная» в группе «Стили». Там будет находиться пункт «Условное форматирование». Там же нужно выбрать пункт «Новое правило». В английской версии Excel последовательность шагов следующая: “Home”, “Styles group”, “Conditional Formatting > New Rule».

3. В открывшемся окне следует поставить галочку «Форматировать только ячейки, которые содержат» (“Format only cells that contain” в английской версии).

4. Внизу этого окна под надписью «Форматировать только ячейки, для которых выполняется следующее условие» (Format only cells with) можно назначить правила, по которым и будет выполняться форматирование. Мы выбрали формат для указанного значения в клетках, которое должно превышать 3.7, как видно со скриншота: 

5. Далее следует кликнуть по кнопке «Формат». Появится окно, где слева находится область выбора фонового цвета. Но перед этим следует открыть вкладку “Заполнить” («Fill»). В данном случае это красный оттенок. После этого следует кликнуть по кнопке «ОК».

6. Затем вы возвратитесь в окно «Новое правило форматирования», но уже внизу этого окна можно предварительно посмотреть, как будет выглядеть эта клетка. Если все отлично, нужно нажать на кнопку «ОК».

В результате, получится что-то вроде этого:

Далее нам необходимо добавить еще одно условие, то есть, поменять фон клеток со значениями меньше 3.45, на зеленый цвет. Для выполнения этой задачи необходимо снова кликнуть на «Новое правило форматирования» и повторить описанные выше шаги, только условие нужно поставить как «меньше чем, или эквивалентно» (в английской версии «less than or equal to», а далее прописать значение. В конце нужно нажать кнопку «ОК».

Теперь таблица отформатирована таким способом.

На ней отображаются самые высокие и низкие котировки на топливо в различных штатах, и можно сразу определить, где ситуация наиболее оптимистичная (в Техасе, конечно же).

Рекомендация: Если будет необходимость, можно воспользоваться похожим методом форматирования, редактируя не фон, а шрифт. Для этого в окне форматирования, который появился на пятом этапе, нужно выбрать вкладку «Font» и руководствоваться подсказками, приводимыми в окне. Там все интуитивно понятно, и разобраться может даже новичок.

В результате, получится такая табличка:

Как оставить цвет ячейки таким же, даже если меняется значение?

Задача: Вам необходимо окрасить фон так, чтобы он не менялся никогда, даже если в будущем фон изменится.

Решение: найдите все клетки с определенным числом, используя функцию Excel “Найти все” «Find All» или дополнением “Выбрать особые ячейки” («Select Special Cells»), а после этого отредактировать формат ячейки, пользуясь функцией “Форматировать ячейки” («Format Cells»).

Это одна из тех нечастых ситуаций, которые не предусмотрены в руководстве Excel, и даже в интернете решение этой проблемы можно встретить довольно редко. Что неудивительно, поскольку данная задача не является стандартной. Если необходимо отредактировать фон навсегда, чтобы он никогда не менялся, пока не будет скорректирован пользователем программы вручную, необходимо следовать приведенной выше инструкции.

Выбрать все клетки, которые содержат определенное условие

Существует несколько возможных методов, зависящих от того, какие виды конкретного значения следует найти.

Если надо обозначить особым фоном клетки с определенным значением, необходимо перейти к вкладке «Главная» и выбрать «Найти и выделить” – «Найти».

Введите нужные значения и кликните на «Найти все».

Подсказка: Можно кликнуть на кнопку «Параметры» справа, чтобы воспользоваться некоторыми дополнительными настройками: где искать, как просматривать, учитывать ли большие и маленькие буквы, и так далее. Также можно прописывать дополнительные символы, например, звездочку (*), чтобы найти все строки, содержащие эти значения. Если использовать знак вопроса, можно отыскать какой угодно единичный символ.

В нашем прошлом примере, если необходимо найти все котировки на топливо между 3,7 и 3,799 долларов, мы можем уточнить наш поисковой запрос.

Теперь выберите какое угодно из значений, которые нашла программа, внизу диалогового окна и кликните по одному из них. После этого следует нажать на комбинацию клавиш «Ctrl-A» для выделения всех результатов. Далее нажмите на кнопку «Закрыть». 

Вот как можно выбрать все клетки с определенными значениями, используя функцию «Найти все». В нашем примере нам необходимо найти все цены на топливо выше 3,7 долларов и, к сожалению, Excel не позволяет делать это с помощью функции «Найти и заменить».

“Бочка меда” здесь обнаруживается благодаря тому, что есть другой инструмент, который поможет в выполнении таких сложных задач. Называется он «Select Special Cells». Это дополнение (которое нужно устанавливать к Excel отдельн), которое поможет:

• найти все значения в определенном диапазоне, например, между -1 и 45,
• получить максимальное или минимальное значение в колонке,
• найти строку или диапазон,
• отыскать клетки по окраске фона и многое другое.

После установки дополнения просто нажмите кнопку “Выбрать по значению” («Select by Value») и потом уточните поисковый запрос в окне аддона. В нашем примере мы ищем числа больше 3,7. Нажмите на “Выбрать” («Select»), и через секунду получите результат наподобие такого:

Если дополнение вас заинтересовало, вы можете скачать пробную версию по ссылке.

Изменение фона выбранных клеток через окно «Форматировать ячейки»

Теперь, после того, как все клетки с определенным значением были выделены одним из описанных выше методов, осталось указать цвет фона для них.

Чтобы сделать это, необходимо открыть окно «Формат ячеек», нажав на клавишу Ctrl + 1 (также можно нажать правой кнопкой мышки по выделенным клеткам и кликнуть левой кнопки мыши по пункту «форматирование ячеек») и настроить такое форматирование, которое необходимо.

Мы выберем оранжевый оттенок, но можно выбрать любой другой.

Если надо отредактировать цвет фона, не меняя других параметров внешнего вида, можно просто кликнуть на «заливка цветом» и выбрать цвет, который идеально подходит.

В результате, получится такая таблица:

В отличие от предыдущей техники, здесь цвет клетки не будет изменяться, даже если будет редактироваться значение. Это можно использовать, например, для отслеживания динамики товаров определенной ценовой группы. Их стоимость изменилась, а цвет остался прежним.

Редактирование цвета фона для особенных ячеек (пустых или с ошибками при написании формулы)

Аналогично предыдущему примеру, у пользователя есть возможность редактировать цвет фона специальных клеток двумя способами. Бывает статический и динамический варианты.

Применение формулы для редактирования фона

Здесь окрас ячейки будет редактироваться автоматически, исходя из ее значения. Этот метод во многом помогает пользователям и востребован в 99% ситуаций.

В качестве примера можно использовать прежнюю таблицу, но сейчас часть клеток будет пустой. Нам нужно определить, какие не содержат никаких показаний, и отредактировать цвет фона.

1. На вкладке «Главная» необходимо кликнуть на «Условное форматирование» –>  «Новое правило» (так, как в шаге 2 первого раздела «Динамическое изменение цвета фона».

2. Далее необходимо выбрать пункт «Использовать формулу для определения…».

3. Ввести формулу =IsBlank() (ЕПУСТО в русскоязычной версии), если требуется отредактировать фон пустой клетки, или =IsError() (ЕОШИБКА в русскоязычной версии), если надо найти клетку, где есть ошибочно написанная формула. Поскольку в данном случае нам необходимо отредактировать пустые ячейки, вводим  формулу =IsBlank(), а потом размещаем курсор между круглыми скобками и нажимаем на кнопку рядом с полем ввода формулы. После этих манипуляций следует выбрать вручную диапазон клеток. Кроме этого, можно указать диапазон самостоятельно, например, =IsBlank(B2:H12).

4. Кликнуть по кнопке «Форматировать» и выбрать подходящий фоновый цвет и сделать все так, как описано в пункте 5 раздела «Динамическое изменение цвета фона клетки», а потом нажать «ОК». Там же можно посмотреть, какой будет цвет клетки. Окно будет выглядеть приблизительно так.

5. Если вам понравился фон ячейки, надо нажать на кнопку «ОК», и изменения сразу будут внесены в таблицу.

Статическое изменение фонового цвета специальных ячеек

В данной ситуации единожды назначенный цвет фона продолжит оставаться таким, независимо от того, как клетка будет меняться.

Если необходимо перманентное изменение специальных клеток (пустых или содержащих ошибки), следуйте этой инструкции:

1. Выберите ваш документ или несколько ячеек и нажмите на F5 для открытия окна «Переход», а потом нажмите на кнопку «Выделить».
2. В открывшемся диалоговом окне выберите кнопку «Blanks» или «Пустые ячейки» (исходя из версии программы — рус. или англ.) для выделения пустых клеток.
3. Если вам следует подсветить клетки, имеющие формулы с ошибками, следует выбрать пункт «Формулы» и оставить единственный флажок возле слова «Ошибки». Как следует из скриншота выше, выделять можно клетки по любым параметрам, и каждая из описанных настроек доступна при необходимости.
4. Напоследок необходимо изменить цвет фона выделенных ячеек или кастомизировать их любым другим способом. Для этого нужно воспользоваться методом, описанным выше.

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

Как выжать максимум из Excel?

Как активные пользователи Microsoft Excel, вы должны знать, что он содержит множество возможностей. Некоторые из них мы знаем и любим, другие же остаются таинственными для среднестатистического пользователя, и большое количество блогеров пытаются пролить хотя бы немного света на них. Но бывают распространенные задачи, которые придется выполнять каждому из нас, а Excel не вводит некоторые возможности или инструменты, чтобы автоматизировать некоторые сложные действия.

И решением этой проблемы становятся дополнения (аддоны). Некоторые из них распространяются бесплатно, другие – за деньги. Существует множество подобных инструментов, которые могут выполнять разные функции. Например, находить дубликаты в двух файлах без загадочных формул или макросов.

Если совмещать эти инструменты с основным функционалом Excel, можно добиться очень больших результатов. Например, можно узнать, какие цены на топливо изменились, а потом обнаружить дубликаты в файле за прошлый год.

Видим, что условное форматирование – это удобный инструмент, который позволяет автоматизировать работу над таблицами без каких-то специфических навыков. Вы теперь умеете несколькими способами заливать клетки, исходя из их содержимого. Теперь осталось только это воплотить на практике. Удачи!

Этот прием позволит Вам выводить на экран окно-заставку при открытии любой заданной книги в Excel.

Заставка появляется сразу после открытия файла и автоматически исчезает через несколько секунд.

Шаг 1. Создаем экранную форму

Откройте редактор Visual Basic — в старых версиях Excel это можно сделать через меню Сервис — Макрос — Редактор Visual Basic (Tools — Macro — Visual Basic Editor), а в новых кнопкой Visual Basic на вкладке Разработчик (Developer) и создайте новую форму, используя команду меню Insert — UserForm. Появится пустая серая оконная форма будущей заставки. Добавим на нее изображение при помощи панели инструментов Toolbox (если у вас ее не видно, то зайдите в меню View — Toolbox):

Нажмите кнопку Image и растяните на форме прямоугольник — в него будет помещено фоновое изображение. Затем на панели инструментов Properties (если у вас ее не видно, то выберите в меню View — Properties) задайте выберите файл картинки в поле Picture:

Возможно, придется немного изменить размер формы, чтобы изображение уместилось полностью. Чтобы написать на форме текст, можно использовать элемент управления Label с панели Toolbox.

Ну, и наконец, выделив предварительно всю форму, можно задать текст в строке заголовка, используя свойство Caption в панели Properties:

В итоге у вас должно получиться нечто подобное:

Шаг 2. Добавляем управляющий код

Щелкните правой кнопкой мыши по форме и выберите View Code. В открывшийся модуль формы добавьте такой код:

 
Private Sub UserForm_Activate() 
   Application.OnTime Now + TimeValue("00:00:05"), "KillTheForm" 
End Sub

Откройте модуль ЭтаКнига в левом верхнем углу (если ее не видно — отобразите соответствующее окно через меню View — Project Explorer) и добавьте в него следующий код:

 
Private Sub Workbook_Open() 
   UserForm1.Show 
End Sub
 

И, наконец, вставьте обычный модуль (Insert — Module) и скопируйте туда это:

 
Private Sub KillTheForm() 
   Unload UserForm1 
End Sub 

Все. Можно закрывать редактор Visual Basic, сохранять файл и пробовать закрыть-открыть книгу…

Как это работает?

При открытии книги Excel выполняет процедуру Workbook_Open из модуля ЭтаКнига. Эта процедура отображает на экране нашу форму-заставку. При отображении формы запускается процедура UserForm_Activate, которая с задержкой в 5 секунд запускает макрос KillTheForm, который убирает форму с экрана.

Ссылки по теме

• Что такое макросы, как с ними работать, куда вставлять код на Visual Basic

В Excel имеются инструменты для удобного просмотра листа с большим количеством данных. А так же инструменты для просмотра несколько листов и несколько книг – одновременно.

Для примера будим брать большие прайсы поэтому их нужно подготовить заранее. При их просмотре с горизонтальной или вертикальной прокруткой листа сразу теряем заголовки столбцов и строк таблиц.

Чтобы удобно просматривать данные на листе Excel сделаем так, чтобы первая строка и два первых столбца постоянно отображались. Не зависимо от положения полос прокрутки.

Разделение окна при просмотре в Excel

Просмотр двух частей листа в отдельных панелях:

1. Перейдите в ячейку C2 и выберите инструмент на панели: «Вид»-«Разделить». Окно разделится на 4 независимые панели (подокна).



2. Нижнюю правую панель прокрутите вниз и вправо.



3. Щелкнув еще раз по инструменту «Разделить» вы отключите режим подокон.



Закрепить шапку таблицы при прокрутке

Можно заблокировать прокрутку выбранных строк и столбцов при просмотре таблицы Excel в ширину или в длину документа. Для этого сделаем следующее:

1. Перейдите в ячейку C2 и выберите инструмент: «Вид»-«Заблокировать области».



2. С помощью полос прокрутки убедитесь в том, что столбцы A и B, а так же строка 1 закреплены и не перемещаются при прокрутке листа. Они постоянно отображают шапку таблицы и позволяют удобно читать большой объем данных.



3. Для открепления областей нужно повторно выбрать инструмент: «Закрепить области», а в нем на этот раз доступна опция в выпадающем списке – «Снять закрепление областей».

Просмотр листа в отдельных окнах

Один и той же большой лист можно рассматривать в нескольких окнах. Для этого:

1. Выберите инструмент: «Вид»-«Новое окно».



2. Для более удобного управления просмотром в данном режиме используйте инструмент: «Вид»-«Упорядочить все».

В появившемся диалоговом окне для Вас доступно несколько опций. Выберите, например, опцию «Каскадом» и нажмите ОК. Теперь окнами удобно управлять и переключаться между ними при просмотре.

Каждый файл Excel открывается в новом дочернем окне. Инструмент «Упорядочить все» позволяет управлять этими отдельными окнами. А при отметке галочкой опции «Только окна текущей книги» вы можете отдельно управлять только дочерними окнами одной книги. Это удобно в том случаи, когда открыто несколько файлов, а нужно управлять только копиями созданными инструментом «Новое окно».

Примечание. Каждое дочернее окно можно отдельно закрывать, сворачивать и развертывать стандартными средствами управления окон Windows.

Скрытие и отображение сетки в Excel

Для удобного просмотра в Excel можно отключить серую сетку. Для этого нужно зайти на закладку инструментов: «Вид» и в разделе «Показать» убрать галочку с опции «Сетка».

Сетку отключают в основном при создании пользовательских интерфейсов и красивых шаблонов. Так же не стоит забывать об оформлении презентации отчетов с графиками и диаграммами. Иногда для оформления бланков документов в электронном виде стоит отключить фоновую сетку Excel. Без сетки просматривать бланки документов в электронном виде намного удобнее.

Несколько примеров, как можно открыть внешний файл в VBA, внести или получить данные, а затем закрыть файл.

Как открыть файл в скрытом режиме для пользователя?

​Смотрите также​​ начинаю (пусть она​
​ сохраняет в туже​ ComboBox3.ListIndex = 0​ держать открытым client.xlsm),​ Нужно чтобы рабочая​ тоже производиться в​ у вас книга​ Filename” подчеркнута:​ файл​)​Margot​
​ дело​ – обязательно objXL.Quit​ заработало. Нужен только​ Len(ActiveWorkbook.name) – 5)​ “75” ‘ширина столбцов​Uchimata​ называется Книга1.xlsm).​ папку) книгу с​ Private Sub CommandButton72_Click()​ то все связи​ постоянно была активна​ фоновом режиме в​

​ закрывается без сохранения,​​Sub update()​Ну и ответы​И что значит​: Здравствуйте,​ActiveWorkbook.Close SaveChanges:=True​ ‘убираем указатель на​Set objXL = Nothing​

​ ‘имя минус .XLS​​ .ListRows = 10​

CyberForum.ru>

Источник: http://my-excel.ru/vba/vba-excel-otkryt-fajl-v-fonovom-rezhime.html

9 ответов

Источник: http://askdev.ru/q/otkryt-fayl-excel-dlya-chteniya-s-pomoschyu-vba-bez-otobrazheniya-58637/

Открытие файла Excel

Set objExcel = New Excel.ApplicationobjExcel.Visible = FalseSet wb = objExcel.Workbooks.Open(fname)Set ws = wb.Sheets(1)

В первой строке запускаем новый Excel, затем делаем его невидимым, в 3-й строке открываем файл fname. В последней строке получаем первый лист открытого excel-кого файла.

Источник: http://codernotes.ru/articles/vba/rabota-s-excel-fajlom-iz-vba.html

2 ответа

Лучший ответ

Источник: http://question-it.com/questions/2365111/kak-zastavit-makros-vba-rabotat-nepreryvno-v-fonovom-rezhime

Открытие существующей книги

Существующая книга открывается из кода VBA Excel с помощью метода Open:

или

В кавычках указывается полный путь к открываемому файлу Excel. Если такой файл не существует, произойдет ошибка.
Проверить существование файла можно с помощью функции Dir:

Или, если файл существует, можно сразу его открыть:

Источник: http://vremya-ne-zhdet.ru/vba-excel/otkryt-knigu-sozdat-novuyu/

Vba excel открыть файл в фоновом режиме

Опции темы

Шустрый

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

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

У меня есть макрос.
Где открываются файлы на сервере, из них считывается информация и записывается в ячейки.
Все файлы xls.

Как мне открывать файлы в фоновом режиме. А то при открытии последовательном более 100 файлов получается, что на панели задач постоянное мигание )))

Опытный

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

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

Код я не тестил, но должно работать

Добавлено через 1 минуту и 10 секунд
Пардон, не заметил, что 2007-й офис. Я с ним не работал, только с 2003-м.

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

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

В 2007 работает
Как вариант , не открывать файл локально а дать ссылку на ячейку этого файла

Это сообщение отредактировал(а) temr – 16.1.2009, 11:12