VBA Excel 到 SqlServer

使用VBA Excel连接到SqlServer数据库可以轻松实现数据的导入、导出和查询操作。VBA Excel是微软提供的一种宏语言，通过编写VBA代码，我们可以在Excel中使用各种功能强大的工具来操作SqlServer数据库。

vba
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Dim serverName As String
Dim databaseName As String
Dim userName As String
Dim password As String

vba
serverName = "服务器名称"
databaseName = "数据库名称"
userName = "用户名"
password = "密码"
conn.Open "Provider=SQLOLEDB;Data Source=" & serverName & ";Initial Catalog=" & databaseName & ";User ID=" & userName & ";Password=" & password & ";"

vba
strSQL = "SELECT * FROM 表名"
rs.Open strSQL, conn
'将查询结果导入到Excel中的一个工作表
Sheet1.Range("A1").CopyFromRecordset rs
rs.Close

vba
strSQL = "INSERT INTO 表名 (字段1, 字段2) VALUES ('值1', '值2')"
conn.Execute strSQL

vba
conn.Close
Set conn = Nothing