超级大乐透开奖时间
   if Application.MessageBox('操作前请确认是否安装了Excel如未安装请取消','提示',MB_OKCANCEL) <> IDOK then Exit;
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.visible := true;
    ExcelApp.Caption := '人事信息导出';
    ExcelApp.WorkBooks.Add(1);
    ExcelApp.WorkBooks[1].WorkSheets[1].Name := '持卡人信息';
    ExcelApp.Cells.Item[1,1] := '持卡人信息';
    for row := 0 to lvCard.Items.Count - 1 do
    begin
        ExcelApp.Cells.Item[row+3, 1] := lvCard.Items[row].Caption;
        for col := 0 to lvCard.Columns.Count -2 do
            ExcelApp.Cells.Item[row+3, col+2] := lvCard.Items[row].SubItems[col];
    end;
    for col := 0 to lvCard.Columns.Count -1 do
        ExcelApp.Cells.Item[2, col+1] := lvCard.Column[col].Caption;
上海誉澄智能科技有限公司智能系统事业部 All rights reserved 地址上海金沙江西路1075弄1号写?#33268;? 
电话 021-59786133 18621810519(24小时)   ?#27663;䣺[email protected]  QQ529131638 9223677 9603426 沪ICP备10219392号  

沪公网安备 31011402002854号

更多
͸ʱ
۸ ʮһѡƼ ʢͶ йƱ ͬ˳ģ⳴ ΢ֺ齫׿ 찮齫1 ƹ㶫齫