请教怎么把F1BOOK1中的数据存入数据库?急!!

Question

uses ComObj;
var vExcel :Varient;
    wsTemplatefilename:WideString;             wsTemplateFileName:=sCurPathName+'\Templates\Template.Xls';              If NOT VarIsEmpty(vExcel) Then
                Begin
                  vExcel.DisplayAlerts:=FALSE;
                  vExcel.Quit;
                End;             try
                vExcel:=CreateOleObject('Excel.Application');
                boolExcelOk:=TRUE;
             except
                MessageDLG('错误: Microsoft Excel 无法启动! 请关闭 Excel 后重试. ',mtError,[mbOK],0);
                boolExcelOk:=FALSE;
             end;             try
                vExcel.WorkBooks.Open(wsTemplateFileName);
                boolExcelOk:=TRUE;
                boolTemplateHaveOpened:=TRUE;
             except
                MessageDLG('错误: 模板文件无法打开! 请检查。 ',mtError,[mbOK],0);
                boolExcelOk:=FALSE;
              If NOT VarIsEmpty(vExcel) Then
                Begin
                  vExcel.DisplayAlerts:=FALSE;
                  vExcel.Quit;
                End;
             end;
    
             table1.fieldbyname('...').value:=vExcel.WorkBooks['Template.XLS'].Sheets[1].Range['G3:H3'].Formula:=sTemp;....
   将电子表格相对位置数据例如('G3:H3')写入数据库操作....
                     vExcel.DisplayAlerts:=FALSE;
                  vExcel.Quit;