Экспорт одной строки в Excel из Access

@ViewSonic987 · Регистрация: 22.11.2015

Author24 — интернет-сервис помощи студентам

Здрасте, люди добрые помогите с экспортом одной строки в Excel из Access
Надо чтобы при нажатии на строку экспортировало только её, а другие не трогала
у вас на форуме нашёл кодик, а он все строчки которые есть кидает в excel, а надо одну которую выделил нажатием

C++

String fTPL = ExtractFilePath(Application->ExeName) + "template.xls";
  Variant app, books, book, sheet, Rang, vCell;
  app = CreateOleObject("Excel.Application");
  books = app.OlePropertyGet("Workbooks");
  books.OleFunction("Open", WideString(fTPL));
  book = books.OlePropertyGet("item",1);
  sheet = book.OlePropertyGet("WorkSheets",1);
  vCell=sheet.OlePropertyGet("Cells").OlePropertyGet("Item",1,1);
  vCell.OlePropertySet("Value",WideString(Header));
  const int bounds[4] = {0, ADOTable1->RecordCount, 0, ADOTable1->FieldCount};
  Variant vData = VarArrayCreate(bounds, 3, varVariant);
  ADOTable1->First();
  for(int row = 0; row < ADOTable1->RecordCount; ++row)
   {
     for(int column = 0; column < ADOTable1->FieldCount; ++column)
        vData.PutElement(ADOTable1->Fields->Fields[column]->AsVariant, row, column);
     ADOTable1->Next();
   }
  Rang = sheet.OlePropertyGet("Range",sheet.OlePropertyGet("Cells",4,1),
         sheet.OlePropertyGet("Cells", ADOTable1->RecordCount + 3, ADOTable1->FieldCount));
  Rang.OlePropertySet("Value",vData);
  app.OlePropertySet("DisplayAlerts",false);
  book.OleProcedure("SaveAs",WideString(fXLS));
  app.OleProcedure("Quit");
  ShowMessage("Готово!\nОтчет записан в файл " + fXLS);

Добавлено через 8 минут
и ещё один вопрос можно ли запретить onclose через кнопку?
Есть форма там через onclose прописано "закрыть программу" да, нет
Нужно чтобы при нажатие на кнопку на др. форме открывалась форма1 и сразу поставился запрет на появление такого сообщения "закрыть программу" да, нет. Просто открыл форму 1, сделал то что нужно, нажал кнопку и она закрылась, без вывода сообщений о закрытии.

@volvo · 23.11.2015, 09:56

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

а надо одну которую выделил нажатием

Выделил нажатием чего и где?

@ViewSonic987 · 23.11.2015, 12:11 **[ТС]**

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

Выделил нажатием чего и где?

В dbgrid нажать на строчку и чтобы она только экспортировалась в excel. через adotable подключение

@volvo · 23.11.2015, 12:24

Тогда цикл вообще не нужен:

C++

    String fTPL = ExtractFilePath(Application->ExeName) + "template.xls";
    Variant app, books, book, sheet, Rang, vCell;
    app = CreateOleObject("Excel.Application");
    books = app.OlePropertyGet("Workbooks");
    books.OleFunction("Open", WideString(fTPL));
    book = books.OlePropertyGet("item", 1);
    sheet = book.OlePropertyGet("WorkSheets", 1);
    vCell = sheet.OlePropertyGet("Cells").OlePropertyGet("Item", 1, 1);
    vCell.OlePropertySet("Value", WideString(Header));
    const int bounds[4] = {0, ADOTable1->RecordCount, 0, ADOTable1->FieldCount};
    Variant vData = VarArrayCreate(bounds, 3, varVariant);
    /*
    ADOTable1->First();
    for (int row = 0; row < ADOTable1->RecordCount; ++row)
    {
        for (int column = 0; column < ADOTable1->FieldCount; ++column)
            vData.PutElement(ADOTable1->Fields->Fields[column]->AsVariant, row, column);
        ADOTable1->Next();
    }
    */
 
    // DBGrid связан с ADOTable1, я надеюсь? Тогда ADOTable1 уже указывает на нужную строку, экспортируй только ее
    for (int column = 0; column < ADOTable1->FieldCount; ++column)
        vData.PutElement(ADOTable1->Fields->Fields[column]->AsVariant, row, column);
 
    Rang = sheet.OlePropertyGet("Range", sheet.OlePropertyGet("Cells", 4, 1),
        sheet.OlePropertyGet("Cells", ADOTable1->RecordCount + 3,
        ADOTable1->FieldCount));
    Rang.OlePropertySet("Value", vData);
    app.OlePropertySet("DisplayAlerts", false);
    book.OleProcedure("SaveAs", WideString(fXLS));
    app.OleProcedure("Quit");
    ShowMessage("Готово!\nОтчет записан в файл " + fXLS);

@ViewSonic987 · 23.11.2015, 13:14 **[ТС]**

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

Тогда цикл вообще не нужен:

так он вообще ничего не кидает(

Добавлено через 9 минут

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

Тогда цикл вообще не нужен:

Всё сделал пропустил row, Спасибо))
теперь onclose осталось)

@volvo Супер-модератор 32996 / 21302 / 8180 Регистрация: 22.10.2011 Сообщений: 36,595 Записей в блоге: 8
	23.11.2015, 09:56	2
	Сообщение от ViewSonic987 а надо одну которую выделил нажатием Выделил нажатием чего и где? 0

@ViewSonic987 0 / 0 / 0 Регистрация: 22.11.2015 Сообщений: 3
	23.11.2015, 12:11 [ТС]	3
	Сообщение от volvo Выделил нажатием чего и где? В dbgrid нажать на строчку и чтобы она только экспортировалась в excel. через adotable подключение 0

@ViewSonic987 0 / 0 / 0 Регистрация: 22.11.2015 Сообщений: 3
	23.11.2015, 13:14 [ТС]	5
	Сообщение от volvo Тогда цикл вообще не нужен: так он вообще ничего не кидает( Добавлено через 9 минут Сообщение от ViewSonic987 Тогда цикл вообще не нужен: Всё сделал пропустил row, Спасибо)) теперь onclose осталось) 0

Экспорт одной строки в Excel из Access

Решение