Глюки с сортировкой.

[sYstEmiZer]

Заметил странную вещь - есть код:

Public Sub test()
Dim Exx As Excel.Application
Dim Exx1 As Excel.Workbook
Dim Exx2 As Excel.Worksheet
Set Exx = New Excel.Application
Set Exx1 = Exx.Workbooks.Open("c:\Terminal\srez12.xls")
Set Exx2 = Exx1.Sheets(1)
Exx2.Range("A:D").Sort Key1:=Range("B2") 'ключевая строка
Exx1.Close True
Exx.Quit
Set Exx1 = Nothing
Set Exx = Nothing
End Sub

VB по какой-то причине не может закрыть Excel (точнее выгрузить его из памяти), если мы что-либо отсортировали :shock:. Убираем ключевую строку - все работает. Глюк или фича. Если не сложно - попробуйте кто-нибудь у себя.

[sYstEmiZer]

Еще маленькое замечание. Я не совсем точно сказал. В случае наличия сортировки, ёксель выгружается только после выгрузки самой программы, что недопустимо, т.к. прога все время должна быть запущена. В случае, если еще раз запустить эту процедуру (не выгружая старого экселя) выпадает на сортировке с ошибкой 1004 "Метод Range failed", а если выгрузить эксель , то с ошибкой 462 "The remote server machine doesn't exist". Вот такая вот история.

Кто чего может посоветовать?

[alibek]

Попробуй Exx2.Range("A:D").Sort Key1:=Exx2.Range("B2")

[sYstEmiZer]

Помогло!!!! Большой фенкс. Меня смутило, то что при первом запуске он сортировал и не ругался. Почему такое могло быть?

Всем спасибо за участие, особенно alibek!

[GSerg]

А больше никто и не участвовал
А на будущее просто запомни - range, когда вызывается из экселя, относится к global и может использоваться сам по себе, а когда извне - нет.

[Vi]

Код: Выделить всё

Private Sub Form_Load()
  Dim Exx As Excel.Application
  Dim Exx1 As Excel.Workbook
  Dim Exx2 As Excel.Worksheet
  Set Exx = New Excel.Application
  Set Exx1 = Exx.Workbooks.Add
  Exx.Visible = True
 
  Range("B2:C4").Select 'ключевая строка

  Unload Me
End Sub


И полюбуйся, что на активном листе выделены "B2:C4". Так что Range отрабатывает как надо.

[GSerg]

А если у меня два excel.application, мне компилятор-провидец нужен? Чтобы угадал, к какому я обращаюсь?

[Vi]

Согласен.