欧美日韩国产精品一区综合在线-亚洲av在线播放网址大全-久久影院午夜伦手机不四虎卡-中文字幕人妻丝袜乱一区三区-97热精品视频免费视频-人妻少妇精彩视品一区二区三区-污污污网站在线免费看-忘忧草社区在线播放日本韩国-亚洲精品一区二区三区婷婷月

   if Application.MessageBox('操作前請(qǐng)確認(rèn)是否安裝了Excel，如未安裝請(qǐng)取消','提示',MB_OKCANCEL) <> IDOK then Exit;
    ExcelApp := CreateOleObject('Excel.Application');
    ExcelApp.visible := true;
    ExcelApp.Caption := '人事信息導(dǎo)出';
    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;