Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

如何从EXCEL中倒入数据到表里,请竹迪斑主回答

chinayoxi  发表于:2012-01-13 12:15:38  
复制

我采用的是用“Excel固定格式的订单导入导出示例”修改而来的,现在遇到的问题是,我想通过“窗体1”中的从EXCEL中导入按钮将“需要倒入的数据.xls”中倒入数据到“支票收款人”表中,但是实现不了,不知道是哪里的问题,请竹迪斑主或做“Excel固定格式的订单导入导出示例”程序的大哥,帮我看一下修改一下,请帮我实现,谢谢!!加急。。祝各位龙年大吉!!点击下载此附件

 

Top
白色老鼠仔 发表于:2012-01-14 09:43:28

用Access2010有直接导入的功能键的



萧云 发表于:2012-01-14 10:58:08

你修改的示例已经很清楚的 告诉你 导入导出 EXCEL 数据的步骤,关键是你根本没有搞清楚 需要导入数据的区域。

 

        .Range("A10").Select
        intN = 10
        '向子窗体中写入订单明细数据
        Set rst = Me.支票收款人子窗体.Form.Recordset
        Do Until .Range("A" & intN) = ""
            rst.AddNew
           ' rst!订单ID = Me.订单ID
           ' rst!产品ID = DLookup("产品ID", "产品", "产品名称='" & .Range("A" & intN) & "'")
            rst!ID = "174"
            rst!收款人名称 = .Range("A" & intN)
            rst!收款人账号 = .Range("B" & intN)
            rst!收款行名称 = .Range("C" & intN)
            rst!备注 = .Range("D" & intN)
            rst.Update
            intN = intN + 1
        Loop

 

你能解释 你为什么这样改么?



萧云 发表于:2012-01-14 11:20:10

关键的两个点 你没有搞清楚。

 

1。   rst!ID = "174"    你为什么要给一个自动编号的 主键赋值?     

 

 你认为自动编号的主键 能接受你的赋值么?

 

 

 

2。   intN = 10         你为什么要在第十行开始数据导入?  

 

当然 .Range("A10").Select 你非要首先激活这个单元格 也可以,不过 你的数据开始行明明是第六行 是不是?

你自己好好考虑考虑,如果你明白了其中的道理,就不会拿来人家的程序代码乱改一气了。

 



chinayoxi 发表于:2012-01-15 19:40:56
其实我没看懂他原程序,按你的方式我改改看

萧云 发表于:2012-01-16 00:24:19

难怪~~ 看来你需要恶补一下VB语言了。

 

把上面我说的那二处 修改一下就好了。

 

 

点击下载此附件

总记录:5篇  页次:1/1 9 1 :