数据库 字段 Excel VBA 操作Access数据库/根据excel表中储存的字段信息创建

循环变量不定义，

for i = 0 to 100  '这个i我一般不定义

其他有一定含义的变量还是要定义一下，基本能看出这个变量是储存什么内容的。不啰嗦了，这些内容网上一搜一大堆。

然后检查一下新建账套的要素是否填全，省得做无用功，代码也会报错。

接下来创建数据库文件，这里是有一定的命名规则的，不展开。

接着读取(“数据库表信息”)内容到数组，也可以直接在excel表中循环，不过如果数据量大的话，数组要快很多，这个不用多说，数组一定要用好。

接下来关键代码来了，就是下面的一个for循环，生成创建表的SQL语句，这段代码功不可没。创建表的SQL语句大概是这个样子的：

 '创建凭证表            sql = "Create table tb凭证 " _                & "(ID AUTOINCREMENT primary key,日期 Date,凭证号 Integer,摘要 text(255)," _                & "科目代码 text(255),科目全称 text(255),核算项目 text(255),借方金额 double," _                & "贷方金额 double,余额 double,分录号 text(255),月份 text(255)," _                & "作废标志 Bit DEFAULT no,制单人 text(255),审核人 text(255),记账人 text(255)," _                & "月结状态 Bit DEFAULT no,项目查询 text(255))"

后面大段大段的打开具体表的记录集，写入一些记录。

基本就是这样子。

感想：之前我是一个表一个表地写出创建表的SQL语句的（就像上面这个‘创建凭证表’的代码），这样也能达到目的，不过一旦表结构、字段发生一点点变化，都要来修改SQL语句，灵活性太差，特别是在设计过程当中，经常会有变化，比较头疼。

现在好了，只要保存最新的表的信息，一切就在点点之间，感觉倍爽！

好了，今天就分享到这里，欢迎点赞分享、留言讨论，咱们下期再会！