2012年8月5日
Delphi 操作Excel
摘要： if OpenDialog1.Execute then begin try VExcelApp := CreateOleObject('Excel.Application'); VExcelWorkBook := VExcelApp.Workbooks.Open(OpenDialog1.FileName); VExcelApp.Visible := False; ComboBox1.Items.Clear; for i := 1 to VExcelApp.WorkSheets.Count do begin VExcelWorkSheet1 := VExcelWorkBook.S 阅读全文
posted @ 2012-08-05 19:39 YDA 阅读(107) 评论(0) 推荐(0)