Delphi6实现导入导出功能

导入导出数据需要组件：OpenDialog（打开选择文件窗口），uses中需要引入Comobj（提供CreateOleObject方法进行COM编程

一、Excel数据导入数据库

思路：找到需要导入的数据表格，依次遍历每一行的数据，获取到每一行对象的每个属性值，依次插入到数据库中。

代码如下：

procedure TForm1.ToolButton6Click(Sender: TObject);
const
 //初始行，选择excel表格中数据的哪行开始插入
 BeginRow=2;
 //初始列，选择excel表格中数据的哪列开始插入
 BeginClo=1;
var
 //存储excel当前行，当前列
 iRow,iCol:Integer;
 //设置变体类型：数据类型只有在运行时候知道
 MsExcel,MsExcelWorkBook:Variant;
 //存储插入语句
 sql1:string;
 //存储excel中每一行对象的各个属性值
 a,b,c,d,e:string;
begin
try
  //如果打开文件组件没有运行，则退出
  if not OpenDialog1.Execute then
  begin
    Exit;
  end;
  //ExtractFileExt获取文件后缀的函数
  //如果打开文件的类型不是表格，则提示
  if ExtractFileExt(OpenDialog1.FileName)<> '.xlsx' then
  begin
    //MessageBox消息框控件
    MessageBox(0,'请选择正确的excel文件',PChar('提示'),MB_OK or MB_ICONWARNING);
    Exit;
  end;