当数据量少的时候，使用Excel文件和Access数据库作为数据存储载体，可以满足中等规模的需求。当数据量上升至10W级别以上，效率就会打折扣许多，因而，为了适应10W+以上的数据量的增删改查的操作，就需要用更大级别的数据库管理系统，比方SQL Server,My SQL,Oracle等。
现在来探讨一下，如何在VBA工程中编写代码创立SQL Server数据库和数据表，我们假设要创立的数据库和数据表当前并不存在。在完成目标任务时需要用ADO对象和SQL语句。
笔者工作环境为：Win7 64位操作系统 + SQL Server 2012数据库管理系统 + Office2010套件，数据库服务器的名称为 MEIMEI, 需要用到Microsoft ActiveX Data Objects 6.1 Library,假如您的环境与此不同，请换成相应版本的库文件。
准备工作截图如下：
程序执行过程中截图：
程序编码截图如下：
完整实现代码如下：
Public Sub 创立数据库和数据表()
Dim cnn As ADODB.Connection
Dim cnnStr As String, SQL As String
Dim mydata As String, myTable As String
mydata = "成绩管理"
myTable = "学生成绩"
Set cnn = New ADODB.Connection
cnnStr = "Provider = SQLOLEDB.1; User ID = 您的账号; Password = 您的密码;Initial Catalog = " & mydata
cnn.ConnectionString = cnnStr
On Error Resume Next
cnn.Open
On Error GoTo 0
If cnn.State = adStateOpen Then
MsgBox "数据库已经存在，请重新命名数据库名！", vbCritical
cnn.Close
Set cnn = Nothing
Exit Sub
End If
cnnStr = "Provider=SQLOLEDB.1; User ID=您的账号; Password = 您的密码;Data Source=MEIMEI"
cnn.ConnectionString = cnnStr
cnn.Open
SQL = "create database " & mydata
cnn.Execute SQL
MsgBox "数据库创立成功！", vbInformation, "创立数据库"
cnn.Close
cnnStr = "Provider=SQLOLEDB.1; User ID=您的账号; Password = 您的密码;Data Source=MEIMEI; Initial Catalog=" & mydata
cnn.ConnectionString = cnnStr
cnn.Open
SQL = "create table " & myTable & "(学号 varchar(10) not null primary key,姓名 varchar(10) not null,语文 Int not null,英语 Int not null,数学 Int not null,物理 Int not null,化学 Int not null,体育 Int not null)"
cnn.Execute SQL
MsgBox "数据表创立成功！", vbInformation, "创立数据表"
cnn.Close
Set cnn = Nothing
End Sub
在实际用时，请把代码段中 您的账号 和 您的密码 替换成您SQL Server数据库服务器的登录账号和账号密码.
充分发挥VBA的优势，提高Excel自动化工作效率 汇总多个工作簿的数据
https://www.toutiao.com/i6594221425127588355/
利使用VBA把Excel工作表里的数据复制到Word文档中
https://www.toutiao.com/i6594975705451201038/
利使用VBA以Excel工作表数据为基础数据制作幻灯片
https://www.toutiao.com/i6594989039856648707/
将Excel文件里的表格数据保存到现有的Access数据库里
https://www.toutiao.com/i6595321558460269063/
利使用VBA 打开控制面板的“程序和功能”删除应使用程序的窗口
https://www.toutiao.com/i6595683294958846478/
