Получение данных из файла Excel

[Zeratul]

Застрял на элементарной задаче: есть какой-либо xls-файл, надо в переменную str прочитать его ячейку, ну, например, "A1". В ComExcelDocument_RU такого метода нету (get...). Может кто подскажет метод?!
Через COM делать неохото.
Возможно это уже обсуждалось, но я не смог найти...

[abv2703]

str strValue(int _row, int _col)
{
    COM         c = this.cell(_row, _col);
    COMVariant  cv = c.value();

    switch (cv.variantType())
    {
        case COMVariantType::VT_BSTR: return cv.bStr();
        case COMVariantType::VT_R8:   return num2str(cv.double(),-1,0,0,0);
    }
    return '';
}

[abv2703]

COM cell(int _row, int _col)
{
    int ii;
    COM     cellValue;
    ;
    cellValue = worksheet.cells();
     ii = 0;
    SysCOM::variant2COM(cellValue, cellValue.item(_row, _col));
    return cellValue;
}

[konopello]

Вот ссылка котороя помогла мне в этом разобратся.
Axapta программирует Excel на VBA

[glibs]

Цитата:

Сообщение от Zeratul

...
Через COM делать неохото.
...

Вариант использования классов SysExcel* (они используются в штатном механизме импорта из файлов Excel, включая создание шаблонов) вы рассматриваете?

[Zeratul]

Цитата:

Сообщение от abv2703

COM cell(int _row, int _col)
{
int ii;
COM cellValue;
;
cellValue = worksheet.cells();
ii = 0;
SysCOM::variant2COM(cellValue, cellValue.item(_row, _col));
return cellValue;
}

Ругается на cellValue = worksheet.cells() - таблица не содержит это поле.

[abv2703]

public class ReadFromExcelFile
{
    COM   worksheet;
}

void loadFromFile(Filename _fileName)
{
    ComExcelDocument_RU exl = new ComExcelDocument_RU();
    ;
    if (! exl.open(_fileName)) throw error('?????? ??? ???????? ????? ' + _fileName);
    exl.visible(false);
    worksheet   = exl.getWorkSheet(1);
}

Нямножко можно и самому пошерстить

[George Nordic]

Можно через ODBC.

Объясните начинающему как загрузить данные из Excel? Смотрел форум, но не нашел.

Я выкладывал подробный пример.

С Уважением,
Георгий

[belugin]

а еще можно через CSV и класс CommaIO

[Hans]

fileName = fileNameControl.text();
        fileNameControl.text(fileNameTrim(fileName));
        excel = new COM('Excel.Application');
        wbs = excel.workbooks();
        wb = wbs.open(fileName);
        wss = wb.WorkSheets();
        ws  = wss.Item("Акт");
        while(cycleFlag == "zyclus")
        {
    //cell A
            r               = ws.range("A"+int2str(counter1));
            temp            = r.value2();
            if(temp.toString() != "VT_EMPTY")
                numPos      = temp.double();
            else
            {
                cycleFlag   = "nicht zyclus";
                break;
            }
        }

[mit]

лучше и быстрее чем через одбс не получится.
через ком бывают проблемы(последний раз наблюдалось в 2.5, потом не смотрел) вываливается через определенное кол-во загруженных строк - но позволяет выбрать файл

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

Ну, "до кучи". Импорт из EXCEL через буфер обмена

PHP код:

static void Imort_from_Excel(Args _args)
{
    FileName                fileName = "C:\\Моя директория\\Мой файл.xls";

    COMExcelDocument_RU     excel;
    TextBuffer                         textBuffer;
    MSOfficeBookMark_RU     bookMark;
    TransDate                        nextDate;
    COM                                workRange;
    ;

    excel = new ComExcelDocument_RU();
    excel.newFile(fileName,false);

    // В диапазон включаем только ячейки одного столбца
    bookMark = "A1:A20";

    // Копируем содержимое диапазона в буфер обмена
    workRange   = excel.findRange(bookMark);
    workRange.copy();
    textBuffer  = new TextBuffer();
    textBuffer.fromClipboard();
    // Если необходимо выбрать из диапазона только НЕ пустые значения, то
    while (textBuffer.nextToken())
    {
        info(textBuffer.token());
    }

    // Если необходимо выбрать из диапазона ВСЕ значения, включая пустые, то
    textBuffer.fromClipboard();
    while (textBuffer.nextToken(false,"\n"))
    {
        info(strRem(textBuffer.token(),"\r"));
    }

} 


Достоинства - высокая скорость
Недостатки - буфер обмена возвращает данные только в символьном виде. Переводить в нужный тип данных придется вручную