如何用VBA调用数据库中数据

首先在工具 引用 中引入ADO组件(全名叫Microsoft ActiveX Data什么的，很好好找)，然后声明一个连接变量 conn as ADODB.Connetion用来连接数据库，这里需要连接字符串，不知道你是什么类型数据库，所以连接字符串无法给出，再声明一个数据集变量ds as ADODB. DATASET用于执行SQL语句并返回结果集，得到结果集之后就可以访问里面的内容了

'工具->引用->Microsoft ActiveX Date Object 2.0

Public Sub SaveData()

    Dim Cnn As ADODB.Connection

    Dim SQL As String

        

    Set Cnn = New ADODB.Connection

    

    '建立于数据库的链接

    '这里根据你的实际值修改ConnectionString = "Driver=SQL ServerServer=服务器名称Database=数据库Uid=账号Pwd=密码"

    With Cnn

        .Provider = "SQLOLEDB"

        .ConnectionString = "Driver=SQL ServerServer=mxb\sqlexpressDatabase=testUid=saPwd=xiaoma"

        .Open

    End With

    

    

    '保存数据

    r = Range("A65534").End(xlUp).Row

    For i = 1 To r

        '拼sql

        SQL = "insert into T values('" & Cells(i, 1) & "','" & Cells(i, 2) & "'," & Cells(i, 3) & ")"

        Cnn.Execute SQL

    Next

    Cnn.Close

    Set Cnn = Nothing

    MsgBox "保存成功"

    

End Sub

上面是通过VBA,插入数据到数据库,下面是从SQL查询Excel,然后直接insert into到数据库,也可以用数据库导入向导

--查询excel2007

select * from OpenDataSource('Microsoft.ACE.OLEDB.12.0', 'Data Source=D:\2007.xlsxExtended Properties="Excel 12.0HDR=YesIMEX=1"')...[Sheet1$]

--查询excel2003

select * from OpenDataSource( 'Microsoft.Jet.OLEDB.4.0','Data Source="D:\2003.xls"Extended properties=Excel 5.0')...[Sheet1$]

---