如何将excel表中选定的range数据拖拉到程序stringgrid中

解决方案 »

  1.   

    能不能先将Excel转化为Sql Server 2000的表,再显示? 如果你许可这样做(更多些代码),也许我可以帮你
      

  2.   

    我只是想让用户通过excel直接拖拉数据到程序中,这样不要求用户太多操作就能实现数据传输。在线等待!!
      

  3.   

    还有怎样把excel导入数据库或者说导出为excel呢?
      

  4.   

    解决问题后在delphi-基础类中另有50分,谢谢!!
      

  5.   

    经过摸索,我终于找到了方便快捷的通过jet把excel数据导出方法,我把我的一些经验写出来,希望对后人有帮助.
    假设有一个excel表d:\在职职工库.xls,簿中有一个表在职职工,其中有如下数据
               2002年5月职工花名册
    序号     姓名     性别    民族   工资
      1      张三       男     汉    800.00
      2      李四       男     回    1200.00
      3      张芸       女     汉    852.00
      4     何天荣      男     满    962.00现要把其中的职工数据导出到d:\zghmc.dbf.首先用excel打开d:\在职职工库.xls,选择包含职工数据的区域,不包括标题"2002年5月职工花名册",执行"插入->名称->定义",输入zgk,为所选的数据定义一个名称,关闭excel.在project中加入一个ADOConnection1、一个ADOQuery1,添加以下代码:
    ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\在职职工库.xls;Extended Properties=excel 8.0;Persist Security Info=False';
    ADOQuery1.Connection:= ADOConnection1;
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('select * into zghmc in "d:\" "dBASE 5.0;" from zgk' );
    ADOQuery1.ExecSQL;
    ADOQuery1.Close;然后编译运行,就把excel中的职工数据导出到d:\zghmc.dbf中了。
    如果要在程序中显示excel中的数据,添加一个ADOTable1,设置Connection为ADOConnection1就可以了
      

  6.   

    将数据保存为CSV文件,
    即以“,”号将每个字段分开,在每个记录后加 #13
    然后保存为*.CSV
    如果系统安装了EXCEL,你双击它使使!!