Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Сохранение файла с помощью VBA с названием ячейки
 
не пристало к друзьям-товарищам (коими  мы тут все являемся) на "вы" обращаться. не по комсомольски это.
помощь в оптимизации кода vba, создал шаблонную форму для создания базы, но не знаю, как ее оптимизировать
 
вес файла большой потому что у тебя больше 20 лямов рабочих ячеек на Лист1 и Лист2
Изменено: RNEtidi - 13 Апр 2016 07:40:22 (залитый файл 42 кб)
Копирование не пустых ячеек
 
Цитата
sevastr написал:
При этом выделение улетает намного дальше, чем заканчиваются строчки.
выделение ячеек происходило через нажатие CTR+SHIFT + Стрелки направления?
в этом примере выделение улетело до какой строки?
возможно, нужно просто выделить ячейку А9440 и нажать Delete.
Сохранение файла с помощью VBA с названием ячейки
 
хм... может тогда дело в references. если не сложно, выложи список с ссылками, можно сканом.
Сохранение файла с помощью VBA с названием ячейки
 
для чего писать true после имени файла?
пример прикрепил. Одну копию сохраняет, а на второй выдает ошибку.
Изменено: RNEtidi - 12 Апр 2016 22:35:42 (Перезалил файл. Новый файл пишет log)
Сохранение файла с помощью VBA с названием ячейки
 
в этом то вся и прелесть: вне цикла все хорошо сохраняет. а в теле цикла при попытке сохранить выскакивает вышеназванная ошибка и excel напрочь зависает.
Сохранение файла с помощью VBA с названием ячейки
 
Цитата
RNEtidi написал:
Run-time error '-2147417848 (80010108)':
Automation error
The object invoked has disconnected from its clients.
Сохранение файла с помощью VBA с названием ячейки
 
запись в каталог не запрещена, но ошибка все равно выскакивает.
Сохранение файла с помощью VBA с названием ячейки
 
ну для начала x = 1. Потом x = 2. И так далее до n. К примеру n = 5, тогда x изменяется от 1 до 5. Цикл For..Next так работает.
Сохранение файла с помощью VBA с названием ячейки
 
Код
For x=1 to n 'n - берется из текстбокса формы: n = Val(Textbox1.Text)
NewName = "Saved_" & x & ".xlsm" 'x - изменяемый циклом параметр
DoEvents
ThisWorkbook.SaveCopyAs "C:\Folder\" & NewName
Next x
x - изменяемый циклом параметр
Сохранение файла с помощью VBA с названием ячейки
 
Hugo, в моем случае в чем недопустимость имени файла?
Сохранение файла с помощью VBA с названием ячейки
 
Цитата
The_Prist написал:
19 Июн 2015 10:49:13

Код
ActiveWorkbook.SaveCopyAs Filename:=ThisWorkbook.Path & "\" & [A31].Value & ".xls"
Код
ThisWorkbook.SaveCopyAs "C:\Folder\" & NewName
в цикле For..Next выдает ошибку:
Run-time error '-2147417848 (80010108)':
Automation error
The object invoked has disconnected from its clients.

Имя файла NewName изменяется в цикле:
Код
NewName = "Saved_" & x & ".xlsm" 'x - изменяемый циклом параметр

В чем причина может быть? (DoEvents - не помогает).
Изменено: RNEtidi - 12 Апр 2016 16:37:05
Страницы: 1
Наверх