Чтение данных из Excel файла

//------------start office.h-------------------
// хедер необходим для использования офиса.....при данной настройке проект будет компилировать только с 2003 офисом
//!!!!для компиляции проекта с другим офисом необходимо изменить пути
 
#pragma once
 
#pragma message("Import MS Office library...")
 
// MS Office 2000 (Add to library directories C:\Program Files\MSOffice\OFFICE\MSO9.DLL)
// MS Office XP (Add to library directories C:\Program Files\Common Files\Microsoft Shared\Office10\MSO.DLL)
// MS Office 2003 (Add to library directories C:\Program Files\Common Files\Microsoft Shared\Office11\MSO.DLL)
 
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\Office11\\MSO.DLL" named_guids,\
    rename("RGB","RGBEx"),\
    rename("DocumentProperties","DocumentPropertiesEx"),\
    rename_namespace("Office")
using namespace Office;
 
#pragma message("Import Visual Basic for Applications library...")
// VB (Add to library directories C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6)
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.OLB" named_guids,\
    rename_namespace("VBE")
 
#pragma message("Import MS Add-in designer library...")
// MS Addin designer (Add to library directories C:\Program Files\Common Files\designer)
#import "C:\\Program Files\\Common Files\\designer\\MSADDNDR.DLL" named_guids,\
    raw_interfaces_only
using namespace AddInDesignerObjects;
 
#pragma message("Import MS Word library...")
// MS Word 2000 (Add to library directories C:\Program Files\MSOffice\OFFICE\MSWORD9.OLB)
// MS Word XP (Add to library directories C:\Program Files\MSOffice\OFFICE10\MSWORD.OLB)
// MS Word 2003 (Add to library directories C:\Program Files\MSOffice\OFFICE11\MSWORD.OLB)
 
#import "C:\\Program Files\\Microsoft Office\\OFFICE10\\MSWORD.OLB"\
    rename("ExitWindows","ExitWindowsEx"),\
    rename("FindText","FindTextEx"),\
    rename_namespace("Word")
 
#pragma message("Import MS Excel library...")
// MS Excel 2000 (Add to library directories C:\Program Files\MSOffice\OFFICE\Excel9.OLB)
// MS Excel XP(Add to library directories C:\Program Files\MSOffice\OFFICE10\Excel.EXE)
// MS Excel 2003(Add to library directories C:\Program Files\MSOffice\OFFICE11\Excel.EXE)
/*#import "Excel.exe"\
    exclude("IFont","IPicture"),\
    rename("DialogBox","DialogBoxEx"),\
    rename("RGB","RGBEx"),\
    rename("CopyFile","CopyFileEx"),\
    rename("ReplaceText","ReplaceTextEx"),\
    rename_namespace("Excel")*/
//------------end office.h-------------------
 
//-------using office.h----------
    ::CoInitialize(NULL);            //Инициализация COM
    try 
    {
        using namespace Word;        //использовать неймспейс ворда
        _ApplicationPtr word(L"Word.Application");        //создать COM объект ворда
        _DocumentPtr wdoc1 = word->Documents->Add();    //создать документ
        RangePtr range = wdoc1->Content;                //создать контент
        //SelectionPtr selection = word->Selection;
        range->LanguageID = wdRussian;                    //язык
        range->InsertAfter(_T("Протокол\r\n"));            //добавить наши данные
        for (int i=0;i<GetItemCount();i++)
        {
            range->InsertAfter(GetItemText(i,1).GetBuffer());
            range->InsertAfter(_T("\r\n"));
        }
        wdoc1->SaveAs(&_variant_t(szName));                //сохранить документ в файл
        wdoc1->Close();                                    //закрыть документ
        word->Quit(&_variant_t(false));                    //закрыть COM объект ворда
    }
    catch (_com_error& er) 
    {
        AfxMessageBox(er.ErrorMessage());                //вывести сообщение об ошибке
        return er.WCode();                                //возваратить код ошибки
    }
    ::CoUninitialize();                                    //деинициализация COM

CDatabase db;
 
    CString sSQL = "UPDATE PROG_DAN SET SPZ = " + sFileName.Mid(4,7) + " WHERE VISPOS = 1000;";
 
    try
    {
        db.OpenEx("Driver={Microsoft dBASE Driver (*.dbf)};DriverID=277;Dbq=c:\\POCHTA;");
 
 
        if (db.IsOpen())
        {           
            db.ExecuteSQL(sSQL);    
        }
 
        db.Close();
    }
    catch(CDBException cdb)
    {
        return -1;
    }