以Excel作为Azure SQL Database前端：如何将Excel数据写入数据库

无需付费插件，用VBA结合ADODB组件就能实现数据写回，步骤和示例如下：

• 配置ODBC连接：在Windows「ODBC数据源管理器」中添加「ODBC Driver 17 for SQL Server」类型的数据源，填入Azure SQL的服务器地址、数据库名、认证信息（推荐用Azure AD认证），开启加密连接。
• VBA代码示例：
  采用后期绑定方式，无需额外引用组件，同时使用参数化查询避免SQL注入：

Sub WriteToAzureSQL()
    Dim conn As Object, cmd As Object
    Dim lastRow As Long, i As Long
    Dim sql As String
    
    ' 初始化数据库连接
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "DRIVER={ODBC Driver 17 for SQL Server};SERVER=your-server.database.windows.net;DATABASE=your-db;UID=your-username;PWD=your-password;Encrypt=yes"
    
    On Error GoTo Cleanup ' 错误捕获，确保连接正常关闭
    conn.Open
    
    lastRow = ThisWorkbook.Sheets("数据").Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历Excel行写入数据库（第1行作为表头，从第2行开始读取数据）
    For i = 2 To lastRow
        sql = "INSERT INTO YourTable (Col1, Col2, Col3) VALUES (?, ?, ?)"
        Set cmd = CreateObject("ADODB.Command")
        cmd.ActiveConnection = conn
        cmd.CommandText = sql
        
        ' 绑定Excel单元格值到SQL参数
        cmd.Parameters.Append cmd.CreateParameter("Col1", 200, 1, 50, Sheets("数据").Cells(i, 1).Value) ' adVarChar类型
        cmd.Parameters.Append cmd.CreateParameter("Col2", 3, 1, , Sheets("数据").Cells(i, 2).Value) ' adInteger类型
        cmd.Parameters.Append cmd.CreateParameter("Col3", 7, 1, , Sheets("数据").Cells(i, 3).Value) ' adDate类型
        
        cmd.Execute
    Next i
    
    MsgBox "数据写入成功"

Cleanup:
    If Not conn Is Nothing Then
        If conn.State = 1 Then conn.Close
        Set conn = Nothing
    End If
    Set cmd = Nothing
    If Err.Number <> 0 Then MsgBox "写入失败：" & Err.Description
End Sub

如果需要实现更新/Upsert，可将SQL语句替换为MERGE，根据主键判断执行插入还是更新操作。

Python方案更适合复杂数据处理场景，借助xlwings读取Excel内容，SQLAlchemy管理数据库连接，整体效率更高：

• 安装依赖：

pip install xlwings sqlalchemy pyodbc

• 代码示例：

import xlwings as xw
from sqlalchemy import create_engine
import pandas as pd

# 构建Azure SQL连接字符串（替换为你的实际配置）
conn_str = (
    "mssql+pyodbc://your-username:your-password@your-server.database.windows.net/your-db"
    "?driver=ODBC+Driver+17+for+SQL+Server&Encrypt=yes"
)
engine = create_engine(conn_str)

# 读取Excel数据（假设Sheet名为"数据"，表头在第1行）
with xw.Book("你的数据文件.xlsx") as wb:
    ws = wb.sheets["数据"]
    # 自动识别表格范围并转换为DataFrame
    df = ws.range("A1").options(pd.DataFrame, header=1, expand="table").value

# 批量写入数据库：if_exists参数可选append/ replace/ fail
df.to_sql(
    name="YourTable",
    con=engine,
    if_exists="append",
    index=False,
    chunksize=1000  # 分批次写入，避免大表导致内存溢出
)

print("数据写入完成")

若需实现Upsert，可通过SQLAlchemy的text方法执行MERGE语句，或先根据主键过滤数据库已有数据后再插入。

• 优先批量操作：单条循环插入效率极低，VBA可使用ADODB.Recordset实现批量更新，Python用pandas的to_sql默认支持批量，大表建议设置chunksize参数。
• 安全优先：绝对禁止直接拼接SQL语句，必须使用参数化查询；Azure SQL优先采用Azure AD认证，避免硬编码密码。
• 数据类型校验：提前核对Excel数据类型与数据库字段类型（如日期格式、数字精度），避免写入时出现类型转换错误。
• 错误处理：必须添加异常捕获逻辑，确保数据库连接能正常关闭，写入失败时可快速定位问题。

内容的提问来源于stack exchange，提问作者kabl