ACCESS中将数据分类复制到各个表不同的表中

longways

对于各位来说，我这个问题是小菜都算不上。但是对ACCESS不太熟，不知道怎么做，求各位求助。

先说下我的问题。以下表是我从K3软件导出的明细账文件，文件有近10万行左右，各个科目的内容都连续的放在了同一个表中，这样不方便查看，我想要做的就是从这个表的数据中，将各科目的数据复制到“科目代码+科目名称”为名称的表中。下图是原来的表数据。

数据表结构内容

原表的数据列有：
科目代码    科目名称    日期    业务日期    凭证字号    参考信息   摘要    业务编号。。。。。。借方金额    贷方金额  方向   余额


数据中，科目代码  科目名称，每个科目只在每年出现一次，以后都是空的。我就是想以“科目代码+科目名称”为表名，自动建立一个表，将“日期    业务日期     凭证字号    摘要     借方金额      贷方金额     方向     余额”这同列的数据复制表新表中。当有到有新的科目代码的行开始，又对应的新建一个表，复制到新表中。
这样要怎么做？

Renco

1.你应当导出的是一个K3的报表类的数据，以图示的数据来看，用查询是不可能分开了，因为一个主关字段【科目代码】不是所有行都有，所以无法用查询来解决，如用VBA的话，可以达到相关要求
2.如有可能的话，你最好能导出K3数据库存中的原表数据，就可以实现用查询就能解决，可以让IT人员或懂数据库的人员来操作！

longways

我主是没有导出K3数据库的原始数据的权限。是使用查看明细账中的导出功能导出的。
我就是想使用VBA来做，但是不会，我的想法是，使用VBA代码，对这个表的数据逐条查询，对比“科目代码”字段的内容，如果查到有新的科目代码后，就新建一个表，并以“科目代码+科目名称”为表名。将“日期    业务日期     凭证字号    摘要     借方金额      贷方金额     方向     余额”这同列的数据复制表新表中。在原表中跳到下一行，判断“科目代码”如果是空的或是与之前一个相同，就直接将这行中这几列的数据复制到对应的“科目代码+科目名称”的表中去。

但是不会操作。因为导出的数据有10万行左右，不能导出EXCEL文件，只能导出为MBD文件的。
我现在想知道的是，就是怎么建VBA代码，遍历数据表，判断表中科目代码的值，建新表，复制等操作的。