Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA открыть книгу и задать значение конкретной ячейке.
 
#1
25.02.2020 19:40:53
Доброго времени, особо не лазил, но помню что попадалось, есть необходимость средствами VBA по условию открыть другую книгу и в ней в конкретно заданную ячейку задать параметр (дата). Прошу указать на примеры где можно понять как решить задачку.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
 
 
#2
25.02.2020 20:02:03
Код
set Wb = getobject("полное имя книги")
wb.worksheets(1).cells(2,5) = Now
wb.save
wb.close
Изменено: Ігор Гончаренко - 25.02.2020 20:48:42
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#3
25.02.2020 20:05:49
спасибо, буду пробовать.
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
 
 
#4
25.02.2020 20:47:52
а если в строке
Код
set Wb = getobject("полное имя книги")

требуется взять название файла из ячейки, например

Код
 Set wb = objExcel.Workbooks.Open(Cells(i, 4) & ".xlsm")
или
Код
Set wb = GetObject(Cells(i, 4))
Код
Set wb = GetObject(Mid(Cells(i, 4), 1, Len(Cells(i, 4))) & ".xlsm")
в ячейке просто название файла без расширения (например БУКВАРЬ)
ни один из вариантов не открывает файл
в чем засада не пойму,  
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
 
 
#5
25.02.2020 20:50:17
засада в том что нужно ПОЛНОЕ имя книги
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#6
25.02.2020 20:53:24
действительно засада, тогда второй вопрос, как средствами вба получить название файла (ПОЛНОЕ) для дальнейшего открытия
функция Dir???
при таком исполнении выдает ошибку в третьей строке
Код
            s = Dir("*" & LCase(Cells(i, 4)) & "*.xlsm")
            MsgBox s
            Set wb = GetObject(s)
файлы в одной папке, название ВРОДЕ правильно
Изменено: Irbis_evs - 25.02.2020 21:08:56
Инженер не тот, кто все знает, а тот кто знает где найти ответ.
 
 
 
Страницы: 1
Наверх