Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 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
Автор ответа:
 AngryBadger



Вопросов: 33
Ответов: 245
  Профиль | | #1 Добавлено: 04.10.13 13:41
Do loop в действии)

Ответить

Номер ответа: 2
Автор ответа:
 AngryBadger



Вопросов: 33
Ответов: 245
  Профиль | | #2 Добавлено: 04.10.13 13:41
Do loop в действии)

Ответить

Номер ответа: 3
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #3 		Добавлено: 06.10.13 10:43
Do loop в действии)

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам