Ускорение экспорта в Excel

[tron]

Привет.
Я тут новенький, но вижу тут много раз всплывает тема экспорта в Excel.

Мы тоже столкнулись с проблемой медленной выгрузки в Excel, для ее решения был написан класс ExportExcelViaCsv наследник ComExcelDocument_RU , который экспортирует данные через временный файл c:\data.csv.

Который в свою очередь импортируется в Excel через макрос import_csv.bas.

За счет этого скорость вывода стала значительно выросла, для примера
раньше печать отчета по остаткам товара 40000 строк занимала 3 часа 10 минут, теперь 9 минут ...

В нем конечно реализованны не все функции, в связи с вечной нехваткой времени пока только:

deleteRow
dks_copyBookmark
insertValue

я думаю не составит проблем дописать остальные методы...

Использование:

1 Заменяете new ComExcelDocument_RU() на new ExportExcelViaCsv()
2 В файл шаблона вставляете макрос import_csv.bas...

Запускаете радуетесь жизни :-)

[tron]

Кому импортить проект неохота вот основные части простым текстом:
Таким образом формируется файл из Axapta 3.0

PHP код:

// Tron 01.10.2004
void finalize()
{
    TextBuffer      textBuffer = new TextBuffer();
    ;
    // Добавляем тип файла
    csvTextBuffer = "1;" + csvTextBuffer;

    textBuffer.setText(csvTextBuffer);
    textBuffer.toFile("c:\\data.csv");

    this.dks_runMacro("Main");
    super();
} 


А вот собственно макрос на Visual Basic:

PHP код:

Rem Tron 01.10.2004
Rem Загрузка данных из внешних файлов // Axapta
Rem Ver. 1.0.1.5

Dim CurrentString As String
Dim Variables As String
Dim I As Long
Dim NowChar As Long

Dim FromRange As String
Dim ToRange As String
Dim Value As String

Sub Main()
    Application.ScreenUpdating = False
    Application.Visible = False
        
    Import
 
    Sheets(1).Name = "Отчет"
    Worksheets(1).Activate
    Application.Visible = True
    Application.ScreenUpdating = True
End Sub

Sub Import()
On Error GoTo ErrorHandler
        Open "c:\data.csv" For Input Access Read As #1
        Line Input #1, Variables
    
        Do While Not EOF(1)
            Line Input #1, CurrentString
            FillWorkSheet
        Loop
    
        Close #1
Exit Sub
ErrorHandler:
    Worksheets(1).Range("A1").Value = "Произошла ошибка обмена данными"
Exit Sub
    
End Sub

Sub FillWorkSheet()
    NowChar = 3
    Worksheets(1).Activate
    
    Rem Dks_copyBookMark
    If (Left(CurrentString, 1) = "1") Then
        FromRange = ReturnPart
        ToRange = ReturnPart
        Range(FromRange).Select
        Selection.Copy
        Range(ToRange).Select
        Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
            SkipBlanks:=False, Transpose:=False
        ActiveSheet.Paste
    Rem InsertValue
    ElseIf (Left(CurrentString, 1) = "2") Then
        ToRange = ReturnPart
        Value = ReturnPart
        Worksheets(1).Range(ToRange).Value = Value
    Rem DeleteRow
    ElseIf (Left(CurrentString, 1) = "3") Then
        ToRange = ReturnPart
        CurrentRegion = ToRange + ":" + ToRange
        Rows(CurrentRegion).Select
        Selection.Delete Shift:=xlUp
    Rem DeleteColumn
    ElseIf (Left(CurrentString, 1) = "4") Then
        ToRange = ReturnPart
        CurrentRegion = ToRange + ":" + ToRange
        Columns(CurrentRegion).Select
        Selection.Delete Shift:=xlToLeft
    End If
    
    
End Sub

Function ReturnPart() As String
    ReturnPart = ""
    For NowChar = NowChar To Len(CurrentString)
        If (Mid(CurrentString, NowChar, 1) = ";") Then
            Exit For
        End If
        ReturnPart = ReturnPart + Mid(CurrentString, NowChar, 1)
    Next
    NowChar = NowChar + 1
End Function 


[YVAS]

Смысл экселевского макроса понять не могу. Exel сам способен работать с форматом .csv при простом открытии если грамотно расположить разделители естественно.

А проблема медленного экспорта действительно существует. Мы, например, выводим в Exel через ActiveX. Скорость вырастает в разы.

[tron]

Цитата:

Изначально опубликовано YVAS
Смысл экселевского макроса понять не могу. Exel сам способен работать с форматом .csv при простом открытии если грамотно расположить разделители естественно.

Смысл макроса простой, я сделал так чтобы не переписывать все существующие отчеты, из Axapta просто формируются команды соответвующих действий, а макрос их исполняет.

Делал и через простой импорт данных CSV с разделителями,
но есть минусы
1. Необходима большая функциональность чем просто вставить данные, необходимо еще копировать оформление, удалять строки и столбцы включать ограничители страниц и.т.д. (многое конечно в будщем когда время появится

2. ограничение Excel не умеет вставлять больше 65536 строк на одну страницу, с помощью макроса такое ограничение можно обойти.

[sukhanchik]

Ну кстати, вполне может быть что данный макрос заменит ActiveX-ную компоненту.
Скорость не проверял - однако - если по скорости способ YVAS не лучше скорости Tron, то на мой взгляд очень даже вполне. В качестве минусов метода Tron можно сказать, что:
1. в каждый шаблон нужно вставлять макрос, и в каждом клиентском Excel е, (если работа с Аксаптой конечно ведется не по терминалке) надо разрешать исполнение макроса без подтверждения пользователя (ставить низкий уровень безопасности).
2. Действительно, надо писать все команды-сообщения для форматирования в Excel-е. В ActiveX-компоненте сие делается напрямую - и там проблем нет. Другое дело, что возникает вопрос, а много ли отчетов (из внутренних) у которых будет много шаблонов?

В отношении ограничения кол-ва строк есть вполне резонный (и немного философский) вопрос - о том - кто будет читать такой отчет. Когда кто-то хочет получить такой отчет - он хочет получить фактически некие данные для последующей, вторичной выборки и группировки - как ему удобно (100% вер-ть, что не будет отчет с 65535 строками печататься весь). А значит (как вариант) можно задать все варианты группировки и фильтрации в Аксапте путем программирования.

Однако сказанное выше есть сугубо мое личное мнение - я вполне могу ошибаться.

[ddadream]

Вообще с импортом и экспортом в экселе можно работать через ODBC драйвера, получается очень быстро, а так же без промежуточных файлов..
что то типа этого, и скорость вам очень понравится

/*
exec sp_addlinkedserver
@server = 'X2SQL',
@srvproduct = 'Jet 4.0 file',
@provider = 'Microsoft.Jet.OLEDB.4.0',

@datasrc = 'I:\Inetpub\trade\v2.4\aaa.xls',
@location = NULL,
@provstr = 'Excel 8.0, HDR=No'
go
select * from
openquery(X2SQL,'select * from [qqq$]')
go
exec sp_dropserver 'X2SQL'
*/

[tron]

Цитата:

Изначально опубликовано sukhanchik
1. в каждый шаблон нужно вставлять макрос, и в каждом клиентском Excel е, (если работа с Аксаптой конечно ведется не по терминалке) надо разрешать исполнение макроса без подтверждения пользователя (ставить низкий уровень безопасности).

Про уровень безопастности, как не странно Excel проглатывает шаблоны с макросами
открытые через com- объект с любым уровнем безопастности без всяких вопросов. Так что уровень менять ненадо...

Про каждый шаблон это да, но это только один раз, больше ничего менять не надо...

Цитата:

Изначально опубликовано sukhanchik
В отношении ограничения кол-ва строк есть вполне резонный (и немного философский) вопрос - о том - кто будет читать такой отчет. Когда кто-то хочет получить такой отчет - он хочет получить фактически некие данные для последующей, вторичной выборки и группировки - как ему удобно (100% вер-ть, что не будет отчет с 65535 строками печататься весь). А значит (как вариант) можно задать все варианты группировки и фильтрации в Аксапте путем программирования.

Мы тоже интересовались кто его будет читать, но было решено обойти это заранее до момента когда на это нарвутся и придется менять все и везде как с ошибкой 2000 года

[sukhanchik]

Цитата:

Про уровень безопастности, как не странно Excel проглатывает шаблоны с макросами
открытые через com- объект с любым уровнем безопастности без всяких вопросов.

Мдаа.... вот тебе и защита.... хорошая дырочка в Excel...
Даже не думал...

[Pavel]

Цитата:

Изначально опубликовано ddadream
Вообще с импортом и экспортом в экселе можно работать через ODBC драйвера, получается очень быстро, а так же без промежуточных файлов..

Еще через DDE можно попробовать.

[macklakov]

Ну, раз поднялась эта тема, то и я словечко вверну
Конструкция:
TextBuffer.toClipboard();
worksheet.pastespecial(1);
работает великолепно и быстро. Но вот при работе в терминале у меня возникли проблемы. Если запустить пакетного обработчика и закрыть окно терминала, то она выдаст ошибку. А если оставть окно терминала, то она хватает мой локальный буффер.
Может кто посоветует, как это исправить?

[Владимир Максимов]

tron
Я конечно, извиняюсь, но Вы сравнивали производительность, достоинства и недостатки, Вашего метода и вот этого

http://forum.mazzy.ru/index.php?showtopic=385&hl=excel

Смысл в том, что данные вставляются из буфера обмена напрямую в EXCEL минуя промежуточный текстовый файл. Как следствие, нет необходимости в макросе Excel.

Подробное обсуждение этого метода было здесь
http://www.axforum.info/forums/showt...4163#post24163

[puga555]

Может кто-то поможет???

написал макрос который сохраняет выделенную область в формате CSV, как известно значения ячеек разделяются символом ";" а если в ячейке есть точка с запятой то значение должно браться в кавычки.
Так вот если в ячейке стоит точка с запятой и сохранять файл макросом, то кавычки не ставятся при наличии в ячейке ; , а если сохранять через меню то кавычки появляются.
Помогите решить данную проблему

[simply2double]

Цитата:

Изначально опубликовано YVAS
Смысл экселевского макроса понять не могу. Exel сам способен работать с форматом .csv при простом открытии если грамотно расположить разделители естественно.

А проблема медленного экспорта действительно существует. Мы, например, выводим в Exel через ActiveX. Скорость вырастает в разы.

Извините, а что за ActiveX ???

[YVAS]

2 simply2double:
Компонентина такая SpreadSheet, встроенная в Excel. Набирайте в окне поиска слово SpreadSheet здесь были ссылки про нее.

[simply2double]

Цитата:

Изначально опубликовано YVAS
2 simply2double:
Компонентина такая SpreadSheet, встроенная в Excel. Набирайте в окне поиска слово SpreadSheet здесь были ссылки про нее.

спасибо...