|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
08.11.2015, 19:46 | #11 | |
Новичок
Джуниор
Регистрация: 05.11.2015
Сообщений: 3
|
Цитата:
В любом случае - большое спасибо, заставили думать в верном направлении. |
|
02.05.2016, 16:12 | #12 | |
Новичок
Джуниор
Регистрация: 02.05.2016
Сообщений: 1
|
Цитата:
Написал код согласно Вашему примеру, немного изменив его, но при попытке выполнения макрос выдает ошибку Compile error: Sub or Function not defined, указывая на строку с Set coll = FilenamesCollection(folder, "*.xlsx"). Как думаете, в чем проблема? Код HTML:
Sub Journal_Ya() ' ' Journal_Ya Макрос ' ' Сочетание клавиш: Ctrl+j ' Dim coll As Collection, folder As String, i As Long folder = "C:\Users\DNS-shop\Desktop\АВТОЖУРНАЛ\" Set coll = FilenamesCollection(folder, "*.xlsx") If coll.Count = 0 Then MsgBox "Файл 'Журнал по сварке №' не найден", vbCritical: Exit Sub If coll.Count > 1 Then MsgBox "Найдено НЕСКОЛЬКО файлов 'Журнал по сварке №'", vbExclamation: Exit Sub For i = 1 To coll.Count Dim wb As Workbook: Set wb = Workbooks.Open(coll(1)) wb.Worksheets(1).[a1] = "ПРОВЕРКА" wb.Close True Next i End Sub |
|
02.05.2016, 17:45 | #13 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
Проблема в отсутсвии наличия кода FilenamesCollection() - посмторите там на сайте.
webmoney: E265281470651 Z422237915069 R418926282008
|
02.05.2016, 23:08 | #14 |
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
лично я считаю, что
Проблема в наличии отсутствия текста функции FilenamesCollection() в Вашем модуле
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Макрос, запускающий макрос из другого закрытого файла | petruha | Microsoft Office Excel | 7 | 14.03.2010 11:31 |
макрос на открытие базы | ruavia3 | Microsoft Office Access | 3 | 28.08.2009 02:04 |
Открытие файла и создание графика на основе чисел из файла | Simon..14 | Общие вопросы C/C++ | 8 | 09.06.2009 10:18 |
Копирование имени файла | greengeneral | Общие вопросы Delphi | 3 | 10.09.2007 14:11 |
Массив в имени файла | LeoN | Общие вопросы Delphi | 3 | 01.01.2007 14:24 |