将数据从启用宏的Excel保存到SQL

是一个常见的需求，可以通过以下步骤实现：

首先，确保你的Excel文件中启用了宏功能。在Excel中，点击“文件”->“选项”->“信任中心”->“信任中心设置”->“宏设置”，选择“启用所有宏”。
接下来，打开Excel文件并运行宏。在Excel中，按下“Alt+F11”打开Visual Basic for Applications（VBA）编辑器。在编辑器中，创建一个新的模块，并编写VBA代码来连接到SQL数据库并将数据保存到其中。以下是一个示例代码：

Sub SaveToSQL()
    Dim conn As Object
    Dim rs As Object
    Dim strSQL As String
    Dim rng As Range
    Dim cell As Range
    
    ' 连接到SQL数据库
    Set conn = CreateObject("ADODB.Connection")
    conn.ConnectionString = "Provider=SQLOLEDB;Data Source=服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码;"
    conn.Open
    
    ' 设置SQL插入语句
    strSQL = "INSERT INTO 表名 (字段1, 字段2, 字段3) VALUES (?, ?, ?)"
    
    ' 获取要保存的数据范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C10")
    
    ' 遍历数据范围并插入到SQL数据库
    For Each cell In rng
        Set rs = CreateObject("ADODB.Recordset")
        rs.Open strSQL, conn, 1, 3
        
        rs.AddNew
        rs.Fields("字段1").Value = cell.Offset(0, 0).Value
        rs.Fields("字段2").Value = cell.Offset(0, 1).Value
        rs.Fields("字段3").Value = cell.Offset(0, 2).Value
        rs.Update
        
        rs.Close
        Set rs = Nothing
    Next cell
    
    ' 关闭连接
    conn.Close
    Set conn = Nothing
    
    MsgBox "数据保存成功！"
End Sub

请根据实际情况修改代码中的服务器地址、数据库名称、用户名、密码、表名、字段名和数据范围。

运行宏。在VBA编辑器中，按下“F5”或点击“运行”->“运行子过程”来执行宏。执行完毕后，数据将被保存到SQL数据库中。

需要注意的是，上述示例代码仅适用于保存简单的数据表格到SQL数据库中。如果需要保存更复杂的数据结构或进行其他操作，可能需要编写更多的VBA代码。

推荐的腾讯云相关产品：腾讯云数据库SQL Server版（https://cloud.tencent.com/product/sqlserver）和腾讯云数据库MySQL版（https://cloud.tencent.com/product/cdb_mysql）。这些产品提供了可靠的云数据库服务，适用于各种规模的应用场景，并提供了高可用性、弹性扩展和数据安全等特性。