i> p>
} (...)
{//Спроба не вдалася> MessageBox ("Невозможнооткрить Microsoft Excel!"
"Можливо, Excel не встановлений на комп'ютері.",
"Помилка", MB_OK + MB_ICONERROR);
} catch (...) {> MessageBox ("Ошібкаоткритіякнігі Microsoft Excel!",
"Помилка", MB_OK + MB_ICONERROR);
} (Rezult)
{. OlePropertySet ("Visible", (Variant) true); {; (int j = 1; j <4; j + +)
{_table-> First (); = 2; (! my_table-> Eof) {(j == 1) {cur = Sh.OlePropertyGet ("Cells", i, j); s = (my_table-> FieldValues ​​["CITY_NAME"]);. OlePropertySet ("Value", s.c_str ()); + +; _table-> Next ();
} (j == 2) {cur = Sh.OlePropertyGet ("Cells", i, j); s = (my_table-> FieldValues ​​["ADDRESS"]) ;. OlePropertySet ("Value", s.c_str ()); + +; _table-> Next ();
} (j == 3) {cur = Sh.OlePropertyGet ("Cells", i, j); s = (my_table-> FieldValues ​​["TELEPHONE"]) ;. OlePropertySet ("Value", s.c_str ()); + +; _table-> 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); + +;
}// for (j) (...)
{
;
} _table-> First ();
}
}
{XL, XLBooks, RpXL, Sh, Range;, lgRp; * my_table = DBGrid6-> DataSource-> DataSet; = false;
{//Попиткаоткритьпріложеніе Excel = Variant :: CreateObject ("Excel.Application"); = XL.OlePropertyGet ("WorkBooks"); = true; p>
} (...)
{//Спроба не вдалася> MessageBox ("Неможливо відкрити MicrosoftExcel!"
"Можливо, Excel не встановлений на комп'ютері.",
"Помилка", MB_OK + MB_ICONERROR);
} catch (...) {> MessageBox ("Ошібкаоткритіякнігі Microsoft Excel!",
"Помилка", MB_OK + MB_ICONERROR);
} (Rezult)
{. OlePropertySet ("Visible", (Variant) true); {; (int j = 1; j <4; j + +)
{_table-> First (); = 3; (! my_table-> Eof) {(j == 1) {cur = S...