aardio官方社区

 找回密码
 注册会员

!connect_header_login!

只需一步,快速开始

搜索
查看: 6070|回复: 5

如何将excel表中数据导入access

[复制链接]

8

主题

34

帖子

193

积分

一级会员

Rank: 2

积分
193
发表于 2012-4-25 16:17:20 | 显示全部楼层 |阅读模式
小弟刚接触aardio,想搞一个将excel数据导入到access中的工具,请兄弟们帮忙写一写。
做这个事情有两个目的:一是想从高手们的代码中找到学习aardio的路子,再一个就是想学习具体代码的写法。
求教了。
回复

使用道具 举报

52

主题

1334

帖子

7301

积分

荣誉会员

Rank: 8Rank: 8

积分
7301
发表于 2012-4-25 18:32:02 | 显示全部楼层

不用 access 也没安装 access 帮不了你

不用 access 也没安装 access 帮不了你
回复

使用道具 举报

2

主题

868

帖子

4689

积分

荣誉会员

Rank: 8Rank: 8

积分
4689
发表于 2012-4-25 19:13:24 | 显示全部楼层

excel 也可以用数据库的方式来操作,看一下范例的例子,很容易就可以实现。 别人也不知道你需要什么样的数据库,自已动手做一下吧,碰到更具体的问题再发上来。

excel 也可以用数据库的方式来操作,看一下范例的例子,很容易就可以实现。
别人也不知道你需要什么样的数据库,自已动手做一下吧,碰到更具体的问题再发上来。
回复

使用道具 举报

2

主题

868

帖子

4689

积分

荣誉会员

Rank: 8Rank: 8

积分
4689
发表于 2012-4-25 19:13:52 | 显示全部楼层

查看“aardio范例->数据库->access,excel ”

查看“aardio范例->数据库->access,excel ”
回复

使用道具 举报

8

主题

34

帖子

193

积分

一级会员

Rank: 2

积分
193
 楼主| 发表于 2012-4-25 20:02:40 | 显示全部楼层

好的,谢谢。

好的,谢谢。
回复

使用道具 举报

7

主题

35

帖子

219

积分

二级会员

Rank: 3Rank: 3

积分
219
QQ
发表于 2016-5-25 17:11:26 | 显示全部楼层

给你一个参考代码,类似,这是把excel数据读取显示在listview中,把显示到listview的代码改成数据库插入操作即可: import_Data

给你一个参考代码,类似,这是把excel数据读取显示在listview中,把显示到listview的代码改成数据库插入操作即可:

import_Data = function(){  
    var path = fsys.dlg.open();
    if(!io.exist(path)){
       return;
    }else {
             var excel = com.CreateObject("Excel.Application");
            var book = excel.WorkBooks.Open(io.fullpath(path)) ;
            var sheet = book.Sheets(1);
          
            if (excel){
                excel.Visible = false;//是否显示,false为前台不显示excel文件
                excel.alerts = false; //是否允许操作提示
            }
           
            //生成表头
            for(i=1;sheet.UsedRange.Columns.count;1){
                winform.listview.insertColumn(sheet.cells(1,i).getValue2(),80);
        }
           
            //插入数据
            for(i=2;sheet.UsedRange.Rows.count;1){
                    data = {};
                    for(j=1;sheet.UsedRange.Columns.count;1){
                            val = sheet.cells(i,j).getValue2();
                    val := "";  //等价于:if(val==null) val=""
                   
                    table.push(data,val);
                    }
                winform.listview.addItem(data);
            }
           
            book.close(true);
                book = null;
                excel.application.quit();
                excel = null;
                collectgarbage("collect"); //很重要,释放资源
        }
}
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册会员

本版积分规则

手机版|未经许可严禁引用或转载本站文章|站长邮箱|aardio.com|aardio官方社区 ( 皖ICP备09012014号 )

GMT+8, 2021-6-19 09:20 , Processed in 0.049489 second(s), 23 queries .

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表