11 2013 档案

Excel OLE 读取筛选后的数据
摘要：//uses comobjprocedure Tfrm1.Button1Click(Sender: TObject);var ExcelApp, Sheet, MySheet: OleVariant; strExcelFile,str_SheetName: string; i, iTotRows: integer;begin inherited; with TOpenDialog.Create(nil) do begin DefaultExt := 'xls'; Filter := 'Excel 文件(*.xlsx;*.xls)|*.xlsx;*.xls'; / 阅读全文
posted @ 2013-11-12 11:44 seanpeng 阅读(360) 评论(0) 推荐(0)