ExcelApplication1.Connect;//EXCEL应用程序
ExcelApplication1.Visible[0]:=True;
Excelapplication1.Workbooks.Open(getcurrentdir+'\计量器具检定台帐.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);//打开指定的EXCEL 文件 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[3] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接d7+excel 2003!
ExcelApplication1.Visible[0]:=True;
Excelapplication1.Workbooks.Open(getcurrentdir+'\计量器具检定台帐.xls',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);//打开指定的EXCEL 文件 ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[3] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接d7+excel 2003!
Excelapplication1.Workbooks.Open(getcurrentdir+'\计量器具检定台帐.xls', null, null, null, null, null, null, null, null, null, null, null, null, null, null, 0);//打开指定的EXCEL 文件要分的请进!