VBA500元求助实现多表格查找、对有需要的数据进行提取，统计，并输出透视图

zpy2

kinbler 发表于 2019-11-25 15:24
无需多表合并。这是单表分析

200个excel文件，
我觉得需要多表合并后才能分析的

NadrsSaber

不知道是哪位大神接了这活, 好像知道, 500块有哪些内容

kinbler

NadrsSaber 发表于 2019-11-25 16:37
不知道是哪位大神接了这活, 好像知道, 500块有哪些内容

等做好了告诉你。

醉五人

坐等成品，我们也欣赏一下

lzpdfdn

这种最好先把数据存入access数据库中处理，就很简单。

kinbler

lzpdfdn 发表于 2019-11-25 22:15
这种最好先把数据存入access数据库中处理，就很简单。

请问如何保存到ACCESS里面呢

EXCELLMY

kinbler 发表于 2019-11-26 09:59
请问如何保存到ACCESS里面呢

暂时已经有大神帮忙，如有大神帮忙，请跟帖回复制作方案。
非常感谢,亲有多少个500元要给大家？

lzpdfdn

Private Sub CommandButton1_Click()

'定义ADODB 连接Access数据库
    Dim Cnn As New ADODB.Connection
    Dim Rs As New ADODB.Recordset
    Dim strCon As String
    Dim strFileName As String '数据库文件名
   
    'strFileName = "\\AD\销售部Sales\赵亚晨\forecast.mdb"
    'strFileName = "C:\Users\zhaoyachen\Desktop\新建文件夹\数据库.mdb"
    strFileName = ThisWorkbook.Path & "\数据库.mdb"
    '连接字符串，我这里是Access2010,所提供者参数为：Provider=Microsoft.ACE.OLEDB.12.0;
    '如果此参数不能使用，根据自己的电脑修改这个字符串
    '至于连接至的数据库名，根据自己的电脑修改，或用一个对话框或其他方式将此值传递进程序
    strCon = "provider=Microsoft.ACE.OLEDB.12.0;" _
    & "Data Source=" & strFileName & ";"
    Cnn.Open strCon
    Rs.ActiveConnection = Cnn
    Rs.LockType = adLockOptimistic

    Rs.Open "Sheet1"   '假设表为Sheet1

    '定义Excel表中的数据区域以写入Access
    Dim Sht As Worksheet
    Dim Rn As Long
    Dim Cn As Long
    Set Sht = ThisWorkbook.Sheets("Sheet1")
    '假设将 Sheet1 表的 2-999行的1、2、3、4、5、6、7列写入Access表
    For Rn = 2 To Range("a65536").End(xlUp).Row
        Rs.AddNew
        Rs!客户名 = Sht.Cells(Rn, 1)  '客户名,零件号,年是数据库中指定表的字段
        Rs!零件号 = Sht.Cells(Rn, 2)
        Rs!年 = Sht.Cells(Rn, 3)
        Rs!月 = Sht.Cells(Rn, 4)
        Rs!日 = Sht.Cells(Rn, 5)
        Rs!数量 = Sht.Cells(Rn, 6)
        Rs!添加日期 = Sht.Cells(Rn, 7)
        Rs.Update
    Next Rn
    MsgBox "完成!"

    Rs.Close
    Cnn.Close
    'Set Rs = Nothing
    'Set Cnn = Nothing
    'Set Sht = Nothing
   
End Sub别人例子，请参考

mmx1122

18楼，你这么懂，你接了吧。

donghui2363

50的活儿都不多见