迷茫

//Excel的单元格拷贝粘贴procedure Excel_copyCells;var  sheet,XLApp,workbook,myRange1 ,myRange2: variant;begin  try    //创建对象    XLApp:=createOleObject(Excel.Application);      XLApp.displayAlerts:=true;     

uses comobj,excel97,excel2000;//从Excel写数据到Access库prodedure ExcelToMdb(EXLfile:string;);var   sheet,XLApp,workbook : variant;   iRow,MaxRow:integer;begin  screen.Cursor:=crHourGlass;?   try    //创建对象

//怎样可以提高EXCEL的导出速度？uses ADODB,excel97,adoint;function TForm1.ExportToExcel: Boolean;var  xlApp,xlBook,xlSheet,xlQuery: Variant;  adoConnection,adoRecordset: Variant;begin  adoConnection := CreateO

////////////////////////////////    Excel 的一个宏  ///////////////////////////////////Sub setpageinfo(ByVal regDateStr As String)    Dim I, maxRow As Integer        取得最大行 maxRow    Range("A1").Select