Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
 
Ace23000
0 / 0 / 0
Регистрация: 26.05.2014
Сообщений: 59
1

Копирование непрерывного диапазона

05.02.2018, 16:09. Просмотров 152. Ответов 3
Метки нет (Все метки)

Добрый день, возникала проблема с непрерывным диапазоном, пробовал разные вариант все время ругается, подскажите пожалуйста что не так.

Visual Basic
1
2
3
4
5
6
7
8
9
10
Set FSO = CreateObject("Scripting.FileSystemObject") 
Set F = FSO.GetFile(Wscript.ScriptFullName) 
path = FSO.GetParentFolderName(F) 
 
Set objExcel = CreateObject("Excel.Application") 
Set objWorkbook = objExcel.Workbooks.Open (path+"\123.xls")
 
objExcel.ActiveSheet.Range("a1", ActiveSheet.Range("a1").End(xlDown)).Copy' ---1 способ
 
objExcel.ActiveSheet.Range("a1:" & ActiveSheet.Range("a1").End(xlDown).Address).Copy '------ 2 способ
И еще хотелось бы узнать возможно ли через ActiveCell сделать, т.е начало диапазона ActiveCell, а конец ActiveCell?
Заранее спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.02.2018, 16:09
Ответы с готовыми решениями:

Копирование диапазона
Добрый день. Подскажите, пожалуйста, как можновставить несколько строк на новый лист начиная с 5-й....

Копирование диапазона
Добрый день! И снова нужна помощь! Имеется несколько диапазонов объединенных ячеек. +1 ...

Копирование диапазона ячеек
Уважаемые форумчане, подскажите, пожалуйста. Хочу скопировать диапазон ячеек с одного листа на...

Копирование диапазона в список
Задача такая: в лист1 идет последовательная запись значений из лист2, т.е. добавление к...

Копирование отфильтрованного диапазона
Прошу подсказать, Как скопировать из таблицы и перенести в другую таблицу отфильтрованный...

3
FlasherX
739 / 296 / 114
Регистрация: 06.06.2017
Сообщений: 1,102
05.02.2018, 18:12 2
Знаете про ActiveSheet.UsedRange ?
1
Dmitrii
2603 / 535 / 107
Регистрация: 21.03.2012
Сообщений: 1,043
06.02.2018, 10:18 3
Ace23000, в сценариях нельзя использовать символические имена констант объектной модели VBA (типа xlDown). Заменяйте их соответствующими числовыми значениями.
1
Ace23000
0 / 0 / 0
Регистрация: 26.05.2014
Сообщений: 59
06.02.2018, 11:37  [ТС] 4
Спасибо, действительно UsedRange, можно использовать. Я думал им только последний элемент можно найти.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
06.02.2018, 11:37

Копирование значений из диапазона
Уважаемые форумчане! Есть такой вариант копирования данных из закрытой книги: Sub...

Копирование диапазона ячеек по условию
Здравствуйте! Не могу понять почему не работает, что я не так тут делаю: Sub...

Копирование диапазона в том же листе - макрос
Всем привет! Ребята, помогите У меня есть формулы в ячейках АD23:AS34. Мне надо чтобы...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru