Access交流中心

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

回复 加入收藏帖  复制
我要提问 帖子上移

批量导入EXCEL并按筛选后的数据生成图表,请高手帮忙感谢

风的承诺 等级: 普通会员 积分:2 金币:80 来自:东莞Access交流中心 发表于:2018-04-19 19:21:45  
楼主

1.批量导入EXCEL数据

2.EXCEL中没有  测试时间 列,在导入过程中,自动在对应的记录中获取EXCEL中 A6单元格中的前面日期即可

3.根据筛选条件生产对应的图表

点击下载此附件

麻烦各位老师的指点!谢谢!

 

access培训  诚聘access开发人员

    风的承诺
      获得社区协助:请教问题(即发帖)8篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)1篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章2篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
Top
风的承诺 等级:普通会员 积分:2 金币:80 来自:东莞Access交流中心 发表于2018/4/19 19:38:54 
1楼 得分: 0
各位老师、高手,看到的帮忙处理一下,谢谢,让大家学习学习!

    风的承诺
      获得社区协助:请教问题(即发帖)8篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)1篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章2篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
SiliconXu 等级:普通会员 积分:67 金币:0 来自:潮州Access交流中心 发表于2018/4/20 10:04:07 
2楼 得分: 0

这个是导入按钮的代码

Private Sub Command1_Click()
    Dim xlApp As Object, xlBook As Object, xlSheet As Object
    Dim rst As DAO.Recordset
    Dim i As Long
    Dim strTestDate As String, strFileName As String
    
    strFileName = "D:\2.xlsx"   '修改为你自己的路径
    Set rst = CurrentDb.TableDefs("list").OpenRecordset
    Set xlApp = CreateObject("Excel.Application")
    Set xlBook = xlApp.WorkBooks.Open(strFileName)
    Set xlSheet = xlBook.Sheets("Sheet1")
    strTestDate = Left(Replace(xlSheet.Cells(6, 1), "测试时间: ", ""), 10)
    i = 8
    Do Until IsEmpty(xlSheet.Cells(i, 1))
        With rst
            .AddNew
            !拼板 = xlSheet.Cells(i, 1)
            !元件 = xlSheet.Cells(i, 2)
            '下面这一行有可能出现错误,因为你的表中把“检测结果”定义为数字类型,但是Excel中有“OK”这种不属于数字的内容
            '建议你修改表中字段的数据类型
            !检测结果 = xlSheet.Cells(i, 3)
            '增加了判断“检测结果”数据类型的方法
            '!检测结果 = IIf(IsNumeric(xlSheet.Cells(i, 3)), xlSheet.Cells(i, 3), 0)
            rst("测量范围/材料备注") = xlSheet.Cells(i, 4)  '最好把这个字段的名字改一下
            !说明 = xlSheet.Cells(i, 5)
            !标准值 = xlSheet.Cells(i, 6)
            !料号及规格 = xlSheet.Cells(i, 7)
            !测试序号 = xlSheet.Cells(i, 8)
            !测试时间 = strTestDate
            .Update
        End With
        i = i + 1
    Loop
    Me.list_子窗体.Requery
    'Me.list_子窗体.Form.Recordset.MoveLast
    xlBook.Close
    rst.Close
    Set rst = Nothing
    Set xlApp = Nothing
    Set xlBook = Nothing
    Set xlSheet = Nothing
End Sub












    很高兴与您就本帖子进行交流,如果我的回答已经解决了您的问题,请点击上方的“最佳答案”,这样本帖子就不会在“待解决问题区”显示了,我也将获得2个积分奖励,并不会减少您的积分!
    SiliconXu
      获得社区协助:请教问题(即发帖)0篇,其中获得解决的0篇;
      协助社区成员:协助他人(即回帖)84篇,其中被设为【最佳答案】的32篇;
      协助我们社区:发布技术文章0篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
风的承诺 等级:普通会员 积分:2 金币:80 来自:东莞Access交流中心 发表于2018/4/20 12:03:19 
3楼 得分: 0

要批量打开导入,能否帮忙做批量打开的示例,可以以选中多个或选中文件夹的方式批量打开,麻烦了



    风的承诺
      获得社区协助:请教问题(即发帖)8篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)1篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章2篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
风的承诺 等级:普通会员 积分:2 金币:80 来自:东莞Access交流中心 发表于2018/4/21 20:21:59 
4楼 得分: 0
有没有那位可以帮忙解决批量提入的问题,在2楼的基础上改进一下,另外2楼的单个导入后有报错,暂时查不出原因,谢谢先

    风的承诺
      获得社区协助:请教问题(即发帖)8篇,其中获得解决的3篇;
      协助社区成员:协助他人(即回帖)1篇,其中被设为【最佳答案】的1篇;
      协助我们社区:发布技术文章2篇,邀请了0名新会员注册本社区(如何邀请会员注册,详见:http://www.accessoft.com/sitehelp.asp)。
总记录:4篇  页次:1/1 9 1 :
您还没有在Access软件网登录不能回复帖子
  • 你没有登录,请点击后面链接登录:登录
  • 如果你没有注册,请点击后面链接注册:注册,注册完成后,请再次访问本页功能。