| Вопрос: В чем ошибка Excel и Vb 6.0 | Добавлено: 26.01.08 12:32 |
Автор вопроса:  Destem
|
|
Люди добрые! Не могу понять, почему когда из VB 6.0 взываю сортировку в листе Excel по убыванию, мне пишет: "метод Sort из класса Range завершен не верно".
Если это "Order1:=xlDescending" убрать, то сортирует, но по возрастанию. В чем ошибка? Private Sub Command1_Click() Dim oExcel As Object Dim oBook As Object Dim oSheet As Object Set oExcel = CreateObject("Excel.Application") Set oBook = oExcel.Workbooks.Open("C:\1.xls") Set oSheet = oBook.Worksheets(1) oSheet.Range("A1:B9").Sort Key1:=oSheet.Range("B1"), [B]Order1:=xlDescending[/B] oBook.Save oExcel.Quit Set oExcel = Nothing Set oBook = Nothing Set oSheet = Nothing End Sub |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  bi-lya Вопросов: 1 Ответов: 125 |
Профиль | | #1 | Добавлено: 26.01.08 13:28 |
|
Order1:=2
|
||
|
Номер ответа: 2 Автор ответа: Destem Вопросов: 3 Ответов: 13 |
Профиль | | #2 | Добавлено: 26.01.08 13:34 |
| Вот, блин. И всего-то? Круто.А эту константу определять чтоли как-от надо? | ||
|
Номер ответа: 3 Автор ответа: DestemВопросов: 3 Ответов: 13 |
Профиль | | #3 | Добавлено: 26.01.08 13:35 |
| Спасибо! | ||
Страница: 1 |