如何将ListView中的内容导出到Excel表格里阿；再将Excel表格里的内容导到ListView里阿；

Question

急，在线等！

Answer 1

咋看起来象是在来回折腾啊，看看lv的items和columns属性，应当可以解决吧

Answer 2

刚写的DBGRID导入到EXCELL
procedure TFormGzqkHZ.DataToExcel(aPath: string);
var
  MySQL,ConnStr: string;
begin
  ConnStr := 'Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=' + aPath + ';Persist Security Info=False';
  MySQL := 'SELECT * INTO [SHEET1] FROM TBLGZFFQKLS IN [ODBC]' + ' [ODBC;Driver=SQL Server;UID=sa;PWD=;Server='+ frmMain.IpCode +';DataBase=SalaryAuidit;]';
  try
    ADOConnExcel.Connected := False;
    ADOConnExcel.ConnectionString := ConnStr;
    ADOConnExcel.Connected := True;
    ADOConnExcel.Execute(MySQL);
    Application.MessageBox('导出EXCEL成功','信息提示!',mb_ok+mb_iconinformation);
    ADOConnExcel.Connected := False;
  except
    Application.MessageBox('导出EXCEL失败','错误!',mb_ok+mb_iconStop);
    ADOConnExcel.Connected := False;
  end;
end;