Alex37 vkodorAlex37 Попробуй
Спасибо за файл.
У меня нет 97- го поэтому итересно: Kорректно ли отработал?
Alex37Обнаружил там кое-какие изменения. В том числе и новый для меня оператор Is
Он для тебя не новый
If Not wb Is Nothing Then wb.Close ' если не Nothing
If wb Is Nothing Then wb.Close ' если Nothing
соответственно
1.
2.
3.
4.
5.
On Error Resume Next 'отложение ошибки
Set st = Workbooks(stName) ' попытка присвоить переменной значение
On Error GoTo 0 ' очистка ошибок
If st Is Nothing Then Workbooks.Open stFullName
'если переменной ничего не присвоилось (т.е. = Nothing) _
значит файл закрыт и его надо открывать
Alex37
и запись файла в новом формате
wbFullName = FullPath & "ZAKAZ-" & Format(Date, "YYYY-MM-DD") & ".XLS"
этот формат предложил
KL (XL) и я с ним полностью согласен
Alex37
Неожиданное решение по выделению области перед сортировкой... Такого я не ожидал! :)
никакого выделения нет, сразу сортировка
давно заметил что в аргументах лучше указывать имя листа (ну чтоб можно было сортировать при не активном листе)
я бы предложил еще использовать конструкцию With - End With
1.
2.
3.
4.
With PageWb
.Range(.Cells(J1, 1 ), .Cells(J - 1 , 7 )).Sort Key1:=.Cells(J1, 1 ), _
Order1:=xlAscending, Header:=xlGuess, OrderCustom:= 1 , _
MatchCase:=False, Orientation:=xlTopToBottom
End With
Alex37
А вот эта "очистка" обязательна?
У меня были проблемы, если я не обнулял обьектные переменные.
Правда в других ситуациях. Вообщем мной этот вопрос доконца не изучен. Лучше если ответит на этот вопрос более знающий человек.
А я стараюсь всегда закрывать и обнулять ссылки.
