Перейти к содержимому

Перейти
Перейти

Определить конец файла в ексель программно


  • Закрытая тема Тема закрыта
Сообщений в теме: 3

#1   Тати111

Тати111

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 28-February 17

Отправлено 28 February 2017 - 18:56

Как определить конец файла в ексель программно. Знаю что есть несколько способов один из них Пока RS.EOF() = 0 Цикл. Какой лучше? 


  • 0

#2   ComBoy

ComBoy

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 03-May 17

Отправлено 03 May 2017 - 07:23

Можно так:

 

Sub tt()
s = 1

Set xlApp = CreateObject("Excel.Application")
Set xlWb = xlApp.Workbooks.Open("c:\test.xls")
Set xlWs = xlWb.Worksheets(1)

With xlWs.UsedRange
For Each cc In .Columns(s).Cells
xlWs.Cells(cc.Row, s).Value = CoderENG(xlWs.Cells(cc.Row, s))
Next
End With
End Sub


  • 0

#3   ruflex

ruflex

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 26-April 17

Отправлено 03 May 2017 - 15:46

А зачем Вам конец файла если не секрет? Я например всегда обходился поиском последней заполненной ячейки или строки например:

ПоследняяСтрока = ExcelЛист.Cells.SpecialCells(xlCellTypeLastCell).Row;


  • 0

#4   Артем Арустамов

Артем Арустамов

      Рядовой

    • Пользователи
    • Сообщений: 3
    • Регистрация: 24-May 17

Отправлено 24 May 2017 - 10:50

ПС = ExcelList.Cells.SpecialCells(xlCellTypeLastCell).Row;


Сообщение отредактировал Артем Арустамов: 24 May 2017 - 10:50

  • 0



Похожие темы

  Название темы Автор Статистика Последнее сообщение



Количество пользователей, читающих эту тему: 0

0 пользователей, 0 гостей, 0 анонимных