ton8Click (TObject * Sender)
{();
}
{XL, XLBooks, RpXL, Sh, Range;, lgRp; = false;
{//Попиткаоткритьпріложеніе Excel = Variant :: CreateObject ("Excel.Application"); = XL.OlePropertyGet ("WorkBooks"); = true;
} (...)
{//Спроба не вдалася> MessageBox ("Невозможнооткрить Microsoft Excel!"
"Можливо, Excel не встановлений на комп'ютері.",
"Помилка", MB_OK + MB_ICONERROR);
} catch (...) {> MessageBox ("Ошібкаоткритіякнігі Microsoft Excel!",
"Помилка", MB_OK + MB_ICONERROR);
} (Rezult)
{. OlePropertySet ("Visible", (Variant) true); {i; (int j = 1; j <5; j + +)
{-> First (); = 2; (! Table1-> Eof) {(j == 1) {cur = Sh.OlePropertyGet ("Cells", i , j); s = (Table1-> FieldValues ​​["SUPP_NAME"]);. OlePropertySet ("Value", s.c_str ()); + +; -> Next ();
} (j == 2) {cur = Sh.OlePropertyGet ("Cells", i, j); s = (Table1-> FieldValues ​​["CITY"]) ;. OlePropertySet ("Value", s.c_str ()); + +; -> Next ();
} (j == 3) {cur = Sh.OlePropertyGet ("Cells", i, j); s = (Table1-> FieldValues ​​["GOOD_NAME"]) ;. OlePropertySet ("Value", s.c_str ()); + +; -> Next ();
} (j == 4) {s; cur = Sh.OlePropertyGet ("Cells", i, j); (! (Table1-> FieldValues ​​["INFORMATION" ]). IsNull ()) = (Table1-> FieldValues ​​["INFORMATION"]); = "";. OlePropertySet ("Value", s.c_str ()); + +; -> Next ();
}
}
} cur = Sh.OlePropertyGet ("Cells", 1, 1); s = "Постачальник";. OlePropertySet ("Value", s.c_str ()); = Sh.OlePropertyGet ("Cells", 1, 2); = "Місто";. OlePropertySet ("Value", s.c_str ()); = Sh.OlePropertyGet ("Cells", 1, 3) ; = "Товар";. OlePropertySet ("Value", s.c_str ()); = Sh.OlePropertyGet ("Cells", 1, 4); = "Інформація";. OlePropertySet ("Value" , s.c_str ()); = Sh.OlePropertyGet ("Cells", 1, 5); + +;
}// for (j) (...)
{
;
} -> First ();
}
}
{XL, XLBooks, RpXL, Sh, Range;, lgRp; * my_table = DBGrid4-> DataSource-> DataSet; = false;
{//Попиткаоткритьпріложеніе Excel = Variant :: CreateObject ("Excel.Application"); = XL.OlePropertyGet ("WorkBooks"); = true;
