Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
Функции VBA.
 
Подскажите функции для работы с переменными String, а точнее:  
как узнать длинну символов  
выбор одного символа из всей последовательности  
а точнее - есть несколько переменных типа String, необходимо проверить в них наличие одного символа, если он присутствует то все хорошо и мы работаем дальше, а если нет то ишем в следующей переменной.
Как очистить лист Excel на VBA?
 
В общем такая проблемма - нужно очистить лист Excel от всех данных, который заведомо уже имеет на нем несколько таблице, а затем продолжить работу с этим листом.    
Я делаю так:  
нахожу границу данных на листе которые нужно удалить  
Set aRange = Worksheets("Лист1").Range("A1").SpecialCells(xlCellTypeLastCell)  
lastRow = aRange.Row  
lastColumn = aRange.Column  
и затем делаю так:  
Worksheets("Лист1").Range(Cells(1, 1), Cells(lastRow, lastColumn)).Delete  
или можно еще так:  
Worksheets("Лист1").Cells.ClearContents  
в результате лист чист :)  
 
но если проделать еще раз:  
Set aRange = Worksheets("Лист1").Range("A1").SpecialCells(xlCellTypeLastCell)  
lastRow = aRange.Row  
lastColumn = aRange.Column  
т.е. попытаться узнать границы листа где есть данные, получим что они не изменились, т.е. как будто бы на листе есть данные.  
Можно ли с этим как-то бороться?
Как скопировать лист в VBA?
 
Подскажите ответ!  
При работе макроса открывается уже существующая книга, из нее копируются данные и вставляются в текущую книгу. Я сделал этот так:  
name_file - имя книги из которой копируются данные  
 
Workbooks.Open Filename:=Name_file  
Set aRange = Worksheets("Лист1").Range("A1").SpecialCells(xlCellTypeLastCell)  
lastRow = aRange.Row  
lastColumn = aRange.Column  
Worksheets("Лист1").Range(Cells(1, 1), Cells(lastRow, lastColumn)).Copy  
 
т.е. открываем книгу,находим последние ячейки, выделяем  и копируем все содержимое, затем:  
 
ThisWorkbook.Activate  
Worksheets("Лист1").Select  
Worksheets("Лист1").Paste  
 
т.е. делаем активной текущую книгу, переходим на "Лист1" и вставляем данные.  
При выполнении выскакивает ошибка:  
"Run-time error 1004.  Метод Paste из класса Worksheet завершен неверно"  
В чем дело? Может ThisWorkbook.Activate использовать не нужно?  
Тогда как поступить в этом случае?
Страницы: 1
Наверх