请教

langzi133

如题：

[ 本帖最后由 langzi133 于 2007-12-28 08:55 编辑 ]

精美礼品一份

第一个没用过

第二个常用啊，DELPHI经常生成XLS，没有如你说的

langzi133

导出的excel有没有特殊设置啊！

[ 本帖最后由 langzi133 于 2007-12-28 08:52 编辑 ]

精美礼品一份

1. 
   
2. 
   
3. strCurrentDir := GetCurrentDir();
   
4.   try
   
5.     eclApp := CreateOleObject('Excel.Application');
   
6.     WorkBook := CreateOleObject('Excel.Sheet');
   
7.   except
   
8.     Application.MessageBox('你的机器未装MS EXCEL.', '操作提示-警告', MB_ICONWARNING);
   
9.     exit;
   
10.   end;
    
11. 
    
12.   try
    
13.     if savedialog1.Execute then
    
14.     begin
    
15.       strfilename := savedialog1.FileName;
    
16.     end
    
17.     else
    
18.       exit;
    
19. 
    
20.     ProgressBar1.Visible := true;
    
21.     ProgressBar1.Max := sg_List.RowCount;
    
22.     lbl_Message.Font.Color := clgreen;
    
23.     lbl_Message.Caption := '开始导出.';
    
24.     workBook := eclApp.workBooks.add;
    
25.     eclApp.cells[1, 13] := stryear + '年' + strmonth + '月 统计';
    
26.     eclApp.cells[1, 13].Font.Bold := true;
    
27.     eclApp.cells[1, 13].Font.size := 18;
    
28.     eclApp.ActiveSheet.Columns[7].HorizontalAlignment := 2;
    
29.     eclApp.ActiveSheet.Columns[17].HorizontalAlignment := 2;
    
30.     for i := 0 to sg_List.RowCount - 1 do
    
31.     begin
    
32.       for j := 1 to sg_List.ColCount - 1 do
    
33.       begin
    
34.         if j in [7, 17] then
    
35.           eclApp.cells[i + 3, j] := '''' + sg_List.Cells[j, i]
    
36.         else
    
37.           eclApp.cells[i + 3, j] := sg_List.Cells[j, i];
    
38. 
    
39.       end;
    
40.       ProgressBar1.Position := i + 1;
    
41.       self.Repaint;
    
42.     end;
    
43.     workBook.saveas(strfilename);
    
44.     workBook.close;
    
45.     eclApp.quit;
    
46.     eclApp := unassigned;
    
47.   except
    
48.     Application.MessageBox('不能操作该文件.可能是该文件已被其他程序打开,或文件错误.', '操作提示-警告', MB_ICONWARNING);
    
49.     workBook.close;
    
50.     eclApp.quit;
    
51.     eclApp := unassigned;
    
52.   end;
    
53.   ProgressBar1.Visible := false;
    
54.   lbl_Message.Caption := '导出结束.';
    
55.   lbl_Message.Font.Color := clred;
    
56. 
    
57.   SetCurrentDir(strCurrentDir);
    
58. 
    

复制代码

偶导出都按上面套的

[ 本帖最后由 精美礼品一份 于 2007-12-24 17:01 编辑 ]

langzi133

谢谢！

[ 本帖最后由 langzi133 于 2007-12-28 08:52 编辑 ]

chaoshan764

没用过 ,呵呵,看看

chaoshan764

第一次看咯,以前没遇见过的

knighter

为什么都编辑掉呢？