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

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

摘要：//////////////////////////////// Excel 的一个宏 ///////////////////////////////////Sub setpageinfo(ByVal regDateStr As String) Dim I, maxRow As Integer '取得最大行 maxRow Range("A1").Select... 阅读全文

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