Тормоз заполнения ячеек Excel!

[JohnK]

Как этого избежать?
Порой приходиться ждать около 5 мин!!!!

Set XL = XL.ActiveWorkbook.Sheets.Application
XL.Sheets("Лист1").Select
XL.Range("F6").Value = mys1
XL.Range("F31").Value = mys1

[TEH3OP]

Ну... хоть это и ОФФТОПИК IMHO, отвечу всёж...
Попробуйте следующее:

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

dim clsXLRange as Exel.Range
Set clsXLRange = ActiveWorkbook.Sheets("Лист1").Range("F6")
clsXLRange.Value = mys1
Set clsXLRange = ActiveWorkbook.Sheets("Лист1").Range("F31")
clsXLRange.Value = mys1


... хотя странно, что у тебя две ячейки заполняются 5 минут, мож стоит проапгрейдить свой 486-й до пня второго... ;-)
А использование Selection и Select, есть идеологически неправильное и теологически еретичное использование творений дядюшки Билла! ;-)
... особливо ежели окно Ёкселя видимое!

[Alex404]

Ну еще так можно..

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

ActiveSheet.Cells(6, 6) = mys1
ActiveSheet.Cells(31, 6) = mys2


Не должно оно тормозить...не должно!

[alibek]

На время изменений отключи перерисовку и автоматическую калькуляцию.

[GSerg]

alibek, скажи мне...
Я примерно то же самое делаю, только меняю interior.colorindex. Жутко тормозит на моём далеко не последнем компе. Эксель невидимый вообще.

[alibek]

Сейчас попробовал в Immediate поменять ColorIndex, вроде бы не тормозит...
[EDIT] И в процедуре попробовал, менял Value и Interior.ColorIndex, пять ячеек, 10 мс.

Калькуляцию я отключаю через
Application.Calculation=xlCalculationManual/xlCalculationAutomatic
скорость заполнения увеличивается на порядок.
А перерисовку я что-то не найду никак, в каком-то проекте я ее использовал, поискать надо

[GSerg]

Так это screenupdating, всё это понятно...
У меня ячеек так четыреста, он их секунд 15 красит.

[codemaster]

Как этого избежать?
Порой приходиться ждать около 5 мин!!!!

Set XL = XL.ActiveWorkbook.Sheets.Application
XL.Sheets("Лист1").Select
XL.Range("F6").Value = mys1
XL.Range("F31").Value = mys1

Опиши подробней что делаешь и как

заодно см. http://www.rsdn.ru/article/com/excelcache.xml

[JohnK]

XL.Workbooks.Open filen
Set XL = XL.ActiveWorkbook.Sheets.Application
XL.Sheets("Лист1").Select

'В цикле
cel1 = Trim(Str(i + 9))
XL.Range("C" & cel1).Value =...
....

2-3 страницы
Вот и Тормоз!
Причем каждый раз чищу!
XL.Range("B10:I17").Select: XL.Selection.ClearContents
вот![code][/code]

[MOV]

Мужики. Ну обсуждался ведь здесь класс для работы с Excelem. Вот он. Скорость просто мгновенная, при этом не надо подключать к проекту библиотеку самого Excelя. Один минус - при заполнении ячеек у него проблемы с русскими буквами (зарубежным кодером сделан о россиянах тот не позаботился, но ведь есть исходники).

[MOV]

Лень ковыряться в исходниках, но если сделать - будет очень полезная и серьезная вещь. Работает ведь даже без Officа. Еще раз повторюсь скорость несравнимо выше, чем, если через библиотеку Excelя.

[Alex404]

Ну уважаемый MOV ты блин даешь!
Я уже запарился тебе тиражировать решение проблемы с кирилицей! Помню два поста были (похоже недавно ушли с первой страницы)
Выложу еще раз, тем более что класс действительно стОящий.

Так вот! В начале в модуле класса прописываем свойство RussianSupport

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

Private Type PRINT_RUSSIAN_SUPPORT
  opcode As Integer
  Length As Integer
  Param1 As Byte
  Param2 As Byte
End Type


Public Property Let RussianSupport(ByVal newvalue As Boolean)

On Error GoTo Write_Error
If newvalue = False Then Exit Property
    Dim RUSSIAN_SUPPORT As PRINT_RUSSIAN_SUPPORT
   
    With RUSSIAN_SUPPORT
      .opcode = 66 'int (&H42)
      .Length = 2 'int
      .Param1 = 1 'byte
      .Param2 = 128 'byte
    End With
    Put #FileNumber, , RUSSIAN_SUPPORT

Exit Property

Write_Error:
Exit Property
End Property


Затем уже в теле процедуры создающей файл :

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

With myExcelFile
            .RussianSupport = True
....
....
...
End with


Проверил. Работает

[JohnK]

Все класс!!! А вот как печатать!!!???

[MOV]

Alex404
Огромное спасибо. Самому смешно, видно я просто забыл про эту свою тему а тут снова выпал случай поднять ее.
Пойду испытывать.

Все класс!!! А вот как печатать!!!???
Я бы прописал в макросе автозапуска самого документа Excleя что-то типа
Лист1.PrintOut 1, 1, 1, 1, lpt1, -1 (аргументы посмотришь, отрегулируешь как тебе надо).
То есть потом открываешь документ, он идет на печать, ну или не идет , (если тебе не надо, чтобы он каждый раз при открытии шел на печать, соответственно в макросе пропишешь какие-нибудь условия, ну разберешься вобщем).

[JohnK]

Да не, не подходит !
Мне нужно из VB програмно послать на печать без участия юзера.

[JohnK]

Дамсь... А мож как-то еще можно?