VBA入门指南——献给在这里得到帮助但看不懂代码的朋友（已建电梯）

jcwubin

不错，适合初学者。

Ali1109

刚发现的,到了,不好意思,

以后每天准时到,谢谢老师!!!

ehcwl

好多问题都不太懂，现在也想入门学习下。
多谢热心的老师们的附件说明！

zssccs

我们公司是生产器件的，每天都有很多产品出库（就是成品，可以卖了），每次每批产品都需要记录其数据，包括：产品名，批号，数量，良品等等，数据格式几乎一样，但每个产品都需一个工作薄，并且以月别分成很多个工作表（一年12个），且每个工作表中还有很多个统一产品名不同批号的产品，这些数据有专人电算（输入电脑），我们的工作就是每天统计这些数据，记录在一个单独的表格中，我就想能不能不用手动统计，而能自动统计这些数据，并给分类汇总或其他形式，只要能便于管理与明了就行，请各位高手帮忙支招~谢谢了！


现已得到一份初步的解决代码，请楼主帮忙在附件中实现一下；谢谢了！
如下
Sub 合并数据()

    Set conn = CreateObject("adodb.connection")         '（1）设置对象
    For x = 1 To 3
    conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.Path & "\产品" & x & ".xls"
    Sql = "select 日期,产品,批号,数量,良品数,备注  from [数据源$]"
    currentrow = [b65536].End(xlUp).Row + 1
    Range("a" & currentrow).CopyFromRecordset conn.Execute(Sql)
    currentendrow = [b65536].End(xlUp).Row
    For i = currentendrow To currentrow Step -1
        If Range("a" & i).Value = "" Then Range("a" & i).EntireRow.Delete
    Next
    conn.Close                                      '关闭链接
    Next x
    Set conn = Nothing  '释放对象变量
End Sub

zssccs

我实现的结果跟想要的不符，请楼主帮忙改一下，可否？谢谢！

yagi2008

原帖由 zssccs 于 2009-3-4 10:41 发表
我们公司是生产器件的，每天都有很多产品出库（就是成品，可以卖了），每次每批产品都需要记录其数据，包括：产品名，批号，数量，良品等等，数据格式几乎一样，但每个产品都需一个工作薄，并且以月别分成很多个工作 ...

VBA是一种方法，但个人觉得EXCEL提供的模拟运算表功能可能更适合这样的应用！

cdlib

楼主辛苦，严重感谢

mumuky

我之前没看到这个帖子，自从看到了，简直是如饥似渴。只要有时间就来学习，现在已经学到2.3号的内容了。
谢谢老师，感觉到离那扇遥远而神秘的大门越来越近了。

wisdom100

精神可嘉......................顶下

水穷云起2009

看个开头就知道是个不能不顶的贴子.由衷谢谢LZ