| Вопрос: Как сохранть Выделенный диапозон | Добавлено: 19.07.07 22:34 |
Автор вопроса:  Yolokuko
|
| Ответы | Всего ответов: 20 |
|
Номер ответа: 16 Автор ответа:  Yolokuko Вопросов: 3 Ответов: 7 |
Профиль | | #16 | Добавлено: 23.07.07 23:09 |
|
Спасибо!
EUGY!!!! Твоя помошь очень ценная! |
||
|
Номер ответа: 17 Автор ответа: StormyICQ: 527-627 Вопросов: 0 Ответов: 3 |
Web-сайт: Профиль | | #17 | Добавлено: 01.08.07 18:23 |
|
Sub Kassa()
Dim cnn As ADODB.Connection Dim rst As ADODB.Recordset Dim k, s, d, d1 As Long k = Range("C1" 
s = Range("C2"
d1 = Columns("A" .Rows(65000).End(xlUp).Row '
d = d1 + 2 Set cnn = New ADODB.Connection Set rst = New ADODB.Recordset cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "  ata Source=C:\Documents and Settings\Administrator\Desktop\Склад\исходный.xls;" & _
"Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1""" rst.Open "SELECT * FROM [Лист1$A" & k & ":U" & s & "]", cnn Cells(d, "A" .CopyFromRecordset rst
rst.Close cnn.Close Set rst = Nothing Set cnn = Nothing End Sub можь кому пригодиться |
||
|
Номер ответа: 18 Автор ответа: YolokukoВопросов: 3 Ответов: 7 |
Профиль | | #18 | Добавлено: 01.08.07 19:09 |
|
Пригодиться если объяснишь, что это такое??
Вот что например это CODE] d1 = Columns("A" .Rows(65000).End(xlUp).Row[/CODE]
??? |
||
|
Номер ответа: 19 Автор ответа: Pavel Вопросов: 0 Ответов: 82 |
Профиль | | #19 | Добавлено: 02.08.07 11:30 |
| Номер последнего ряда в столбце А (т.е. определяет нижную границу его таблицы) | ||
|
Номер ответа: 20 Автор ответа: PavelВопросов: 0 Ответов: 82 |
Профиль | | #20 | Добавлено: 02.08.07 11:31 |
|
Так же можно так
'для определения последней строки в столбце A
iLastRow& = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row iLastRow& = Range("A65536" .End(xlUp).Row
iLastRow& = Cells(65536, 1).End(xlUp).Row iLastRow& = Cells(65536, ActiveCell.Column).End(xlUp).Row iLastRow& = Cells(65536, "A" .End(xlUp).Row
MsgBox iLastRow& |
||