ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Последняя строка Excel
18 сообщений из 18, страница 1 из 1
Последняя строка Excel
    #36588457
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexx_SQL
Участник
Добрый день!
Необходимо найти последнюю запись в Excel. В VBA это было:
xlWb.Cells(Rows.Count, 1).End(xlUp).Row
а как в VB(VS2008)?
Спасибо.
...
Рейтинг: 0 / 0
20.04.2010, 18:01
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36588520
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Lexx_SQL
> Необходимо найти последнюю запись в Excel. В VBA это было:

Да практически так-же, ну разве что нужно указать путь от Application, да константы прописать

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
20.04.2010, 18:24
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36588592
cynep kopoBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
cynep kopoBka
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
        Set ExApp = New Excel.Application
        Set ExBo = ExApp.Workbooks.Open(App.Path & "\говнофайл.xls")
        Set ExSh = ExBo.ActiveSheet
        With ActiveSheet.UsedRange
            iRow = .Row + .Rows.Count -  1  '=-=-=-=--= Последняя строка
            iCol = .Column + .Columns.Count -  1  '=-=-=-=--= Последний столбец
        End With
Например, так
...
Рейтинг: 0 / 0
20.04.2010, 18:55
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36588619
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexx_SQL
Участник
Игорь Горбонос,

у меня xlUp не понимает, пишет не знаю такого...
...
Рейтинг: 0 / 0
20.04.2010, 19:14
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36589431
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Lexx_SQL
> у меня xlUp не понимает, пишет не знаю такого...

А в екселе посмотреть?
Object BrowserConst xlUp = -4162 (&HFFFFEFBE)
Member of Excel.XlDirection

Posted via ActualForum NNTP Server 1.4
...
Рейтинг: 0 / 0
21.04.2010, 10:34
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36589717
Lexx_SQL
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Lexx_SQL
Участник
Игорь Горбонос,
спасибо...заработало
...
Рейтинг: 0 / 0
21.04.2010, 12:05
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36595809
motorway
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
motorway
Участник
У меня с нахождением последней строки было много проблем. Дело в том, что после удаления данных она продолжала оставаться старой. И даже сейчас вроде так в моем приложении. Этот способ свободен от таких глюков?
...
Рейтинг: 0 / 0
23.04.2010, 21:34
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36595872
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
motorway,

вряд ли, пока не сохранишь файл, последними остаются строка\столбец которые были до удаления
...
Рейтинг: 0 / 0
23.04.2010, 23:10
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36609171
Грустный кот
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Грустный кот
Гость
Я использую очень простой и быстрый код.

Код: plaintext
1.
2.
3.
Sub FindLastOccupied(lastRow, lastCol)
lastRow = Range("a65536").End(xlUp).Row
lastCol = Range("IV1").End(xlToLeft).Column
End Sub
...
Рейтинг: 0 / 0
02.05.2010, 19:45
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36690052
valdemar_ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
valdemar_ru
Гость
Подскажите пожалуйста. Пытаюсь использовать функцию End(xlToLeft)

авторWhile x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
'MsgBox Sheets("Recept").Range("A1")
'ThisWorkbook.Sheets("Impord").Range("A1")
I = ThisWorkbook.Sheets("Impord").Cells(1, Columns.Count).End(xlToLeft).Column + 1
MsgBox I
Sheets("Recept").Protect UserInterfaceOnly:=True
Sheets("Recept").Cells(1, 1).CurrentRegion.Copy _
ThisWorkbook.Sheets("Impord").Cells(I, 1)

'Sheets().Move After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
x = x + 1
Workbooks(x).Close
Wend
После повторного прохождения цикла, значение возвращаемое этой функцией остается, то же
почему? или как исправить
...
Рейтинг: 0 / 0
16.06.2010, 14:19
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36690166
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
valdemar_ru,
так куда копировать хотите? Сейчас копируете вниз:
ThisWorkbook.Sheets("Impord").Cells(I, 1)
Поэтому I и не меняется.
А если надо вправо, то
ThisWorkbook.Sheets("Impord").Cells(1, I)
...
Рейтинг: 0 / 0
16.06.2010, 14:55
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36691060
valdemar_ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
valdemar_ru
Гость
Hugo121,
Копирую в низ, но текст не вставляется в пустую последнюю строку, а просто заменятеся
...
Рейтинг: 0 / 0
16.06.2010, 19:59
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36691469
valdemar_ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
valdemar_ru
Гость
Спасибо разобрался сам
авторWhile x <= UBound(FilesToOpen)
Workbooks.Open Filename:=FilesToOpen(x)
Do While ThisWorkbook.Sheets("Impord").Cells(I, 1).Value <> ""
I = I + 1
Loop
Sheets("Recept").Protect UserInterfaceOnly:=True
Sheets("Recept").Cells(1, 1).CurrentRegion.Copy _
ThisWorkbook.Sheets("Impord").Cells(I, 1)
x = x + 1
Workbooks.Item(2).Close savechanges:=False
Wend
...
Рейтинг: 0 / 0
17.06.2010, 07:04
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36691563
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
valdemar_ru, не поняли намёка - надо было поменять всего лишь

I = ThisWorkbook.Sheets("Impord").Cells(Rows.Count, 1).End(xlUp).Row + 1

Вам ведь надо определить последнюю строку, а не столбец (раз надо вниз копировать, а не вправо после данных).
...
Рейтинг: 0 / 0
17.06.2010, 09:17
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36691928
valdemar_ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
valdemar_ru
Гость
Hugo121,
I = ThisWorkbook.Sheets("Impord").Cells(Rows.Count, 1).End(xlUp).Row + 1
я пробовал эту запись, но она рабтает странно, первый раз в Rows.Count результат записывается
счетчика допустим 5 (Rows.Count =5) второй раз она не обнуляется т.е. будет Rows.Count =5 + 5
и так постоянно поэтому решал не использовать эту конструкцию
...
Рейтинг: 0 / 0
17.06.2010, 12:01
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36691965
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
valdemar_ru,
нет, Rows.Count в большинстве случаев будет 65536 (если не 2007 офис), выполните из листа
Код: plaintext
1.
2.
3.
4.
Sub tt()
x = Rows.Count
MsgBox x
End Sub
а вот это
I = ThisWorkbook.Sheets("Impord").Cells(Rows.Count, 1).End(xlUp). Row + 1
ищет первую свободную строку снизу по первой колонке. Т.е. если у Вас именно в первую колонку данные пишутся не до низу - пишите вместо "1" номер колонки, где заполнена последняя строка.
...
Рейтинг: 0 / 0
17.06.2010, 12:16
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36692078
valdemar_ru
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
valdemar_ru
Гость
Hugo121, Я так понял моей ошибкой была вставленная переменная вместо Rows.Count Cells (i, 1) ?
...
Рейтинг: 0 / 0
17.06.2010, 12:58
| Ответить | Цитировать | Написать  
Последняя строка Excel
    #36692433
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
valdemar_ru,
без примера я проверить не могу, но так глазами вижу, что I у Вас не менялась, потому что это был последний столбец (который постоянно 5-ый), а не строка (которая должна возрастать при всавке вниз). Поэтому всё время вставка шла в одно место.
...
Рейтинг: 0 / 0
17.06.2010, 14:37
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Последняя строка Excel
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]