当初是你要分开 分开就分开

　

当初是你要分开

微信公众号原文

难度系数：初级

系统：windows 7

软件：excel 2010

学习路径图：

• 针对之前的学习路径图，会针对的写一些文章
• 今天讲讲二项结构，简单来说，就是写代码和存储数据放在不同的文件中，程序+数据库

Why，为什么？

1. 为什么要整这个所谓的二项结构？
2. 原因：
   • 执行效率：如果你编制的系统是长期在使用的，并且需要不断存储数据。如果只是单个文件（程序和数据库都在一个Excel文件中），每次启动程序可能会越来越慢，想想打开10M的Excel和打开20K的Excel文件的体验差别
   • 程序的无缝更新：如果你编制的系统是给别人使用的，用户在使用过程中，可能有了一个新的需求，需要更新系统，同时又不能影响他的正常使用。你更新好程序，直接替换程序文件即可，在编制系统这段时间内产生的数据，可以直接使用，无需再次迁移

How，怎么做

1. 新人做法：将原来的Excel工作表单独成一个新的Excel即可。和原来程序的区别，多了一个打开和关闭，其它基本不变
2. 老司机做法：数据库，例如使用Access专门存储数据。大家想想对于数据库的操作，其实也就那些，查/增/改/删
   • 没有数据库概念时，我们就先找到要操作的单元格位置，操作数据，存在找来找去
   • 这部分操作，如果使用数据库的玩法，都变成了一句sql语句，无需具体关注数据放在哪一行，数据库软件系统帮你解决了底层的一些操作

Access

Do it，执行

1. 这篇文章就讲讲新人做法，老司机做法请参考Access版块
2. 一个示例：向数据库中写入信息，原数据库只有19号的信息，新增一列20号的信息

效果图

逻辑过程及代码

1. 整体分为四个部分
   • 获取拟存储的数据，一般通过计算获得，这里直接赋值
   • 找到拟在数据库中存入的位置
   • 写入数据
   • 保存及关闭数据库文件
2. 文件结构：由两个文件构成，1个写程序的文件（xlsm），1个数据库文件（xlsx）
3. 代码

Sub 示例()
    APPlication.displayalerts = False

    '第1部分：获取到拟存入的数据
    shijian = "20180520"
    heGe = 0.9
    buHeGe = 0.1

    addr = ThisWorkbook.Path & "\数据库\数据库.xlsx"
    Set wb = Workbooks.Open(addr)
    Set sht = wb.Worksheets("示例")

    '第2步：确认拟存储的位置
    colNum = sht.Cells(1, Columns.Count).End(xlToLeft).Column + 1

    '第3步：写入数据
    sht.Cells(1, colNum) = shijian
    sht.Cells(2, colNum) = heGe
    sht.Cells(3, colNum) = buHeGe

    '第4步：保存及关闭数据库文件
    wb.Save
    wb.Close

End Sub

文件结构

代码截图

注：一般套路就是这样，主体分为4个部分，复杂情况下，每个部分可能有专门的Function或者Sub去处理

---

• 如需文中高清并可以无限放大路径图，可以文后留言留下邮箱，小编会发过去

- 本文为原创作品，如需转载，可加小编微信号learningBin

以上为本次的学习内容，下回见

如发现有错误，欢迎留言指出

---

更多精彩，请关注微信公众号

扫描二维码，关注本公众号

相关阅读

图像视觉领域部分开源代码2-2015

图像视觉领域部分开源代码2场景识别： SegNet: A Deep Convolutional Encoder-Decoder Architecture for Robust Semantic Pixel-

企业微信1.0版正式发布:工作生活终于分开了

今天，企业微信1.0版正式发布，iOS、Android、Windows、Mac四个平台同时推出，用户可登录官网注册并免费使用。企业微信是一款免费的产

ipad键盘打字的时候分开了怎么办？

在使用iPad的时候，可能不小心将键盘分成了两个，这其实是iPad的小功能，按住键盘左右，向外拉就能拆分成两半，能方便我们使用iPad的时候更