Страница: 1 |
Вопрос: VB.NET Do Loop | Добавлено: 29.09.13 13:38 |
Автор вопроса: ![]() |
Доброе время суток.
этот макрос для последовательного копирования и вставки как сделать чтобы при пустой ячейке программа остановилась? [CODE][ Dim xlWorkBook As Excel.Workbook Dim xlWorkSheet As Object Dim lRow As Object Dim xlWsheet As Object Dim Selection As Object Dim Range As Object Dim ActiveCell As Object Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click xlWorkBook = xlApp.Workbooks.Open("C:\PREMIUM\.xlsm") xlApp.Visible = True With xlApp Do Until Selection.range.Value > "" .Selection.Copy() .ActiveCell.Offset(0, -30).Range("A1").Select() .ActiveSheet.Paste() .ActiveCell.Offset(1, 30).Range("A1").Select() Loop End With End Sub End Class/CODE] |
Ответы | Всего ответов: 3 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 33 Ответов: 245 |
Профиль | Цитата | #1 | Добавлено: 04.10.13 13:41 |
Do loop в действии) |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 33 Ответов: 245 |
Профиль | Цитата | #2 | Добавлено: 04.10.13 13:41 |
Do loop в действии) |
Номер ответа: 3 Автор ответа: ![]() ![]() ICQ: 345685652 Вопросов: 96 Ответов: 1212 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 06.10.13 10:43 |
Do loop в действии) |
Страница: 1 |
|