Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
Как открыть книгу и достать все данные и вставить в другую?
 
Есть 2 книги, КудаВставить и ОткудаБрать
Таблицы всегда меняются, поэтому пользователю должен быть предложен выбор через Application.InputBox type:=8, то есть, выбрать определенный диапазон
У меня есть примерный план как всё организовать, но думаю, есть более лаконичное решение

1) Открывается первый файл через Workbooks.open(ОткудаБрать)
2) данные с типом Range = Application.InputBox type:=8, но именно здесь высвечивается ошибка
3) Закрыть первый файл через WorkBooks.close
4) Вывести окно для выбора диапазона через Application.InputBox или дать указать, где будет левый верхний угол будущей таблицы данных

Как лучше это организовать?
 
1) ок
2) set переменная = Application.InputBox ... type:=8
3) НЕТ, рано
4) ок
5) вот теперь 3)
Хотя если данные собираетесь тянуть с помощью формул или ExecuteExcel4Macro(arg), то первый файл можно и закрыть сразу после выбора диапазона.
 
Цитата
Hugo написал:
1) ок2) set переменная = Application.InputBox ... type:=83) НЕТ, рано4) ок5) вот теперь 3)Хотя если данные собираетесь тянуть с помощью формул или ExecuteExcel4Macro(arg), то первый файл можно и закрыть сразу после выбора диапазона.
Спасибо:)
 
Цитата
Hugo написал:
4) ок
1) Как лучше это организовать через Application.InputBox type 8? Если выбрать поле меньше или больше что произойдет и как этого избежать?
 
1. Зачем здесь вообще цитаты? Что они дают, кроме замусоривания сообщения? Прошу исправить.
2. Имя... Каодинпятьдваодинтридваодин, зачем этот длинный хвост?
 
Витя, здравствуй.
Игорь даёт удочку..
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
Правильно делает. Но зачем эту удочку повторять в сообщении?
А это:

Что организовать? ОК?!

Бездумное применение цитирования.
 
То что Каодинпятьдваодинтридваодин я и не заметил... Извиняюсь.
Страницы: 1
Читают тему (гостей: 1)
Наверх