Поиск
Автор: Сергей Ким. Ранее Workbooks.Open работал. После долгого перерыва вернулся к макросам, и почему то не идет. Прошу помощи в строке "Set BookSource = Workbooks.Open(sFileSourcePath & sFileSourceName)". Там находит ошибку "Run-time error '1004': Method 'Open' of object 'Workbooks' failed"
Sub OprosFiles()
'Опрос файлов в папке
Dim BookSource As Workbook
Dim ListSource As Worksheet
Dim ListTarget As Worksheet
Dim ...
Изменен: 04.05.2017
Читать сообщение на форуме или сайте.Автор: Chimichangi. Привет всем кодоводам!
Есть умная таблица (не однородная) с заголовками внутри. Создаю форму с 2 Mountview в которых выбираю даты и записываю их в ячейки К2,К3Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Range("k2").Select
Selection.NumberFormat = "mm\/dd\/yyyy"
ActiveCell.FormulaR1C1 = MonthView1.Value
End Sub, а в ячейке К4 вычисляю интервал между ними. (K3-K2)
В ячейки L1:L100 записываются все даты в выбранном ранее ...
Изменен: 03.05.2017
Читать сообщение на форуме или сайте.Автор: eldiyas. Добрый день.
С vba работаю не так давно и не знаю даже основ оптимизации кода. Создал новую книгу, внес три формы и написал код. Все работает, но:
Файл весит 5,4 мб, что очень странно, ибо есть файлы с еще большим кодом и данными на листах, которые весят куда меньше.
Файл очень долго грузится.
А т.к. файл должен будет располагаться на сервере с общим доступом для 20+ человек на длительный период времени, он разбухнет в разы.
Просьба посмотреть на досуге и помочь в ...
Изменен: 13.04.2016
Читать сообщение на форуме или сайте.