to nibut znaet kak mojno sozdat Query table, posle togo kak sozdana excel workbook, u menaj chto to ne pakazivaet nichego, i ne znaju chto ja nepravilno napisal

kprimeru


_Application app;
Workbooks wb;
_Workbook _wb;
Worksheets ws;
_Worksheet _ws;
QueryTables qt;
_QueryTable _qt;
Range range;
COleVariant covOptional((long)DISP_E_PARAMNOTFOUND, VT_ERROR);
if(!app.CreateDispatch("Excel.Application"))
{
AfxMessageBox("Error to open Excel?!");
return;
}
else
{
wb=app.GetWorkbooks();
wb.Add(covOptional);
_wb=wb.GetItem(COleVariant(long(1)));
_ws=app.GetActiveSheet();
qt=_ws.GetQueryTables();
range=_ws.GetRange(COleVariant("A1"),COleVariant("A1"));
qt.Add(COleVariant("ODBC;DSN=STAT;),range,COleVariant(str));
_qt.SetName("STAT");
_qt=qt.Item(COleVariant(long(1)));
_qt.SetFieldNames(TRUE);
_qt.SetRowNumbers(FALSE);
_qt.SetFillAdjacentFormulas(FALSE);
_qt.SetPreserveFormatting(TRUE);
_qt.SetRefreshOnFileOpen(FALSE);
_qt.SetBackgroundQuery(TRUE);
_qt.SetRefreshStyle(1);
_qt.SetSavePassword(TRUE);
_qt.SetSaveData(TRUE);
_qt.SetAdjustColumnWidth(TRUE);
_qt.SetRefreshPeriod(0);
_qt.SetPreserveColumnInfo(TRUE);
app.SetVisible(TRUE);
}