Имя открытого объекта

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Имя открытого объекта (Макросы/Sub)

Glen

Дата: Среда, 26.09.2018, 12:32 | Сообщение № 1

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Всем доброго дня.
Некая программа (ГРАНДСМЕТА) генерирует выгрузку своих данных в MS EXCEL. После выгрузки Excel с данными выгрузки автоматически открывается.
Таких файлов >1000
Как кодом в VBA получить список этих файлов?
Проблема в том, что до первого сохранения такой файл не определяется как книга Workbook.
Код
[vba]

Код

Dim wb As Object
For Each wb In Application.Workbooks

[/vba]
такой файл не видит.
Прошу помочь разобрацца.
P.S. в папочке C:\Users\*******\AppData\Local\Microsoft\Office\UnsavedFiles\ этих файлов тоже нет.

Пехаль киндриков куравь, пехаль киндриков лузнись.

Сообщение отредактировал Glen - Среда, 26.09.2018, 13:22

Ответить

_Boroda_

Дата: Среда, 26.09.2018, 15:08 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16718

Репутация: 6505 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Возможно, файлы открываются в другом Application, то есть получается открыто одновременно несколько Excel-ей

*Вы хотите сказать, что у Вас одновременно открыто больше 1000 файлов?

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Glen

Дата: Среда, 26.09.2018, 15:20 | Сообщение № 3

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Цитата _Boroda_, 26.09.2018 в 15:08, в сообщении № 2 ()

больше 1000 файлов

я утрирую :), но их не мало, 30-50-80..
А есть варианты как подлезть в другое Application?

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

Glen

Дата: Среда, 26.09.2018, 15:22 | Сообщение № 4

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

[vba]

Код

For Each wb In Workbooks

[/vba]
тоже не видит

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

Glen

Дата: Четверг, 27.09.2018, 07:23 | Сообщение № 5

Группа: Пользователи

Ранг: Участник

Сообщений: 94

Репутация: 10 ±

Замечаний: 0% ±

Excel 2010-16

Всем спасибо.
Действительно это была куча разных Application.
Вопрос решен макросом из Word, тему закрываем.

Пехаль киндриков куравь, пехаль киндриков лузнись.

Ответить

StoTisteg

Дата: Четверг, 27.09.2018, 17:10 | Сообщение № 6

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Glen, ну да, это чудовищное поделие КАЖДЫЙ файл в отдельном экземпляре приложения открывает... Есть у меня надежда, что цикл [vba]

Код

For Each wb In Excel.Workbooks

[/vba]переберёт все книги во всех экземплярах приложения. Попробуйте просто ради интересу, у меня пару лет назад аналогичная была проблема, я её решил исходя из того, куда БД генерировала новые файлы...

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

StoTisteg

Дата: Четверг, 27.09.2018, 17:12 | Сообщение № 7

Группа: Авторы

Ранг: Старожил

Сообщений: 1161

Репутация: 103 ±

Замечаний: 0% ±

Excel 2010

Цитата Glen, 26.09.2018 в 12:32, в сообщении № 1 ()

в папочке C:\Users\*******\AppData\Local\Microsoft\Office\UnsavedFiles\ этих файлов тоже нет.

Папочка будет видеа, если попытаться ручками сделать SaveAs.

Интуитивно понятный код - это когда интуитивно понятно, что это код.

Ответить

Имя открытого объекта (Макросы/Sub)

Страница 1 из 1
1