| |
|
|
| | Public xl As Object
Set xl = CreateObject("Excel.Application") - А как узнать - может xl - уже объявлена и с нею - можно работать
(не объявлять ещё раз)
-------------------------------------------
Типа
if Is Nothing(xl) = False then | |
| |
| |
| |
|
|
| | If Not xl Is Nothing Then | |
| |
| |
|
|
| |
|
|
| | Вопрос по работе с листом Excel.
Бегаю по строкам листа - свеоху до низу, но сколько строк - мне не известно...
Бегаю пока в огромном цикле, но это тасазать кривовата.
Как лучше определять, что бегать уже не следует - все данные с листа считаны?  | |
| |
| |
| |
|
|
| | Св-во Листа UsedRange возвращает диапазон заполненных ячеек. | |
| |
| |
| |
|
|
| | Спасибо, попробую использовать.  | |
| |
| |
| |
|
|
| | http://www.msoffice.nm.ru/article/lastcell.htm | |
| |
| |
| |
|
|
| | Спасибо, какой полезный ресурсик!  | |
| |
| |
| |
|
|
| | А что это может быть:
при поиске последней строки
Dim XL_TXT As String ' строка текста считано из листа
Dim END_TXT As Integer ' ПОСЛЕДНЯЯ СТРОКА листа
Set xlBook = xl.Workbooks.Open(GLB_PATH_TXT)
Set xlSheet = xl.Worksheets("Page1")
xlSheet.Activate
xl.Application.Visible = True ' False
xl.UserControl = True
col = 3
END_TXT = ActiveSheet.UsedRange.row + ActiveSheet.UsedRange.Rows.Count - 1
получаем сообщение
Object requered
|
| |
| |
| |
| |
|
|
| |
Function LastR() As Long
'Возвращает кол-во строк в шЫте
'синтаксис области копирования =Range("H3:H" & LastR())
Dim r As Range
Set r = Selection
Selection.SpecialCells(xlCellTypeLastCell).Select
LastR = Selection.Row
r.Select
End Function
Function DeleteEmptyRows()
'удаляет пустые строки
Dim LastRow As Long, r As Long
LastRow = ActiveSheet.UsedRange.Rows.Count
LastRow = LastRow + ActiveSheet.UsedRange.Row - 1
Application.ScreenUpdating = False
For r = LastRow To 1 Step -1
If Application.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End Function
|
| |
| |
| |
| |
|
|
| | Пробываю....
--------------------------------------------
на строку кода:
Dim R As Range -
получил ответ:
Ваш тип нихрена не тип  кто такой as Range | |
| |
| |
| |
|
|
| | END_TXT = xlSheet.UsedRange.row + xlSheet.UsedRange.Rows.Count - 1 - вроде как попёрло........  | |
| |
| |
| |
|
|
| | а може в референсах Excel object library подключить? ;) | |
| |
| |
| |
|
|
| | хочется - поздно с ним связываться.........  | |
| |
| |
